Có cách nào paste code vào nhiều sheet 1 lúc! (1 người xem)

[AnhThu-1976]

Nhờ anh, chị hướng dẫn paste code vào nhiều sheet 1 lúc
Ví dụ trong 1 file có nhiều sheet và có code như sau

Private Sub Worksheet_activate()
...
End Sub

Thay vì em mở cửa sổ VAB của từng sheet để paste code vào
Bây giờ em muốn paste code vào 1 lúc nhiều sheet
P/s: Chỉ paste vào sheet mà em muốn, không paste toàn bộ các sheet trong File

 

[♫ђöล♥ßล†♥†µ♫]

Nhờ anh, chị hướng dẫn paste code vào nhiều sheet 1 lúc
Ví dụ trong 1 file có nhiều sheet và có code như sau

Private Sub Worksheet_activate()
...
End Sub

Thay vì em mở cửa sổ VAB của từng sheet để paste code vào
Bây giờ em muốn paste code vào 1 lúc nhiều sheet
P/s: Chỉ paste vào sheet mà em muốn, không paste toàn bộ các sheet trong File

Trong ThisWorkbook Bạn thử như vầy xem

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.ScreenUpdating = False
If InStr("Sheet1, Sheet2, Sheet3", Sh.Name) > 0 Then
    MsgBox "Day la Code cua ban"
End If
Application.ScreenUpdating = True
End Sub

 

[AnhThu-1976]

Trong ThisWorkbook Bạn thử như vầy xem

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Application.ScreenUpdating = False
    MsgBox "Day la Code cua ban"
    Application.ScreenUpdating = True
End Sub

Mình chưa hiểu lắm, mình muốn chép code vào 1 lúc nhiều sheet
Nó giống như paste cùng 1 nội dung vào 1 lúc nhiều sheet đó!

 

[♫ђöล♥ßล†♥†µ♫]

Mình chưa hiểu lắm, mình muốn chép code vào 1 lúc nhiều sheet
Nó giống như paste cùng 1 nội dung vào 1 lúc nhiều sheet đó!

Cho vào ThisWorkbook cứ đến Sheet nào mình quy định thì nó chạy. Mình sửa lại bài 2 (bạn xem thử). Làm vậy cho gọn
Ví dụ Mình chỉ cho Code chạy trên Sheet1, Sheet2, Sheet3

 

[ndu96081631]

Mình chưa hiểu lắm, mình muốn chép code vào 1 lúc nhiều sheet
Nó giống như paste cùng 1 nội dung vào 1 lúc nhiều sheet đó!

Thường nếu code trên nhiều sheet mà cùng chức năng thì chẳng ai đi viết nhiều code cho nhiều sheet cả (nên chẳng cần suy nghĩ đến cái chuyện paste)
Trong trường hợp này ta xài sự kiện trên Workbook (sẽ "bao" toàn bộ các sheet) giống bài 2 đấy