[Hỏi] Code liệt kê các sheet không ẩn

Em có file excel này, khi ấn chọn "Open file" để mở 1 file excel thì ô C4 sẽ liệt kê tất cả các sheet trong file excel đó (bao gồm cả sheet ẩn). Bây giờ em muốn nó chỉ liệt kê các sheet đang hiện (không hiện các sheet ẩn) thì phải sửa code trong file excel đó như thế nào ạ.

love04 gửi lúc 6/10/2016 12:37
TKs anh, nhưng khi nhấn "Open file" thì nó vẫn hiện cả sheet ẩn anh ạ.

Tôi đã thử code rồi mới đưa file lên.
Có lẽ là chưa xóa kết quả cũ từ [C4] trở đi đã hiện diện tại đó trước rồi.
Thêm đoạn code để Xóa kết quả cũ (chèn vào dưới các khai báo biến)

[Visual Basic] 纯文本查看 复制代码

    If [C65500].End(xlUp).Row > 3 Then [C4].Resize([C65500].End(xlUp).Row - 3).ClearContents

Sửa code như sau:

[Visual Basic] 纯文本查看 复制代码

    For Each targetSheet In targetWB.Sheets
          If targetSheet.Visible Then
               targetSheetNames(targetSheet.Index) = targetSheet.Name
          End If
    Next targetSheet

Trong khai báo biến bị sai: Dim targetSheetNames() As Variant   chứ không phải là String đã sửa trong đính kèm
vidu_V1.xlsm (26.25 KB, Lượt tải về: 634)

6/10/2016 11:15 Tải lên

Click to download

TKs anh, nhưng khi nhấn "Open file" thì nó vẫn hiện cả sheet ẩn anh ạ.

dạ được rồi anh ạ. cho em hỏi 1 vấn đề nữa ạ. Trong file excel này, khi nhấn vào nút "In nhưng ko exit file" hoặc "In và exit file" nhưng em không muốn in nữa mà chọn thoát ra thì nó vẫn thực hiện lệnh in anh ạ. Phải sửa code như thế nào để khi thoát cửa sổ chọn máy in thì excel không thực hiện in ạ.

cám ơn nhiều, em cũng đang có mong muốn y chang như này