một ô bất kỳ trong cột thay đổi

[dragonboy]

Mình muốn một ô bất kỳ trong cột B-C thay đổi thì A1 sẽ nhân giá trị là 1212 mà sao không chạy
Các bạn kiểm tra giúp mình với nhé

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "B:C" Then
Range("A1").Select
ActiveCell.FormulaR1C1 = "1212"
End If
End Sub

 

[concogia]

Mình muốn một ô bất kỳ trong cột B-C thay đổi thì A1 sẽ nhân giá trị là 1212 mà sao không chạy
Các bạn kiểm tra giúp mình với nhé

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "B:C" Then
Range("A1").Select
ActiveCell.FormulaR1C1 = "1212"
End If
End Sub

Thử thế này xem

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B:C")) Is Nothing Then
       Range("A1") = "1212"
    End If
End Sub