сравнение двух ячеек в excel с помощью vba

Я хотел бы сравнить 2 ячейки и посмотреть, совпадают они или нет. Я знаю, как это сделать в excel, но не знаю, как это сделать в vba коде.

Вход и выход:

  1. Значение ячейки A1 уже есть в excel.
  2. Ввести вручную значение в ячейку B1.
  3. Нажмите на кнопку_click sub, чтобы увидеть, совпадают ли значения в двух ячейках или нет.
  4. Показать "Да" или "Нет" в ячейке C1.

Формула Excel:

=IF(A1=B1,"yes","no")
Программирование
vba excel excel-vba
21-го января 2015 в 3:55
36 просмотров

Попробуйте это:

Sub CompareCells()
    If [a1] = [b1] Then
        [c1] = "yes"
    Else
        [c1] = "no"
    End If
End Sub

*Припишите этот код к кнопке.

Комментарии (2)
 
If (Range("A1").Value = Range("B1").Value) Then
    Range("C1").Value = "Yes"
Else
    Range("C1").Value = "No"
End If
Chrismas007
Редактировал ответ 21-го января 2015 в 7:09
Комментарии (6)

Вот 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.

Комментарии (0)