Chuyển code Unhide nhiều sheet thành Add-ins

hoanglocphat

Thành viên thường trực
Tham gia ngày
27 Tháng một 2013
Bài viết
241
Được thích
29
Điểm
385
Các bạn cho tôi hỏi, tôi có code unhide tất cả các sheet
PHP:
Sub UnHideSheet()
   For Each sh In ThisWorkbook.Worksheets
       sh.Visible = True
   Next sh
End Sub
Bây giờ tôi muốn chuyển thành Add-ins thì code phải sửa như thế nào
Vì code trên đang ở file 1 mà chạy code cho file 2 để mở các sheet ẩn thì không được (đã mở 1 lúc 2 file)
Cảm ơn các bạn!
 

snow25

Thành viên gắn bó
Tham gia ngày
24 Tháng bảy 2018
Bài viết
2,596
Được thích
2,477
Điểm
360
Các bạn cho tôi hỏi, tôi có code unhide tất cả các sheet
PHP:
Sub UnHideSheet()
   For Each sh In ThisWorkbook.Worksheets
       sh.Visible = True
   Next sh
End Sub
Bây giờ tôi muốn chuyển thành Add-ins thì code phải sửa như thế nào
Vì code trên đang ở file 1 mà chạy code cho file 2 để mở các sheet ẩn thì không được (đã mở 1 lúc 2 file)
Cảm ơn các bạn!
Thử cái này coi.
Mã:
Sub UnHideSheet()
   Dim i As Integer
   For i = 1 To Sheets.Count
       Sheets(i).Visible = True
   Next
End Sub
 

VetMini

Chuyên gia GPE
Tham gia ngày
21 Tháng mười hai 2012
Bài viết
9,245
Được thích
10,943
Điểm
1,560
With WorkBooks("file 2")
For Each ws In .WorkSheets
...
Next ws
End With
 

ndu96081631

Huyền thoại GPE
Thành viên BQT
Super Moderator
Tham gia ngày
5 Tháng sáu 2008
Bài viết
30,423
Được thích
53,019
Điểm
11,910
Các bạn cho tôi hỏi, tôi có code unhide tất cả các sheet
PHP:
Sub UnHideSheet()
   For Each sh In ThisWorkbook.Worksheets
       sh.Visible = True
   Next sh
End Sub
Bây giờ tôi muốn chuyển thành Add-ins thì code phải sửa như thế nào
Vì code trên đang ở file 1 mà chạy code cho file 2 để mở các sheet ẩn thì không được (đã mở 1 lúc 2 file)
Cảm ơn các bạn!
Code tôi không bàn đến, chỉ lưu ý rằng bảng tính có mấy loại: Worksheet, Chart, Excel 4.0 Macro Excel 5.0 Dialog.
Vậy nếu bạn For Each sh In ThisWorkbook.Worksheets thì nghĩa là bạn chỉ quan tâm đến Worksheet, loại khác sẽ không có tác dụng
 

giaiphap

==(^o^)==
Tham gia ngày
12 Tháng ba 2007
Bài viết
5,145
Được thích
4,716
Điểm
860
Code tôi không bàn đến, chỉ lưu ý rằng bảng tính có mấy loại: Worksheet, Chart, Excel 4.0 Macro Excel 5.0 Dialog.
Vậy nếu bạn For Each sh In ThisWorkbook.Worksheets thì nghĩa là bạn chỉ quan tâm đến Worksheet, loại khác sẽ không có tác dụng
Vậy muốn tất cả thì sao anh Tuấn.
 

huuthang_bd

Chuyên gia GPE
Tham gia ngày
10 Tháng chín 2008
Bài viết
7,453
Được thích
8,553
Điểm
860
Nơi ở
TP.HCM
Nếu là tôi thì tôi chỉ unhide all sheets tạm thời, xem xong thì trả về nguyên hiện trạng.
 

HeSanbi

Thành viên tích cực
Tham gia ngày
24 Tháng hai 2013
Bài viết
1,400
Được thích
1,403
Điểm
560
Bạn tham khảo addin di chuyển qua lại giữa các Sheet này xem sao
 
Top Bottom