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,843

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,843

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,953 Được thích 23,930

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,953 Được thích 23,930 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,308 Được thích 5,999

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

• Question Question

Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba

• • 
  • 
  • 

• ongke0711
• 6/10/24
• Lập Trình với Excel

5 6 7 Trả lời 637 Đọc 94K Hôm qua, lúc 23:12 Diemnguyenqn phân lớp đắp trong san nền và đường giao thông (2 người xem)

• vuanhdungtb
• 20/1/10
• Excel và Kỹ Thuật

Trả lời 19 Đọc 55K Hôm qua, lúc 23:03 hoangdung09x2 H Sản phẩm từ Python với sự giúp đỡ của Copilot

• • 
  • 

• Maika8008
• Thứ tư lúc 20:50
• Excel và các ngôn ngữ lập trình khác

Trả lời 13 Đọc 323 Hôm qua, lúc 12:05 Maika8008 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 82 Đọc 3K Hôm qua, lúc 05:26 SA_DQ Hàm EXACT (1 người xem)

• • 

• TranThanhPhong
• 30/4/14
• Dự án: Công thức & Hàm 97-2019

Trả lời 5 Đọc 9K Thứ năm lúc 20:46 ptm0412 TRA CỨU MÃ SỐ THUẾ CÁ NHÂN QUA EXCEL

• • 

• vn81206
• 2/2/23
• Cơ sở dữ liệu

Trả lời 70 Đọc 27K Thứ năm lúc 10:29 minhhueyb21 M

• Question Question

Trình điều khiển Web tải hóa đơn điện tử từ trang Misa (actapp.misa.vn/app)

• • 
  • 

• HeSanbi
• Thứ năm lúc 09:56
• Lập Trình với Excel

Trả lời 0 Đọc 99 Thứ năm lúc 09:56 HeSanbi Cách lấy dữ liệu từ nhiều cột theo nhiều điều kiện

• xumipham1
• Thứ năm lúc 08:49
• Hàm và công thức Excel

Trả lời 2 Đọc 108 Thứ năm lúc 09:48 xumipham1 E

• Đã giải quyết

VBA code tô màu ô excel theo điều kiện so sánh

• eagle12
• Thứ ba lúc 09:42
• Lập Trình với Excel

Trả lời 4 Đọc 132 Thứ tư lúc 16:11 eagle12 E

• Question Question

Tra cứu thông tin mã số thuế (cập nhật lại code cũ)

• • 
  • 
  • 

• ongke0711
• 24/7/25
• Lập Trình với Excel

Trả lời 24 Đọc 2K Thứ tư lúc 14:14 kahainguyen K D Xin file excel về dự án đầu tư bao gồm các sheet liên kết từ danh mục đầu tư đến bảng kết quả kinh doanh

• DoanTrongHuong
• Thứ tư lúc 09:44
• Excel và Các Biểu Đồ

Trả lời 0 Đọc 62 Thứ tư lúc 09:44 DoanTrongHuong D A File Excel kiểm phiếu bầu cử Quốc hội và HĐND các cấp

• • 

• adua29
• 9/4/21
• Excel Ứng Dụng

Trả lời 19 Đọc 5K Thứ ba lúc 21:35 bac0986101092 B Phần mềm quản lý bán hàng trên excel offline (1 người xem)

• buihoanganhminh
• Thứ ba lúc 14:09
• Hàm và công thức Excel

Trả lời 0 Đọc 113 Thứ ba lúc 14:09 buihoanganhminh B [New] BSAC v3.0 bộ công cụ lập trình phần mềm chuyên nghiệp trong VBA

• • 

• Nguyễn Duy Tuân
• 24/9/20
• BLUESOFTS: A-Excel, A-Tools

Trả lời 14 Đọc 4K Thứ ba lúc 10:14 Nguyễn Duy Tuân T Sử dụng Google Sheets để tạo webapp nhận báo giá online

• • 
  • 

• thuctien
• 15/2/26
• Google Sheets

Trả lời 1 Đọc 287 Thứ ba lúc 10:13 hotboykute H

• Dán lên cao

Phiên bản mới Add-in A-Tools AI v10 (2024)

• • 

• Nguyễn Duy Tuân
• 13/9/24
• BLUESOFTS: A-Excel, A-Tools

Trả lời 66 Đọc 13K Thứ ba lúc 09:40 Nguyễn Duy Tuân V Một Excel add-in vibe coding (1 người xem)

• • 

• vietdang170
• 28/1/26
• Các Add-ins cho excel

Trả lời 21 Đọc 996 Thứ ba lúc 08:12 Gà Công Nghệ H Chào cả nha! Xin tư vấn về câu chuyện quản lý nhân sự

• • 

• hotboykute
• Chủ nhật lúc 14:42
• Những vấn đề chung

Trả lời 11 Đọc 260 Thứ hai lúc 17:42 HUONGHCKT H A

• Question Question

Nhờ sửa câu lệnh AutoFilter

• AnhThu-1976
• Thứ hai lúc 12:13
• Lập Trình với Excel

Trả lời 1 Đọc 86 Thứ hai lúc 12:22 LOGANWover L A

• Question Question

Code nối các ghi chú với nhau theo điều kiện

• AnhThu-1976
• Chủ nhật lúc 11:35
• Lập Trình với Excel

Trả lời 2 Đọc 136 Chủ nhật lúc 18:10 HUONGHCKT H 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

• HeSanbi 19
• chothadiem 11
• Michael Bit 9
• SA_DQ 9
• ongke0711 8
• YêuCN 7
• Maika8008 7
• HUONGHCKT 6
• Gà Công Nghệ 6
• kahainguyen 6
• ptm0412 6
• HieuCD 5
• DeTong 4
• Gà Con yêu VBA 4
• Officexinh 4
• nguyendang95 4
• hng1635 4
• vietdang170 4
• bac0986101092 4
• hoanglocphat 3

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

• HeSanbi 26
• SA_DQ 18
• GPE-Trợ Lý 13
• HUONGHCKT 13
• Maika8008 12
• ongke0711 9
• Quang_Hải 7
• le_vis 6
• HieuCD 6
• DeTong 5
• Gà Con yêu VBA 5
• LOGANWover 5
• vietdang170 5
• Thóc Sama 3
• Phuocam 3
• pycckuu410 3
• chiendich 3
• Michael Bit 3
• nguyendang95 3
• ptm0412 3

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