Quản lý (ẩn hiện) các sheet

Bùi Thúy Thúy

Thành viên thường trực
Tham gia ngày
2 Tháng bảy 2018
Bài viết
217
Được thích
27
Điểm
185
Tuổi
32
Em xin được nhờ sự giúp đỡ quản lý (ẩn và hiện sheet ) trong file.
Em có sử dụng add in quản lý sheet trên GPE nhưng mỗi lần dùng file em sử dụng (có đính kèm bên dưới) đều phải load lại các add in muốn sử dụng từ đầu, file em sử dụng thực chất cũng là 1 add in mất phí và có pass (khi sử dụng add in này thì các add in khác muốn dử dụng phải load lại từ đầu, mỗi lần vậy rất mất thời gian)
Nhờ các Anh chị giúp em code chèn trực tiếp vào UserForm của file em đính kèm bên dưới để tạo nên cách quản lý sheet trong file.
pass: Anh chị có ý tưởng nào hay góp ý giúp em luôn :D
Em xin cảm ơn!
 

File đính kèm

Lần chỉnh sửa cuối:

HeSanbi

Thành viên tích cực
Tham gia ngày
24 Tháng hai 2013
Bài viết
876
Được thích
642
Điểm
560
mỗi lần vậy rất mất thời gian
Nếu dư thời gian cô gái sẽ làm gì. Lướt Facebook, Xem Youtube, Nhắn tin ABC, Đọc báo, Cafe, Hẹn Hò, Ngủ, ...

PHP:
'Thêm Add in khi khởi động
Private Sub Workbook_Open()
  On Error Resume Next
  Application.AddIns("....").Installed = False
  On Error GoTo 0
  With Application
    .AddIns.Add ".....", False
    .AddIns(".....").Installed = True
  End With
End Sub
' Ẩn hiện Sheets
' Sheets(1).Visible = xlSheetVeryHidden ' (Hiện lại bằng VBA) với xlSheetHidden (Có thể hiện lại bằng tay)
' Sheets(1).Visible = xlSheetVisible ' Hiện
'Bạn tự hoàn thiện Code nhé.
 
Lần chỉnh sửa cuối:

Bùi Thúy Thúy

Thành viên thường trực
Tham gia ngày
2 Tháng bảy 2018
Bài viết
217
Được thích
27
Điểm
185
Tuổi
32
Nếu dư thời gian cô gái sẽ làm gì. Lướt Facebook, Xem Youtube, Nhắn tin ABC, Đọc báo, Cafe, Hẹn Hò, Ngủ, ...

PHP:
'Thêm Add in khi khởi động
Private Sub Workbook_Open()
  On Error Resume Next
  Application.AddIns("....").Installed = False
  On Error GoTo 0
  With Application
    .AddIns.Add ".....", False
    .AddIns(".....").Installed = True
  End With
End Sub
' Ẩn hiện Sheets
' Sheets(1).Visible = xlSheetVeryHidden ' (Hiện lại bằng VBA) với xlSheetHidden (Có thể hiện lại bằng tay)
' Sheets(1).Visible = xlSheetVisible ' Hiện
'Bạn tự hoàn thiện Code nhé.
cám ơn anh, dư thời gian em sẽ học VBA anh ạ! anh giúp em nhé!
Bài đã được tự động gộp:

Nếu dư thời gian cô gái sẽ làm gì. Lướt Facebook, Xem Youtube, Nhắn tin ABC, Đọc báo, Cafe, Hẹn Hò, Ngủ, ...

PHP:
'Thêm Add in khi khởi động
Private Sub Workbook_Open()
  On Error Resume Next
  Application.AddIns("....").Installed = False
  On Error GoTo 0
  With Application
    .AddIns.Add ".....", False
    .AddIns(".....").Installed = True
  End With
End Sub
' Ẩn hiện Sheets
' Sheets(1).Visible = xlSheetVeryHidden ' (Hiện lại bằng VBA) với xlSheetHidden (Có thể hiện lại bằng tay)
' Sheets(1).Visible = xlSheetVisible ' Hiện
'Bạn tự hoàn thiện Code nhé.
 

HeSanbi

Thành viên tích cực
Tham gia ngày
24 Tháng hai 2013
Bài viết
876
Được thích
642
Điểm
560
-> @Bùi Thúy Thúy
<"dư thời gian em sẽ học VBA">
Giỏi , Siêng Năng
<"anh giúp em nhé!">
Giúp như thế nào. Sách vở, Internet chưa đủ cho cô gái học sao
 
Top Bottom