Добрый день, подскажите, пожалуйста, как работать с ячейками Даты.
Задача состоит в том, чтобы подсчитать количество объектов на Листе1 с совпадающим месяцем и годом таблицы на Листе "Итого" и вывести значения на лист Итого.
Проблема в том, что только на листе "Итого" даты в формате (месяц, год), а на листе1 (день, месяц, год). Написанная ниже программа совпадений не находит.
Лист 1
доктор | дата | доктор | дата | доктор | дата | доктор | дата |
трактор | 14.12.2017 | луна | пр | солнце | пол | луна | рп |
трактор | 10.01.2018 | трактор | в | трактор | дек.17 | луна | в |
трактор | р | луна | пр | морковь | пол | луна | ва |
трактор | в | луна | дло | луна | пго | луна | цув |
Лист Итого
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