sự kiện AfterUpdate trong worksheet (1 người xem)

[quoc nhat]

Trên Form có các Textbox mình có sự kiện AfterUpdate
VD: Textbox1_AfterUpdate()
End Sub
Vậy cho em xin được hỏi các thầy cô và anh chị là trong Worksheet mình có sự kiện này không?
Nếu có thì cấu trúc Code (sự kiện) như thế nào
Em cảm ơn!

 

[mhung12005]

Trên Form có các Textbox mình có sự kiện AfterUpdate
VD: Textbox1_AfterUpdate()
End Sub
Vậy cho em xin được hỏi các thầy cô và anh chị là trong Worksheet mình có sự kiện này không?
Nếu có thì cấu trúc Code (sự kiện) như thế nào
Em cảm ơn!

Mình nghĩ sự kiện:

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

cũng tương tự. Chỉ khác là nó áp dụng với Cell còn sự kiện AfterUpdate() áp dụng với textbox.

 

[quoc nhat]

Mình nghĩ sự kiện:



cũng tương tự. Chỉ khác là nó áp dụng với Cell còn sự kiện AfterUpdate() áp dụng với textbox.

Cảm ơn bạn đã giúp
Chẳng giấu gì bạn mình muốn tham khảo code
VD: mình nhập dữ liệu xong ở cell A1 chẳng hạn nhấn Enter thì tự động gọi form lên
nhưng chưa biết cấu trúc như thế nào
Bạn giúp mình được không
mình cảm ơn

 

[nghiaphuc]

Cảm ơn bạn đã giúp
Chẳng giấu gì bạn mình muốn tham khảo code
VD: mình nhập dữ liệu xong ở cell A1 chẳng hạn nhấn Enter thì tự động gọi form lên
nhưng chưa biết cấu trúc như thế nào
Bạn giúp mình được không
mình cảm ơn

Đại loại là thế này:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then UserForm1.Show
End Sub

 

[quoc nhat]

Em có đoạn code này kết hợp với Code của anh nghiaphuc cho cùng vào sự kiện Worksheet_ Chane thì một phần bị mất tác dụng mong được giúp đỡ

Private Sub Worksheet_Change(ByVal Target As Range)       
If Intersect(Target, [B66:B71,I66:I71]) Is Nothing Then Exit Sub
       On Error Resume Next
    Dim i As Long
    With Sheet5 'The Kho'
        i = WorksheetFunction.Match(Cells(Target.Row, 2), .[B:B], 0)
        If Cells(Target.Row, 9).Value > .Cells(Target.Row, 11).Value Then
            MsgBoxUni UNC("HiÖn t¹i trong kho cßn l¹i ") & .Cells(i, 11) & " " & .Cells(i, 4), 48, "Thông báo"
             Cells(Target.Row, 9) = .Cells(i, 11)
           
             
                    [COLOR=#ff0000]If Target.Address = "$B$66" Then UserForm16.Show[/COLOR]
End Sub

[/QUOTE]
phần code màu đỏ bị mất tác dụng