xin giúp code cho worksheet_change

[xsatteam]

xin các bác giúp hộ code sử dụng worksheet change

khi em điền giá trị text vào lần lượt các ô từ C5 đến C25 thì sau mỗi khi ấn enter để xuống ô kế , ẽxcel sẽ thực thi macro1

và macro1 chỉ thực thi khi activecell nằm ở trong vùng C5:C26

cảm ơn các bác!

 

[SA_DQ]

Nó đây bạn nè:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Target, Range("C5:C26")) Is Nothing Then
    Macro1:                   MsgBox "Chúc Xuan Vui Ve!",, "GPE.COM"
 End If
End Sub

 

[xsatteam]

đúng là cái nay rồi , thank bác nhiêu !