Макрос для ввода значения в зависимости от даты другой ячейки

Kent_ok Пользователь Сообщений: 105 Регистрация: 10.04.2018	#1 01.04.2020 10:43:16 Здраствуйте в диапазоне A2:A182 есть даты. Задача: если в в диапазоне A2:A182 сегодняшняя дата напротив в ячейке (B2:B182) должно быть значение "1". Прикрепленные файлы пример.xlsm (12.78 КБ)

Mershik

Пользователь

Сообщений: 8277 Регистрация: 03.12.2015

01.04.2020 10:47:24

Kent_ok,именно макросом?

Код
Sub data_1() Dim i As Double For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(i, 1) = Date Then Cells(i, 2) = 1 Next i End Sub

Изменено: Mershik - 01.04.2020 10:49:10

Не бойтесь совершенства. Вам его не достичь.

Kent_ok Пользователь Сообщений: 105 Регистрация: 10.04.2018	#3 01.04.2020 10:48:41 Mershik, именно, потому что в (B2:B182) есть еще инные даные

Mershik Пользователь Сообщений: 8277 Регистрация: 03.12.2015	#4 01.04.2020 11:09:03 Kent_ok, пожалуйста) Не бойтесь совершенства. Вам его не достичь.

Kent_ok Пользователь Сообщений: 105 Регистрация: 10.04.2018	#5 01.04.2020 11:40:39 Mershik, спасибо, но переместил в другой диапазон и не работает Прикрепленные файлы пример.xlsm (16.41 КБ) Изменено: Kent_ok - 01.04.2020 11:41:30

Mershik

Пользователь

Сообщений: 8277 Регистрация: 03.12.2015

01.04.2020 11:49:21

Kent_ok,

Цитата
Kent_ok написал: переместил в другой диапазон

Цитата
Kent_ok написал: не работает

оно и работает.. замените 1 на 12 в вашем случае, а 2 на 13 соответственно что бы рядом выводились "1"

Код

Sub data_1()Dim i As Double
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row ' 1 - это номер столбца в котором проверяем дату с сегодня
        If Cells(i, 1) = Date Then Cells(i, 2) = 1 ' 1 то же самое - 2 это номер столбца куда ставить единицу если дата=сегодня()
    Next i
End Sub

Изменено: Mershik - 01.04.2020 11:51:53

Не бойтесь совершенства. Вам его не достичь.

Kent_ok Пользователь Сообщений: 105 Регистрация: 10.04.2018	#7 01.04.2020 11:57:13 Mershik, Спасибо!