Chập chững bước vào VBA

[ZzNHCzZ]

Em có bài toán nhỏ muốn hỏi mọi người viết VBA thì làm như thế nào:
Em có 3 cột: A,B,C
C = A*B
Bây giờ em muốn thêm dữ liệu vào 2 cột A,B thì cột C sẽ có Kết Quả.
Vì không nắm rõ cấu trúc vòng lặp nên làm bị sai.
Mong anh chị hướng dẩn giúp em.

Thân!

 

[Mr Okebab]

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Range("B2:B1000"), Target) Is Nothing Then
       With Target
                  .Offset(, 1) = .Offset(, -1) * .Value
       End With
   End If
End Sub

Vui thôi, Với 1 record thì nhanh chậm không là cái đinh gì!

Để tránh lỗi thì xin thêm 1 dòng nữa là :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Rows.Count > 1 Then Exit Sub
    If Intersect(Range("B2:B1000"), Target) Is Nothing Then Exit Sub
       With Target
                  .Offset(, 1) = .Offset(, -1) * .Value
       End With
End Sub

Thân!