Làm thế nào để duyệt qua các sheet được chọn? (1 người xem)

[bivily]

Mình có một bảng tính gồm rất nhiều sheets. Mình viết lệnh để xử lý các sheet được chọn nhưng không biết cách làm thế nào để VBA biết mình đang chọn bao nhiêu sheet? Và đó là những sheet nào? Xin mọi người chỉ giúp.

Cám ơn nhiều!

 

[Hanguyenktxd]

Cám ơn bạn Ba Tê, bạn SA_DQ
Đầu năm chúc các bạn cùng toàn thể mọi người trên diễn đàn một năm mới gặp nhiều may mắn. cho mình hỏi các bạn thêm một câu nữa, mình viết thủ tục xóa tất cả các sheet trừ sheet đầu tiên (sheet1) thì code như thế nào

 

[Kiều Mạnh]

Cám ơn bạn Ba Tê, bạn SA_DQ
Đầu năm chúc các bạn cùng toàn thể mọi người trên diễn đàn một năm mới gặp nhiều may mắn. cho mình hỏi các bạn thêm một câu nữa, mình viết thủ tục xóa tất cả các sheet trừ sheet đầu tiên (sheet1) thì code như thế nào

Thử code sau xem nha

Sub Delete_Sheet()
    Dim sht As Worksheet
    Application.DisplayAlerts = False
    For Each sht In ActiveWorkbook.Worksheets
       If sht.Name <> "Sheet1" Then
          sht.Delete
       End If
    Next
    Application.DisplayAlerts = True
End Sub