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

Liên hệ QC

hoanglocphat

Thành viên thường trực
Tham gia
27/1/13
Bài viết
258
Được thích
30
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!
 
Bạn sửa ThisWorkbook thành ActiveWorkbook.
 
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
 
With WorkBooks("file 2")
For Each ws In .WorkSheets
...
Next ws
End With
 
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
 
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.
 
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.
 
Bạn tham khảo addin di chuyển qua lại giữa các Sheet này xem sao
 
Web KT
Back
Top Bottom