Phần mềm ôn thi sát hạch chứng chỉ hành nghề xây dựng
Tiêu đề: [Hỏi] Code liệt kê các sheet không ẩn [In trang] Tác giả: love04 Thời gian: 6/10/2016 10:27 Tiêu đề: [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 ạ.
Tác giả: tranhoe Thời gian: 6/10/2016 11:15
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
Tác giả: love04 Thời gian: 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ác giả: tranhoe Thời gian: 6/10/2016 13:35
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
Tác giả: love04 Thời gian: 7/10/2016 10:30
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 ạ. Tác giả: LeeNam Thời gian: 10/10/2016 07:45
cám ơn nhiều, em cũng đang có mong muốn y chang như này
Chào mừng ghé thăm Phần mềm ôn thi sát hạch chứng chỉ hành nghề xây dựng (https://xaydung360.vn/diendan/)
