Получение флажков для «проверки» с VBA условно

Question

Я пытаюсь установить флажок в золотом столбце флажков, который вы видите слева, чтобы проверить, присутствует ли дата в соответствующем столбце в Исходном плане и поле в белом столбце флажков проверить, присутствует ли дата в соответствующем столбце в Обновленной смете.

Очень новичок в этом, и я какое-то время играл с ним и не могу заставить его работать правильно.

Вот лист, о котором я говорю:

Answer 1

Они похожи на флажки ActiveX, поэтому к этому ответу и будет применяться этот ответ. Если это не так, то, надеюсь, это поможет кому-то еще через 5 лет.

В любом случае, допустим, вы назвали флажок cb_A1 для левого флажка и cb_B1 для правого. Вы можете изменить значение этих флажков, добавив Кодовое имя листа перед именем флажка. Пример:

Sheet1.cb_A1.Value = True
' ^^^   ^^^
'  |     ↳ Name of Checkbox
'  ↳ Sheet's Codename

Так как ваше изображение не включает заголовки столбцов, давайте предположим, что Orginal Date столбец был E. Вы можете выполнить проверку в этом столбце следующим образом:

If IsDate(Sheet1.Range("E1")) And Sheet1.Range("E1").Value > 0 Then 
    Sheet1.cb_A1.Value = True
Else
    Sheet1.cb_A1.Value = False
End If