Chuyển code Unhide nhiều sheet thành Add-ins (2 người xem)

[hoanglocphat]

Các bạn cho tôi hỏi, tôi có code unhide tất cả các sheet

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!

 

[huuthang_bd]

Bạn sửa ThisWorkbook thành ActiveWorkbook.

 

[snow25]

Các bạn cho tôi hỏi, tôi có code unhide tất cả các sheet

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.

Sub UnHideSheet()
   Dim i As Integer
   For i = 1 To Sheets.Count
       Sheets(i).Visible = True
   Next
End Sub

 

[VetMini]

With WorkBooks("file 2")
For Each ws In .WorkSheets
...
Next ws
End With

 

[ndu96081631]

Các bạn cho tôi hỏi, tôi có code unhide tất cả các sheet

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 và 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]

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 và 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.

 

[ndu96081631]

Vậy muốn tất cả thì sao anh Tuấn.

  Dim sh As Object
  For Each sh In Sheets
    sh.Visible = -1
  Next

Tôi nghĩ là vậy!

 

[NghiaKieu]

Em thì thêm marco vào Quick Access Toolbar luôn dùng cho tiện (https://trumpexcel.com/unhide-sheets-excel/)

Sub UnhideAllSheets()
For Each Sheet In Sheets
    Sheet.Visible = True
Next Sheet
End Sub

 

[huuthang_bd]

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]

Bạn tham khảo addin di chuyển qua lại giữa các Sheet này xem sao

Addin Di chuyển đến bất kì sổ làm việc và trang tính nào một cách nhanh chóng

Hôm nay tôi xin được chia sẻ với các bạn một Add-ins (bổ trợ) hữu ích, giúp cho các bạn thuận tiện hơn trong việc di chuyển qua lại giữa các Worksheet (Trang tính) hoặc giữa các Workbook (Sổ làm việc) trong quá trình làm việc với Excel của mình. Tiện ích của Add-ins: + Di chuyển nhanh giữa các...

www.giaiphapexcel.com