toandiennuoc123
Thành viên thường trực
- Tham gia
- 7/3/12
- Bài viết
- 239
- Được thích
- 9
Xin chào ACE trên diễn đàn. nhờ ACE xem hộ cách gọi đoạn code này. Xin chân thành cám ơn.
trong modul1
Public Sub thuctap()
trong workbook
Public Sub Workbook_Change(ByVal Target As Range)
If Not Intersect(Union([bq18], [BX20:CG29]), Target) Is Nothing Then
thuctap
End Sub
trong Sheet
Private Sub Worksheet_Change(ByVal Target As Range)
trong modul1
Public Sub thuctap()
trong workbook
Public Sub Workbook_Change(ByVal Target As Range)
If Not Intersect(Union([bq18], [BX20:CG29]), Target) Is Nothing Then
thuctap
End Sub
trong Sheet
Private Sub Worksheet_Change(ByVal Target As Range)
Lần chỉnh sửa cuối:
