Tạo nút nhấn để hiện 1 sheet mong muốn trong các sheet có trong file. (1 người xem)

[vovanthanh2602]

Mình cần Tạo nút nhấn trong sheet 1 để hiện sheet 2 trong các sheet có trong file. bằng macro . ban đầu thì sheet 2 bị ẩn ạ. nhấn nút 1 cái là ssheet2 hiện lên ạ.mong các bạn giúp đở , thanks .

 

[hunglam123]

Mình cần Tạo nút nhấn trong sheet 1 để hiện sheet 2 trong các sheet có trong file. bằng macro . ban đầu thì sheet 2 bị ẩn ạ. nhấn nút 1 cái là ssheet2 hiện lên ạ.mong các bạn giúp đở , Cảm ơn .

Sub hiensheet2()
  Sheets("Sheet2").Visible = True
Sheets("sheet2").Select
End Sub

 

[vovanthanh2602]

Sub hiensheet2()
  Sheets("Sheet2").Visible = True
Sheets("sheet2").Select
End Sub

Cám ơn bạn nhiều nhé.
Bạn cho mình hỏi thêm là. có cách nào khi mình nhấn nút hiện sheet 2 xong. khi mình save file là sheet 2 tự động ẩn đi lại ko ạ. hoặc khi mình tắc file đi rồi khi mở lại file là sheet 2 bị ẩn đi ak. rồi khi mình nhấn nút hiện sheet 2 nó mới hiện lại ak . cám ơn ạ.

 

[BuiQuangThuan]

Vào sự kiện workbook trước khi tắt.hoặc mở. Đặt sheet2 ẩn đi là được

 

[hunglam123]

Cám ơn bạn nhiều nhé.
Bạn cho mình hỏi thêm là. có cách nào khi mình nhấn nút hiện sheet 2 xong. khi mình save file là sheet 2 tự động ẩn đi lại ko ạ. hoặc khi mình tắc file đi rồi khi mở lại file là sheet 2 bị ẩn đi ak. rồi khi mình nhấn nút hiện sheet 2 nó mới hiện lại ak . cám ơn ạ.

Chọn 1 trong 2

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Sheets("Sheet2").Visible = False
Sheets("sheet1").Select
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

  Sheets("Sheet2").Visible = False
Sheets("sheet1").Select

End Sub

 

[vovanthanh2602]

Chọn 1 trong 2

View attachment 234515

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Sheets("Sheet2").Visible = False
Sheets("sheet1").Select
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

  Sheets("Sheet2").Visible = False
Sheets("sheet1").Select

End Sub

Mình làm được rồi.
Bạn giúp mình chút nữa để file mình hoàn chỉnh ạ.
Mình muốn nhấn 1 nút ở sheet 1. thì sẽ hiện sheet 2( đã bị ẩn trước đó,nhưng vẫn giữ tính năng ẩn sheet khi save hoặc tắt file nhé ) , nhưng view vẫn ở sheet 1 mà không tự mở sang sheet 2. đồng thời tự động PRINT sheet 2 lun. cam on nhiu lắm lun ạ.

 

[BuiQuangThuan]

Mình làm được rồi.
Bạn giúp mình chút nữa để file mình hoàn chỉnh ạ.
Mình muốn nhấn 1 nút ở sheet 1. thì sẽ hiện sheet 2( đã bị ẩn trước đó,nhưng vẫn giữ tính năng ẩn sheet khi save hoặc tắt file nhé ) , nhưng view vẫn ở sheet 1 mà không tự mở sang sheet 2. đồng thời tự động PRINT sheet 2 lun. cam on nhiu lắm lun ạ.

bạn gán cái modul hiện sheet này cái nút bấm. nó sẽ tự động hiện sheet2 rồi tự động in sheet 2 luôn

Sub hiensheet2()
  Sheets("Sheet2").Visible = True
Sheets("sheet2").Select
Sheets("sheet2").PrintOut
End Sub

 

[vovanthanh2602]

bạn gán cái modul hiện sheet này cái nút bấm. nó sẽ tự động hiện sheet2 rồi tự động in sheet 2 luôn

Sub hiensheet2()
  Sheets("Sheet2").Visible = True
Sheets("sheet2").Select
Sheets("sheet2").PrintOut
End Sub

có cách nào không cho nó view sheet 2 mà vẫn tự in được sheet 2 không bạn. ( nhấn nút 1 cái ở sheet 1 là sheet 2 tự hiên ra và in lun sheet 2. view vẫn đang ở sheet 1)

 

[BuiQuangThuan]

có cách nào không cho nó view sheet 2 mà vẫn tự in được sheet 2 không bạn. ( nhấn nút 1 cái ở sheet 1 là sheet 2 tự hiên ra và in lun sheet 2. view vẫn đang ở sheet 1)

khi bạn vẫn muốn view mà muốn nó in tự động nữa thì không thể. chỉ có view lên. rồi bạn thao tác tắt view đi thì nó tự động in ra.