Как сделать «Если ячейка содержит» в VBA

Question

Я ищу код для выполнения инструкции, когда ячейка содержит номер «1».

Я пользуюсь этим кодом, находящимся в сети.

Dim celltxt As String 
celltxt = ActiveSheet.Range("C6").Text 
If InStr(1, celltxt, "1") Then 
MsgBox ("Yes") 
Else 
MsgBox ("no") 
End If 

Однако эта работа, если она только считывает ячейку C6. Как установить его таким образом, чтобы он считывал диапазон ячеек из C2: C5000. Как и моя ячейка, D2 покажет «да», когда ячейка C2 показывает «1», а ячейка D3 показывает «Нет», когда Cell C3 показывает другое число ?.

Спасибо за большую помощь

Хоро

Answer 1

вы можете избежать зацикливания таким образом:

Columns(3).SpecialCells(XlCellType.xlCellTypeConstants, xlNumbers).Offset(, 1).FormulaR1C1 = "=IF(RC[-1]=1,""yes"",""no"")" 

и если вы хотите, чтобы избавиться от формул:

With Columns(3).SpecialCells(XlCellType.xlCellTypeConstants, xlNumbers).Offset(, 1) 
    .FormulaR1C1 = "=IF(RC[-1]=1,""yes"",""no"")" 
    .value = .value 
End With