Hỏi về ClasModule

[mymichau]

Em có tập tin VD1, sử dụng sự kiện WS_change tại sheet1 để đổi chử thướng sang chử HOA, sau đó em Export sheet1 thành sheet1.cls. Tiếp em mở 1 Workbook mới, Import file sheet1.cls vào thành sheet11 (ClassModule).
code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
Target = UCase(Target.Value)
End If
End Sub
Như vậy lào sao sử dụng ClassModule nầy để đổi chử thướng sang chử HOA ở Workbook mới.
Mục đích là em muốn tìm hiểu về ClassModule qua ví dụ nầy, em cũng đã xem các bài trước về ClassModule nhưng chưa hiểu được. Xin cảm ơn các Anh giúp.

 

[cadafi]

Em có tập tin VD1, sử dụng sự kiện WS_change tại sheet1 để đổi chử thướng sang chử HOA, sau đó em Export sheet1 thành sheet1.cls. Tiếp em mở 1 Workbook mới, Import file sheet1.cls vào thành sheet11 (ClassModule).
code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
Target = UCase(Target.Value)
End If
End Sub
Như vậy lào sao sử dụng ClassModule nầy để đổi chử thướng sang chử HOA ở Workbook mới.
Mục đích là em muốn tìm hiểu về ClassModule qua ví dụ nầy, em cũng đã xem các bài trước về ClassModule nhưng chưa hiểu được. Xin cảm ơn các Anh giúp.

Có cách khác là bạn tạo một Add-Ins với nội dung như trên. Sau đó cho đăng ký Add-Ins này. Khi đó, mỗi lần mở Excel thi Add-Ins này sẽ chạy thường trú trong Excel, ứng dụng cho tất cả các workbooks.

 

[mymichau]

Cảm ơn anh Kiệt. Chuyễn thành Add-in thì được rồi, nhưng Em muốn từ ví dụ nầy để tìm hiểu thêm về ClassModule ấy mà. Mong Anh TUANVNUNI và thầy Duyệt chỉ giúp.

 

[Nguyễn Duy Tuân]

Cảm ơn anh Kiệt. Chuyễn thành Add-in thì được rồi, nhưng Em muốn từ ví dụ nầy để tìm hiểu thêm về ClassModule ấy mà. Mong Anh TUANVNUNI và thầy Duyệt chỉ giúp.

Bạn đọc bài của tôi tại đây:
http://www.giaiphapexcel.com/forum/showthread.php?t=3868

Bạn tìm tới bài "clsExcelApp" .