Tạo sự kiện cho nhiều TextBox

[le tin]

Chào các bạn
Tôi muốn tạo sự kiện Change đồng thời cho nhiều TextBox . Ví dụ trên Sheet ta làm cho 10 cell
===
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1:A10]) Is Nothing Then
........
End If
End sub
===
thì trên form ta làm cho 10 TextBox bằng cách nào .
Xin chỉ giúp . Cảm ơn

 

[ndu96081631]

Chào các bạn
Tôi muốn tạo sự kiện Change đồng thời cho nhiều TextBox . Ví dụ trên Sheet ta làm cho 10 cell
===
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1:A10]) Is Nothing Then
........
End If
End sub
===
thì trên form ta làm cho 10 TextBox bằng cách nào .
Xin chỉ giúp . Cảm ơn

Câu trả lời là dùng Class Module
Bạn có thể tham khảo cách làm ở đây:
http://www.giaiphapexcel.com/forum/showthread.php?37075-Dùng-Class-Module-để-tạo-sự-kiện-người-dùng
Vậy:
- Hoặc là bạn tự tham khảo rồi tự tùy biến cho file của mình
- Hoặc là bạn cho file lên đây nếu không tự làm được