Code Vba Xóa Sheet Có điều Kiện | Giải Pháp Excel

• Trang chủ Có gì mới Hoạt động gần nhất Tác giả
• Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
• Video Video về Excel Video về tin học khác Tin tức về tin học chung
• Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
• Tài nguyên Đánh giá mới nhất Tìm tài nguyên
• Facebook
• Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…

• Tìm bài viết mới
• Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

• Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Code vba xóa sheet có điều kiện (1 người xem)

• Thread starter Thread starter nhk007dn
• Ngày gửi Ngày gửi 15/5/15

Người dùng đang xem chủ đề này

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2) N

nhk007dn

Thành viên chính thức

Tham gia 12/11/12 Bài viết 74 Được thích 7 Mình tìm trên GPE thấy nhiều code xóa sheet, nhưng chưa thấy đoạn code mình định nhờ nên lập topic này nhờ các bạn giúp. Nhờ các bạn giúp 2 đoạn code xóa sheet với điều kiện: Đoạn 1: Xóa các sheet có tên là các con số, và các sheet có tên là số và chữ (số phải đứng trước chữ) (vd: 1, 2, ..., 22, 23,..., 16-chữ, 17-chữ,...) miễn tìm sheet nào có tên dạng 'số' và 'số-chữ' là xóa. Đoạn 2: Xóa tất cả các sheet, trừ sheet hiện hành và sheet ẩn (nếu có) với dòng thống báo 'Chắc chưa? Xóa nhầm đừng hối hận' Mình cảm ơn! (Các bạn thông cảm, vì cùng code xóa sheet, cùng 1 người hỏi, và cùng 1 thời điểm hỏi nên mình gom 2 đoạn code lại 1 topic này cho tiện. Nếu vi phạm nội quy thì nhờ các bạn nhắc nhở để mình sửa bài.) Lần chỉnh sửa cuối: 15/5/15 Sắp xếp theo thời gian sắp xếp theo bầu chọn

phihndhsp

Thành viên gạo cội

Tham gia 26/12/09 Bài viết 3,363 Được thích 2,489 Giới tính Nam Nghề nghiệp Giáo Viên

nhk007dn đã viết: Mình tìm trên GPE thấy nhiều code xóa sheet, nhưng chưa thấy đoạn code mình định nhờ nên lập topic này nhờ các bạn giúp. Nhờ các bạn giúp 2 đoạn code xóa sheet với điều kiện: Đoạn 1: Xóa các sheet có tên là các con số, và các sheet có tên là số và chữ (số phải đứng trước chữ) (vd: 1, 2, ..., 22, 23,..., 16-chữ, 17-chữ,...) miễn tìm sheet nào có tên dạng 'số' và 'số-chữ' là xóa. Đoạn 2: Xóa tất cả các sheet, trừ sheet hiện hành và sheet ẩn (nếu có) với dòng thống báo 'Chắc chưa? Xóa nhầm đừng hối hận' Mình cảm ơn! (Các bạn thông cảm, vì cùng code xóa sheet, cùng 1 người hỏi, và cùng 1 thời điểm hỏi nên mình gom 2 đoạn code lại 1 topic này cho tiện. Nếu vi phạm nội quy thì nhờ các bạn nhắc nhở để mình sửa bài.) Nhấp chuột vào đây để mở rộng...

Mã: Sao chép. Dim sh As Worksheet đoạn 1 tương ứng yêu cầu 1 'For Each sh In Worksheets ' If IsNumeric(sh.Name) Or IsNumeric(Left(sh.Name, 1)) Then ' sh.Cells.Clear ' End If 'Next đoạn 2 tương ứng yêu cầu 2 For Each sh In Worksheets If sh.Name <> ActiveSheet.Name And sh.Visible = True Then sh.Cells.Clear End If Next xem có đáp ứng yêu cầu của bạn không Upvote 0 N

nhk007dn

Thành viên chính thức

Tham gia 12/11/12 Bài viết 74 Được thích 7

phihndhsp đã viết: Mã: Sao chép. Dim sh As Worksheet đoạn 1 tương ứng yêu cầu 1 'For Each sh In Worksheets ' If IsNumeric(sh.Name) Or IsNumeric(Left(sh.Name, 1)) Then ' [COLOR=#ff0000]sh.Cells.Clear[/COLOR] ' End If 'Next đoạn 2 tương ứng yêu cầu 2 For Each sh In Worksheets If sh.Name <> ActiveSheet.Name And sh.Visible = True Then [COLOR=#ff0000]sh.Cells.Clear[/COLOR] End If Next xem có đáp ứng yêu cầu của bạn không Nhấp chuột vào đây để mở rộng...

Mình có thể tùy biến dòng màu đỏ cho các yêu cầu tương tự. Cảm ơn bạn và chúc vui vẻ! Upvote 0 T

thanhthat

Thành viên chính thức

Tham gia 30/5/08 Bài viết 85 Được thích 5

phihndhsp đã viết: Mã: Sao chép. Dim sh As Worksheet đoạn 1 tương ứng yêu cầu 1 'For Each sh In Worksheets ' If IsNumeric(sh.Name) Or IsNumeric(Left(sh.Name, 1)) Then ' sh.Cells.Clear ' End If 'Next đoạn 2 tương ứng yêu cầu 2 For Each sh In Worksheets If sh.Name <> ActiveSheet.Name And sh.Visible = True Then sh.Cells.Clear End If Next xem có đáp ứng yêu cầu của bạn không Nhấp chuột vào đây để mở rộng...

Mình có một File rất nhiều Sheet, nhờ Bạn code giúp như yêu cầu sau với 1/ Mình muốn lưu file mới có lựa chọn sheet, sẽ lưu file mới có danh sách lựa chọn một vài sheet trên đó, hoặc gồm tất cả các sheet (trừ sheet "Maint" điều khiển, như File kèm). 2/ Tương tự việc xóa sheet cũng vậy, có danh sách lựa chọn xóa một vài sheet hoặc chọn xóa tất cả (trừ xóa sheet Maint). Cám ơn Bạn nhiếu !!!

File đính kèm

• Save and Dele SomeSheets.xlsm Save and Dele SomeSheets.xlsm 21.9 KB · Đọc: 103

Upvote 0

befaint

|||||||||||||

Tham gia 6/1/11 Bài viết 14,600 Được thích 19,840

thanhthat đã viết: Mình có một File rất nhiều Sheet, nhờ Bạn code giúp như yêu cầu sau với 1/ Mình muốn lưu file mới có lựa chọn sheet, sẽ lưu file mới có danh sách lựa chọn một vài sheet trên đó, hoặc gồm tất cả các sheet (trừ sheet "Maint" điều khiển, như File kèm). 2/ Tương tự việc xóa sheet cũng vậy, có danh sách lựa chọn xóa một vài sheet hoặc chọn xóa tất cả (trừ xóa sheet Maint). Cám ơn Bạn nhiếu !!! Nhấp chuột vào đây để mở rộng...

Mục 2. Tôi có viết một addins cũng lâu lâu rồi... Bạn thử dùng xem có được không nhé.

File đính kèm

• Del_Sheets.xla Del_Sheets.xla 58 KB · Đọc: 256

Upvote 0 T

thanhthat

Thành viên chính thức

Tham gia 30/5/08 Bài viết 85 Được thích 5

befaint đã viết: Mục 2. Tôi có viết một addins cũng lâu lâu rồi... Bạn thử dùng xem có được không nhé. Nhấp chuột vào đây để mở rộng...

Bạn cho mình code luon duoc không, Mình cho vao file luôn. Cám ơn Bạn ! Upvote 0

befaint

|||||||||||||

Tham gia 6/1/11 Bài viết 14,600 Được thích 19,840

thanhthat đã viết: Bạn cho mình code luon duoc không, Mình cho vao file luôn. Cám ơn Bạn ! Nhấp chuột vào đây để mở rộng...

Không phải addins là tiện quá rồi sao (ở workbook nào cũng dùng được). Xem code thì tự vào file mà coi thôi. Upvote 0 T

thanhthat

Thành viên chính thức

Tham gia 30/5/08 Bài viết 85 Được thích 5

befaint đã viết: Mục 2. Tôi có viết một addins cũng lâu lâu rồi... Bạn thử dùng xem có được không nhé. Nhấp chuột vào đây để mở rộng...

Nhờ Bạn làm tiếp giúp mình mục 1 với được không. Cám ơn nhiều. Upvote 0

quanluu

Thành viên gắn bó

Tham gia 11/4/13 Bài viết 2,157 Được thích 1,274 Donate (Momo) Giới tính Nam

thanhthat đã viết: Mình có một File rất nhiều Sheet, nhờ Bạn code giúp như yêu cầu sau với 1/ Mình muốn lưu file mới có lựa chọn sheet, sẽ lưu file mới có danh sách lựa chọn một vài sheet trên đó, hoặc gồm tất cả các sheet (trừ sheet "Maint" điều khiển, như File kèm). 2/ Tương tự việc xóa sheet cũng vậy, có danh sách lựa chọn xóa một vài sheet hoặc chọn xóa tất cả (trừ xóa sheet Maint). Cám ơn Bạn nhiếu !!! Nhấp chuột vào đây để mở rộng...

Ý 1 thì mình chế biến lại code của bạn xem thế nào: Mã: Sao chép. Sub LuuFile() Dim NewName As String Dim ws As Worksheet If MsgBox("Copy specific sheets to a new workbook" & vbCr & _ "New sheets will be pasted as values, named ranges removed" _ , vbYesNo, "NewCopy") = vbNo Then Exit Sub With Application .ScreenUpdating = False .DisplayAlerts = False NewName = InputBox("Please Specify the name of your new workbook") Sheets("Main").Delete For Each ws In ActiveWorkbook.Worksheets ws.Cells.Copy ws.Range("A1").PasteSpecial xlPasteValues Next ws ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & NewName, 52 .ScreenUpdating = True .DisplayAlerts = True End With End Sub Upvote 0 T

thanhthat

Thành viên chính thức

Tham gia 30/5/08 Bài viết 85 Được thích 5

quanluu1989 đã viết: Ý 1 thì mình chế biến lại code của bạn xem thế nào: Mã: Sao chép. Sub LuuFile() Dim NewName As String Dim ws As Worksheet If MsgBox("Copy specific sheets to a new workbook" & vbCr & _ "New sheets will be pasted as values, named ranges removed" _ , vbYesNo, "NewCopy") = vbNo Then Exit Sub With Application .ScreenUpdating = False .DisplayAlerts = False NewName = InputBox("Please Specify the name of your new workbook") Sheets("Main").Delete For Each ws In ActiveWorkbook.Worksheets ws.Cells.Copy ws.Range("A1").PasteSpecial xlPasteValues Next ws ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & NewName, 52 .ScreenUpdating = True .DisplayAlerts = True End With End Sub Nhấp chuột vào đây để mở rộng...

Cám ơn bạn ! Bạn có thể dựa trên addins dưới đây và chế biến lại chút ít giúp mình với. Thanks !

File đính kèm

• Del_Sheets.xla Del_Sheets.xla 58 KB · Đọc: 42

Upvote 0 H

HieuCD

Chuyên gia GPE

Tham gia 14/9/10 Bài viết 9,944 Được thích 23,913

thanhthat đã viết: Mình có một File rất nhiều Sheet, nhờ Bạn code giúp như yêu cầu sau với 1/ Mình muốn lưu file mới có lựa chọn sheet, sẽ lưu file mới có danh sách lựa chọn một vài sheet trên đó, hoặc gồm tất cả các sheet (trừ sheet "Maint" điều khiển, như File kèm). 2/ Tương tự việc xóa sheet cũng vậy, có danh sách lựa chọn xóa một vài sheet hoặc chọn xóa tất cả (trừ xóa sheet Maint). Cám ơn Bạn nhiếu !!! Nhấp chuột vào đây để mở rộng...

mới làm vụ copy Mã: Sao chép. Sub LuuFile() Dim NewName As String, nm As Name, ws As Worksheet, i As Long, Arr(), tmp, Rng tmp = MsgBox("Chon Ok neu copy tat ca cac Sheet" & vbCr & _ "Chon No neu chi Copy cac sheet da khai bao" _ , vbYesNo, "Copy All sheets to a new workbook") Application.DisplayAlerts = False Application.ScreenUpdating = False NewName = InputBox("Please Specify the name of your new workbook") If tmp = vbYes Then ReDim Arr(1 To ActiveWorkbook.Worksheets.Count - 1) For Each ws In ActiveWorkbook.Worksheets If ws.Name <> ActiveSheet.Name Then i = i + 1 Arr(i) = ws.Name End If Next ws Sheets(Arr).Copy Else On Error GoTo thoat Rng = Range(Range("A2"), Range("A100").End(xlUp)) Sheets(WorksheetFunction.Transpose(Rng)).Copy End If With ActiveWorkbook .SaveAs ThisWorkbook.Path & "\" & NewName, 52 .Close End With If Cells(1, 1) = "ZzXxCcVv" Then thoat: MsgBox "Ten Sheet sai khong copy duoc!", , "WARNING" End If Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub

File đính kèm

• Save and Dele SomeSheets.xlsm Save and Dele SomeSheets.xlsm 24.4 KB · Đọc: 93

Upvote 0 H

HieuCD

Chuyên gia GPE

Tham gia 14/9/10 Bài viết 9,944 Được thích 23,913 code xóa các Sheet Mã: Sao chép. Sub XoaSheets() Dim ws As Worksheet, i As Long, tmp, tmp1 tmp = MsgBox("Chon Yes neu Xoa tat ca cac Sheet" & vbCr & _ "Chon No neu chi Xoa cac sheet duoc chon" _ , vbYesNo, "WARNING: Delete All sheets in workbook") If tmp = vbYes Then tmp1 = MsgBox("Chon Yes neu thuc su Delete tat ca cac Sheet" & vbCr & _ "Chon No neu huy lenh Delete" _ , vbYesNo, "WARNING: Sheets Delete không the khoi phuc!!!") If tmp1 = vbNo Then Exit Sub Application.DisplayAlerts = False Application.ScreenUpdating = False For Each ws In Worksheets If ws.Name <> ActiveSheet.Name Then If tmp = vbYes Then ws.Delete Else tmp1 = MsgBox("Chon Yes neu thuc su Delete Sheet : " & ws.Name & vbCr & _ "Chon No neu khong muon Delete Sheet: " & ws.Name _ , vbYesNo, "WARNING: Sheets Delete không the khoi phuc!!!") If tmp1 = vbYes Then ws.Delete End If End If End If Next ws Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub Upvote 0 T

tueyennhi

Thành viên tích cực

Tham gia 18/10/10 Bài viết 1,192 Được thích 105

phihndhsp đã viết: Mã: Sao chép. Dim sh As Worksheet đoạn 1 tương ứng yêu cầu 1 'For Each sh In Worksheets ' If IsNumeric(sh.Name) Or IsNumeric(Left(sh.Name, 1)) Then ' sh.Cells.Clear ' End If 'Next đoạn 2 tương ứng yêu cầu 2 For Each sh In Worksheets If sh.Name <> ActiveSheet.Name And sh.Visible = True Then sh.Cells.Clear End If Next xem có đáp ứng yêu cầu của bạn không Nhấp chuột vào đây để mở rộng...

Hay quá, đúng cái mình đang cần. Cảm ơn bạn phihndhsp nhiều! Upvote 0 V

vuvinh7273

Thành viên mới

Tham gia 5/1/10 Bài viết 8 Được thích 0

tueyennhi đã viết: Hay quá, đúng cái mình đang cần. Cảm ơn bạn phihndhsp nhiều! Nhấp chuột vào đây để mở rộng...

cái này đúng thứ mình cần, mà mình copy vào không dùng được, giúp mình với 0986567273 Upvote 0 H

Hoàng Tuấn 868

Đăng ký hôm qua

Tham gia 9/11/19 Bài viết 6,319 Được thích 6,006

vuvinh7273 đã viết: cái này đúng thứ mình cần, mà mình copy vào không dùng được, giúp mình với 0986567273 Nhấp chuột vào đây để mở rộng...

Bạn nên gửi file lên và nêu mong muốn cụ thể chứ code đó đâu đã đủ để chạy mà copy về. Upvote 0 Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

Copilot bình luận các ván cờ vua từng ngày.

• • 

• SA_DQ
• 3/11/25
• Chia sẻ

Trả lời 19 Đọc 862 Hôm qua, lúc 22:34 SA_DQ Chương trình lập Báo cáo khảo sát Địa chất công trình GeoSection (1 người xem)

• • 

• PhanTuHuong
• 7/10/21
• Xây dựng ứng dụng.

Trả lời 10 Đọc 7K Hôm qua, lúc 14:52 PhanTuHuong 2 Xin hỏi về Công thức tính tiết theo PPCT (phân phối chương trình) trong Lịch báo giảng tự động (1 người xem)

• 2013myvietnam
• Thứ tư lúc 20:22
• Excel và Giáo Dục

Trả lời 9 Đọc 262 Hôm qua, lúc 14:25 2013myvietnam 2 V Giúp tạo bảng phân công lịch trực tự động (4 người xem)

• • 

• vudaicacvatn
• Thứ tư lúc 17:05
• Những vấn đề chung

Trả lời 4 Đọc 119 Hôm qua, lúc 08:51 thanthanhan [GPE21] ỨNG DỤNG POWER QUERY TRONG ĐỐI CHIẾU DỮ LIỆU HÓA ĐƠN ĐIỆN TỬ VÀ DỮ LIỆU KẾ TOÁN (1 người xem)

• • 

• GPE-Trợ Lý
• 21/12/25
• Học tập Online

Trả lời 1 Đọc 10K Hôm qua, lúc 05:26 GPE-Trợ Lý Nhờ các cao nhân chỉ giúp file excel quá nặng. không không biết nguyên nhân (1 người xem)

• hanhlx88
• Thứ hai lúc 13:02
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 5 Đọc 204 Thứ tư lúc 22:56 Mr.hieudoanxd Q Nhờ các anh chị giúp cho công thức đếm số khách hàng theo File đính kèm

• QUANSUNG
• Thứ hai lúc 10:15
• Hướng dẫn sử dụng các hàm trong Excel

Trả lời 8 Đọc 251 Thứ tư lúc 16:31 dungpham01 D T Nhờ các Pro giúp thiết lập bảng excel (1 người xem)

• thanhkybk
• Thứ hai lúc 17:53
• Hàm và công thức Excel

Trả lời 10 Đọc 419 Thứ tư lúc 15:19 thanhkybk T D

• Question Question

Tách dòng tự động theo điều kiện bằng VBA

• • 

• duongnhuxuyen
• 12/12/25
• Lập Trình với Excel

Trả lời 20 Đọc 730 Thứ ba lúc 10:32 ptm0412 D Công thức tính thuế TNCN cho người lao động nước ngoài (1 người xem)

• Dinh Hong Nhung
• Thứ hai lúc 10:04
• Hàm và công thức Excel

Trả lời 1 Đọc 189 Thứ hai lúc 15:05 Phan Thế Hiệp D Công thức tính thuế thu nhập cá nhân mới nhất theo mức 5 bậc (8 người xem)

• Dinh Hong Nhung
• 11/12/25
• Hàm và công thức Excel

Trả lời 16 Đọc 2K Thứ hai lúc 13:55 dungpham01 D L [Nhờ giúp đỡ] Tìm khoảng thời gian bị gối, hoặc trùng nhau

• Lá chanh
• 26/12/25
• Hàm và công thức Excel

Trả lời 8 Đọc 219 Thứ hai lúc 05:36 lamvankhoat1 L B Tính 1 đồng Doanh thu thuần mang về thì còn lại được bao nhiêu đồng EBITDA

• Bobby52
• Thứ bảy lúc 16:18
• Hàm và công thức Excel

Trả lời 0 Đọc 112 Thứ bảy lúc 16:18 Bobby52 B Bán sách Excel nâng cao để ủng hộ đồng bào bão lũ năm 2025! (1 người xem)

• • 

• PhanTuHuong
• 10/12/25
• Câu lạc bộ hoạt động xã hội

Trả lời 6 Đọc 539 25/12/25 PhanTuHuong A Có cách nào điều chỉnh cho tên Sheet lớn ra

• • 

• AnhThu-1976
• 24/12/25
• Những vấn đề chung

Trả lời 8 Đọc 321 25/12/25 SA_DQ T Xin hỏi cách để lọc dữ liệu ngày tháng của nhiều sheet

• TatLap
• 25/12/25
• Lọc và sắp xếp dữ liệu

Trả lời 6 Đọc 219 25/12/25 TatLap T K xin file excel bảng đấu bóng đá

• • 

• kenshithanh
• 1/4/15
• Chơi Game với Excel

Trả lời 48 Đọc 30K 24/12/25 SA_DQ Nếu diễn đàn GPE đóng cửa?

• • 
  • 

• PhanTuHuong
• 14/12/25
• Thư giãn

Trả lời 26 Đọc 1K 24/12/25 TH280861 T Miền Tây mùa nước nổi

• • 
  • 

• PhanTuHuong
• 5/10/20
• Thư giãn

Trả lời 31 Đọc 3K 24/12/25 SA_DQ T Lọc dự liệu với hai điều kiện

• tiny1010
• 16/3/10
• Cấu trúc dữ liệu Excel và việc Xử lý dữ liệu

Trả lời 20 Đọc 7K 24/12/25 dungpham01 D Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

• 2013myvietnam 4
• Phan Thế Hiệp 2
• thanthanhan 1
• PhanTuHuong 1

Thành viên có điểm tương tác cao nhất tháng

• 2013myvietnam 5
• Phan Thế Hiệp 4
• thanthanhan 2
• PhanTuHuong 2

Thời gian đếm ngược.

000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

• Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom