Я хотел бы сравнить 2 ячейки и посмотреть, совпадают они или нет. Я знаю, как это сделать в excel, но не знаю, как это сделать в vba коде.
Вход и выход:
Формула Excel:
=IF(A1=B1,"yes","no")
Попробуйте это:
Sub CompareCells()
If [a1] = [b1] Then
[c1] = "yes"
Else
[c1] = "no"
End If
End Sub
*Припишите этот код к кнопке.
If (Range("A1").Value = Range("B1").Value) Then
Range("C1").Value = "Yes"
Else
Range("C1").Value = "No"
End If
Вот Sub при изменении (код ДОЛЖЕН находиться в модуле листа). Он активируется только при изменении ячейки в столбце B.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target is Nothing Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column <> 2 Then Exit Sub
If Cells(Target.Row, 1).Value = Cells(Target.Row, 2).Value Then
Cells(Target.Row, 3).Value = "Yes"
Else
Cells(Target.Row, 3).Value = "No"
End If
End Sub
Для справки, здесь не используется кнопка, но это достигает вашей цели - вычислять, равны ли две ячейки, каждый раз, когда вы вручную вводите данные в ячейки столбца B.