Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для Delirium

Ветеран


Сообщения: 5624
Благодарности: 936

Профиль | Отправить PM | Цитировать


Ну как вариант(в примере ищет только по одной дате) написать небольшой макрос, что то вроде такого:

Код: Выделить весь код
    Dim i As Integer
    Dim j As Integer
    
    With Selection 'Выделяем нужный столбец
        i = .Rows.Count 'Получаем количество выделенных строк 
        'j = .Columns.Count 'Получаем количество выделенных столбцов
        For Row = 1 To i ' Цикл от 1 до количество строк
            If Month(Cells(Row, 1)) = Cells(1, 2) And Year(Cells(Row, 1)) = Cells(1, 3) Then
                Cells(Row, 4) = 1
            Else
                Cells(Row, 4) = 0
            End If
        Next
    End With
End Sub
В примере цикл по первому столбу сверяет значение месяца и года с ячейками B1 и C1 соответственно. Т.е. у меня была такая структура:

Код: Выделить весь код
01.01.2010	2	2010	0
02.02.2010			1
06.03.2010			0
07.04.2010			0
09.05.2010			0
Дополнив условия, можно сделать и диапазон ячеек.

-------

Пройденные курсы:
[Microsoft №10174 Sharepoint], [SharePoint]
Мои проекты:[CheckAdmins], [NetSend7], [System Uptime], [Remote RAdmin LogViewer],[Netdom GDI], [Holidays - напоминалка о днях рождения]

А я офис-гуру :)


Отправлено: 01:39, 22-10-2010 | #7