Giúp viết code dùng cho tất cả các sheets

Liên hệ QC

mymichau

Thành viên hoạt động
Tham gia
28/11/06
Bài viết
172
Được thích
114
Em có đọan code :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.Hide
If Target.Address = "$A$1" Then
UserForm1.Show
End If
End Sub
Thay vì Code được viết trên sheet nào thì sheet đó thực hiện. Nay nhờ các anh chị giúp viết làm sao cho tất các sheet cùng thực hiện được trong workbook.
 
Tôi đã thử, OK.
 
Upvote 0
Ok thì nên Click vào nút Thanks bạn ạ.

Thân!
 
Upvote 0
Cái này gọi là spam cấp cao.
 
Upvote 0
Dear all,
-------
Em thì không thích bàn đến chuyện "bên ngoài", e rằng mymichau sẽ khó chịu khi đọc những bài viết không phải là sự hỗ trợ cho khúc mắc của mình.
Khi tham gia diễn đàn, chúng ta nên đóng vai trò là người đặt vấn đề để hiểu được nỗi bức xúc của họ.
Trở lại với đề tài "Giúp viết code dùng cho tất cả các sheets", liệu đã thực sự OK khi ý định của mymichau là muốn lợi dụng sự kiện SelectionChange thì bài trả lời lại áp dụng sự kiện SheetChange. Theo đề bài thì phải là áp dụng sự kiện mới đúng Workbook_SheetSelectionChange.

Với những người mới bắt đầu như mimychau, họ chưa hình dung được phạm vi hoạt động của 1 thủ tục (chưa biết khái niệm về Module, Sub, Function, Private, Public... nên mới đặt ra câu hỏi như vậy). Vì vậy chúng ta cần giải thích cho bạn ấy hiểu thêm:
Muốn thủ tục được thi hành trong phạm vi nào thì bạn đưa thủ tục vào module phạm vi đó. Sự kiện xảy ra cho đối tượng nào thì áp dụng thủ tục sự kiện cho đối tượng đó. Ở đây bạn muốn lợi dụng sự kiện SelectionChange của mọi Sheet trong Workbook thì thủ tục sự kiện phải được viết trong module ThisWorkBook.
Khi đã hiểu được cần phải đưa thủ tục vào đâu thì việc lựa chọn sự kiện cho phù hợp là tuỳ bạn, việc viết code cũng không khác mấy (lưu ý thêm tham số ByVal Sh As Object).
Xem thêm: Tìm hiểu về thủ tục sự kiện
 
Lần chỉnh sửa cuối:
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom