Giải thích về các Properties và Event

[diemvuongvathuongde]

Em chào các bác.
Em mới tập tẹ học VBA, tìm trên diễn đàn em không thấy mục nào giới thiệu cụ thể về cái Properties và Event của Sheet, Book, Form …
Em muốn các bác ra tay giúp em và những người lơ mơ như em dần hiểu vấn đề.
Câu hỏi thứ nhất: Tác dụng của các sự kiện của Worksheet
Worksheet_Activate
Worksheet_BeforeDoubleClick
Worksheet_BeforeRightClick
Worksheet_Calculate
Worksheet_Change
Worksheet_Deactivate
Worksheet_FollowHyperlink
Worksheet_PivotTableUpdate
Worksheet_SelectionChange
Mong các bác giúp đỡ
(Nếu bài post sai topic thì Mod đừng xóa của em mà chỉ chuyển thôi nhé)

 

[SA_DQ]

Câu hỏi thứ nhất: Tác dụng của các sự kiện của Worksheet
Worksheet_Activate
Worksheet_BeforeDoubleClick
Worksheet_BeforeRightClick
Worksheet_Calculate
Worksheet_Change
Worksheet_Deactivate
Worksheet_FollowHyperlink
Worksheet_PivotTableUpdate
Worksheet_SelectionChange
Mong các bác giúp đỡ

Có thể bạn tự học xem sao! Bằng cách bạn đối thoại với các đoạn mã này;
Như ni:
VD

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    MsgBox Target.Address, , "BeforeDoubleClick"
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    MsgBox Target.Address, , "Change"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    MsgBox Target.Address, , "SelectionChange"
End Sub

Sau đó thì bạn làm động tác gì excel sẽ báo cho bạn biết đã làm gì!

 

[diemvuongvathuongde]

Có thể bạn tự học xem sao! Bằng cách bạn đối thoại với các đoạn mã này

Em nói thật với bác là em đã thử nhưng nó khó quá em mới cần các bác giúp đỡ. Đã thương thì thương cho chót, các bác cho em một số lời. Càng cụ thể càng tốt (Em còn hỏi các bác nhiều đó).

 

[diemvuongvathuongde]

Các bác cho em hỏi, trong form những cái này nó tác dụng như thế nào?

Private Sub UserForm_Initialize()
End Sub
Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
End Sub
Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
End Sub

 

[anhtuan1066]

Cảm ơn anh Sa.. lâu lâu xin có những bài tập nhỏ nhỏ kiểu này.. Những người mới như em thấy dễ nuốt món mắc cổ hơn!

 

[dnphuonganh]

Có thể bạn tự học xem sao! Bằng cách bạn đối thoại với các đoạn mã này;
Như ni:
VD

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    MsgBox Target.Address, , "BeforeDoubleClick"
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    MsgBox Target.Address, , "Change"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    MsgBox Target.Address, , "SelectionChange"
End Sub

Sau đó thì bạn làm động tác gì excel sẽ báo cho bạn biết đã làm gì!

Sao em chép code này vào sheet mà chẳng thấy động tĩnh gì cả nhỉ?
Xin lỗi các nah, em chép nhầm vào workbook!

 

[anhtuan1066]

Sao em chép code này vào sheet mà chẳng thấy động tĩnh gì cả nhỉ?

Chắc bạn quất 1 phát hết 3 code ấy vào 1 lần chứ gì? He.. he.. Test từng em.. từng em một bạn ơi...
Mà nè... dù copy hết 3 code 1 lượt thì cũng phải có động tĩnh gì đó chứ... Im re là thế nào?

 

[dnphuonganh]

Em chép nhầm vào workbook một phát 3 "em"!!!!!!!!
Em dưa cả 3 em đó vào sheet thì OK anh ạ.
Em nhầm to!!!!

 

[anhtuan1066]

Em chép nhầm vào workbook một phát 3 "em"!!!!!!!!
Em dưa cả 3 em đó vào sheet thì OK anh ạ.
Em nhầm to!!!!

Cũng sai luôn... đưa từng em 1 thôi... thử xong cái này rồi đến cái kia.. Nếu ko thì chỉ có cái SelectionChange hoạt động trước đấy