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

Liên hệ QC

Bùi Thúy Thúy

Thành viên thường trực
Tham gia
2/7/18
Bài viết
289
Được thích
38
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

  • File cua toi.xlsm
    2 MB · Đọc: 23
Lần chỉnh sửa cuối:
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:
Upvote 0
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é.
 
Upvote 0
@Bùi Thúy Thúy
Tôi khuyên cô gái nếu dư thời gian thì nên ngủ đi. Vì có giỏi và hiểu biết đến mấy cũng là tầm thường
 
Upvote 0
-> @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
 
Upvote 0
Web KT
Back
Top Bottom