Xoá sheet trên excel bằng macro

[cuabacang]

Rất cảm ơn bác Vet"mini" em đã áp dụng vào bài excel của em và thành công. Có lẽ em nên đổi tên thành Vẹt to lớn mất hehe, em nói đùa bác thôi, dù sao cũng rút đc ra kinh nghiệm từ bác. Cho em xin lỗi bác nốt lần này "Thank's Bác"

 

[cuabacang]

gửi bác Vetmini sau 1 hồi em lại thấy em đúng là con vẹt to lớn thật, vấn đề là như sau, nhờ bác em đã biết cách xóa sheet( chủ yếu là xóa nhanh nhưng sheet ko thuộc phân công của mình cho nhẹ file excel) nhưng giờ lại tồn tại 1 vấn đề là khi em ẩn sheet thì mã mà bác hướng đẫn em lại ko dùng đc, ví dụ em muốn xóa sheet đầu A1 nhưng em lại để những sheet đó ẩn nên mã bác em ko dùng dc, vậy kính mong bác cho vẹt to lớn là em được to lớn thêm dc ko ạ. CẢM ƠN BÁC!

 

[Quang_Hải]

gửi bác Vetmini sau 1 hồi em lại thấy em đúng là con vẹt to lớn thật, vấn đề là như sau, nhờ bác em đã biết cách xóa sheet( chủ yếu là xóa nhanh nhưng sheet ko thuộc phân công của mình cho nhẹ file excel) nhưng giờ lại tồn tại 1 vấn đề là khi em ẩn sheet thì mã mà bác hướng đẫn em lại ko dùng đc, ví dụ em muốn xóa sheet đầu A1 nhưng em lại để những sheet đó ẩn nên mã bác em ko dùng dc, vậy kính mong bác cho vẹt to lớn là em được to lớn thêm dc ko ạ. CẢM ƠN BÁC!

Nếu không rành về code thì cứ chọn mấy cái cơ bản mà phang tới.
Đối với câu lệnh Select thì sheet đó phải đang ở chế độ hiện (Visible)
Cho nên trước khi Select phải cho nó hiện ra bằng lệnh .Visible=True, rồi mới xoá được

 

[cuabacang]

thực ra là em học về kinh tế mới ra trường, kiến thức về excel đúng là gà mờ lắm, chỉ là em muốn xin các bác 1 số macro hay để áp dụng vào thực tiễn, vậy mong các bác thông cảm vì nhiều câu hỏi hơi ngây ngô, và có gì các bác chi đẫn chi tiết cho hộ em mới dc ko, mặc dù mang tiếng ăn sẵn, nhưng vì trình độ chuyên môn em thấp quá, cảm ơn bác

 

[cuabacang]

em cảm ơn bác Quang Hải nhờ bác nói mà đã vỡ ra 1 số kiến thức và em đã viết thêm 1 đoạn mã vào áp dụng của bác Vetmini và đã thành công. Vậy lần cuối ở chủ đề này em xin cảm ơn mọi người đặc biệt là bác Q.Hải và bác Vẹt, xin cảm ơn 2 bác

 

[nguahoangsad]

Có thể đưa tên sheet cần xoá vào InputBox để tiện lựa chọn.

Sub DelWs()
Application.DisplayAlerts = False
Dim Ws As Worksheet, WsName
WsName = Application.InputBox("Nhap ten sheet:")
For Each Ws In ThisWorkbook.Worksheets
    If UCase(Ws.Name) Like UCase(WsName & "*") And Ws.Name <> "Sheet1" Then
        Ws.Delete
    End If
Next Ws
Application.DisplayAlerts = True
End Sub

Có cách nào để định cho nó một ngày tháng năm nào đó tự xóa các sheet mình định sẳn không Bạn.

 

[nguahoangsad]

Nếu là mình thì sẽ mò theo kiểu abc. Nghĩ sao thì kêu code làm y vậy cho khoẻ.
Nếu có 100 dk thì code 100 dòng mỏi tay luôn

For Each sh In Worksheets
   If Left(sh.Name, 2) = "A1" Then sh.Delete
   If Left(sh.Name, 2) = "A2" Then sh.Delete      
   If Left(sh.Name, 2) = "A3" Then sh.Delete
Next

@Quang Hai cho em hỏi có cách này để thêm vào ngày tháng năm tự xóa các sheet định sẳn không Anh? giúp Em với