Chọn sheet để in bằng lệnh Macro (1 người xem)

[tienphat85]

Mọi người giúp mình với.
Mình có 1 file excel, trong file có 3 sheet.
Sheet chính ở sheet1, phụ nằm sheet2. Khi mình in thì chỉ dùng thanh công cụ mình tạo trên thanh menu để xem (hoặc in) hàng loạt các thông tin của sheet 1 (lọc từ sheet2).
Khi mình chọn sheet 2 hoặc sheet3 thì mình muốn menu "thanh Menu" (trên thanh công cụ) ẩn đi, Khi chọn sheet1 thì nó lại hiện ra.
Các bạn trong diễn đàn giúp mình với!
Cảm ơn nhiều!

 

[viehoai]

Mọi người giúp mình với.
Mình có 1 file excel, trong file có 3 sheet.
Sheet chính ở sheet1, phụ nằm sheet2. Khi mình in thì chỉ dùng thanh công cụ mình tạo trên thanh menu để xem (hoặc in) hàng loạt các thông tin của sheet 1 (lọc từ sheet2).
Khi mình chọn sheet 2 hoặc sheet3 thì mình muốn menu "thanh Menu" (trên thanh công cụ) ẩn đi, Khi chọn sheet1 thì nó lại hiện ra.
Các bạn trong diễn đàn giúp mình với!
Cảm ơn nhiều!

Bạn bỏ code trong Workbook và đưa code sau vào sheet1 thử xem sao nhé:
[GPECODE=vb]Private Sub Worksheet_Activate()
MyMenu = Application.MenuBars(xlWorksheet).Menus.Count + 1
MenuBars(xlWorksheet).Menus.Add ToUni("™T&hanh Menu™"), MyMenu
MenuBars(xlWorksheet).Menus(MyMenu).MenuItems.Add Caption:=ToUni("&Xem tru7o71c khi in"), before:=1, OnAction:="macro_xem"
End Sub


Private Sub Worksheet_Deactivate()
On Error Resume Next
Application.CommandBars("Worksheet Menu Bar").Controls("™T&hanh Menu™").Delete
End Sub


[/GPECODE]

 

[tienphat85]

hic, vẫn chưa được viechoai ơi, mình copy đoạn mã trên vào nó vẫn như cũ.
Ý mình là: khi mình click sang Sheet 2 hoặc 3 thì thanh công cụ "Thanh Menu" bị ẩn đi, khi click lại Sheet1 thì nó hiện ra.
Nếu như bên VB6 thì dễ, còn bên VBE thì mình mới tập tò, hic

 

[tienphat85]

bên VB6 thì viết thêm lệnh if.... then và Visible = True hoặc False thì sẽ chạy. Bên này mình tìm mãi mà ko chạy

 

[ndu96081631]

hic, vẫn chưa được viechoai ơi, mình copy đoạn mã trên vào nó vẫn như cũ.
Ý mình là: khi mình click sang Sheet 2 hoặc 3 thì thanh công cụ "Thanh Menu" bị ẩn đi, khi click lại Sheet1 thì nó hiện ra.
Nếu như bên VB6 thì dễ, còn bên VBE thì mình mới tập tò, hic

Cho đoạn code dưới đây vào Sheet1 thử xem:

Private Sub Worksheet_Activate()
  On Error Resume Next
  Application.CommandBars(1).Controls("™T&hanh Menu™").Visible = True
End Sub
Private Sub Worksheet_Deactivate()
  On Error Resume Next
  Application.CommandBars(1).Controls("™T&hanh Menu™").Visible = False
End Sub

 

[tienphat85]

hehe. Được rồi bác ndu9608163, cảm ơn bác nhiều