Есть -  таблица на Листе1
Надо получить - на Листе 2 количествоКнига12.xlsx (11.06 КБ)записей к доктору Петрову в декабре 2017 и январе 2018

Добрый день, подскажите, пожалуйста, как работать с ячейками Даты.
Задача состоит в том, чтобы подсчитать количество объектов на Листе1 с совпадающим месяцем и годом таблицы на Листе "Итого" и вывести значения на лист Итого.
Проблема в том, что только на листе "Итого" даты в формате (месяц, год), а на листе1 (день, месяц, год). Написанная ниже программа совпадений не находит.

Лист 1

доктор	дата	доктор	дата	доктор	дата	доктор	дата
трактор	14.12.2017	луна	пр	солнце	пол	луна	рп
трактор	10.01.2018	трактор	в	трактор	дек.17	луна	в
трактор	р	луна	пр	морковь	пол	луна	ва
трактор	в	луна	дло	луна	пго	луна	цув

Лист Итого

дек.17	янв.18
1

 

Sub Кнопка1_Щелчок()

Dim a As Integer, b As Integer, i1 As Integer, j1 As Integer, j2 As Integer

For j1 = 1 To 8

If Worksheets("Лист1").Cells(2, j1) Like "доктор" Then

For i1 = 3 To 6

If Worksheets("Лист1").Cells(i1, j1) Like "трактор" Then

For j2 = 1 To 2

If Worksheets("Лист1").Cells(i1, j1 + 1) Like Worksheets("Итого").Cells(1, j2) Then

a = Worksheets("Итого").Cells(2, j2)

a = a + 1

Worksheets("Итого").Cells(2, j2) = a

End If

Next j2

End If

Next i1

End If

Next j1

End Sub

 

Все так просто  Спасибо!

Мой пример

Sub Кнопка2_Щелчок()
Dim i As Single, j As Single, s As Single
s = 0
For i = 2 To 6
For j = 1 To 6


If Cells(i, j) = "яблоко" Then
s = s + Cells(i, j + 1)
End If
Next j
Cells(i, 7) = s
s = 0
Next i

End Sub

						итого
яблоко	1	арбуз	25	яблоко	25	26
апельсин	2	апельсин	26	арбуз	14	0
зеленое яблоко	3	яблоко	24	вишня	86	24
яблоко арбуз	4	апельсин	28	зеленое яблоко	92	0
красное яблоко	5	красное яблоко	33	апельсин	32	0

В итоге считает только "яблоко", а зеленые и красные не учитывает. Необходимо, чтобы считал по всем ячейкам в которых содержится слово "яблоко"

Здравствуйте, подскажите, пожалуйста, как правильно прописать код VBA.
Необходимо в диапазоне текстовых ячеек найти ячейки которые содержат слово, например "яблоко". Т.е. есть ячейки с текстом "зеленое яблоко", "красное яблоко", "яблоко" и тд, необходимо, что бы он нашел всех их.