Xóa Nhiều Sheet Cùng Lúc Trong 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
• Excel và Tài Chính

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. Xóa nhiều sheet cùng lúc trong excel

• Thread starter Thread starter linhung8589
• Ngày gửi Ngày gửi 2/4/15

• 1
• 2

Tiếp 1 of 2

Go to page

Tiếp tục Tiếp Last L

linhung8589

Thành viên mới

Tham gia 11/7/11 Bài viết 16 Được thích 2 Cả nhà ơi cho e hỏi, e muốn xóa nhiều sheet cùng lúc trong excel thì như thế nào ah? Ví dụ có 10 sheet chỉ để lại 1 sheet, xóa 9 sheet còn lại ah?

Ba Tê

Cạo Rồi Khỏi Gội

Tham gia 5/5/09 Bài viết 12,124 Được thích 17,588 Giới tính Nam

linhung8589 đã viết: Cả nhà ơi cho e hỏi, e muốn xóa nhiều sheet cùng lúc trong excel thì như thế nào ah? Ví dụ có 10 sheet chỉ để lại 1 sheet, xóa 9 sheet còn lại ah? Nhấp chuột vào đây để mở rộng...

Đặt tên sheet cần chừa lại là GPE. Chạy Code này sẽ xoá sạch sành sanh. PHP: Sao chép. Public Sub GPE() Application.DisplayAlerts = False Dim Ws As Worksheet For Each Ws In Worksheets If Ws.Name <> "GPE" Then Ws.Delete Next Ws Application.DisplayAlerts = True End Sub G

giola

theo chiều Gió

Tham gia 25/1/15 Bài viết 362 Được thích 243

linhung8589 đã viết: Cả nhà ơi cho e hỏi, e muốn xóa nhiều sheet cùng lúc trong excel thì như thế nào ah? Ví dụ có 10 sheet chỉ để lại 1 sheet, xóa 9 sheet còn lại ah? Nhấp chuột vào đây để mở rộng...

Đơn giản chọn (select) các sheet (cần xoá) đó ở tab Sheet (góc trái dưới màn hình excel) rồi RightClick --> Delete là xong, Các chọn nhanh, bỏ chọn 1 sheet, chắc chắn bạn làm tốt V

VetMini

Ăn cùng góc phố

Tham gia 21/12/12 Bài viết 17,668 Được thích 24,480 Click vào sheet đầu tiên Nhấn và giữ phím Shift, click vào sheet cuối cùng (tức là chọn tất cả các sheets) Nhấn và giữ phím Control, click vào sheet muốn giữ lại (tức là loại nó ra khỏi số sheets vừa chọn) Click chuột phải, chọn delete Hết

befaint

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

Tham gia 6/1/11 Bài viết 14,538 Được thích 19,741 Sau khi làm cái print multi sheet, tiện thể làm cái delete multi sheet. Chủ topic nếu hứng thú thì tải về dùng nhé.

File đính kèm

• Delete Sheets.zip Delete Sheets.zip 21.5 KB · Đọc: 128

T

TranVu0609

Thành viên mới

Tham gia 22/4/15 Bài viết 2 Được thích 0

befaint đã viết: Sau khi làm cái print multi sheet, tiện thể làm cái delete multi sheet. Chủ topic nếu hứng thú thì tải về dùng nhé. Nhấp chuột vào đây để mở rộng...

cho mình xin pass file Del_sheets.xla được không bạn?

giaiphap

==(^o^)==

Tham gia 12/3/07 Bài viết 5,802 Được thích 6,350 Donate (Momo) Giới tính Nam

befaint đã viết: Sau khi làm cái print multi sheet, tiện thể làm cái delete multi sheet. Chủ topic nếu hứng thú thì tải về dùng nhé. Nhấp chuột vào đây để mở rộng...

Tôi thấy chổ Mã: Sao chép. Sheets(ListBox1.List(j - 1, 0)).Delete chưa ổn nhé bác. Mã: Sao chép. Private Sub B_del_Click() Application.DisplayAlerts = False Dim j As Integer, n&, t& With ListBox1 For t = 0 To .ListCount - 1 If .Selected(t) Then n = n + 1 Next 'TH1: If n = 0 Then Exit Sub End If 'TH2: If n = ListBox1.ListCount Then MsgBox "Workbook toi thieu phai co mot (01) worksheet!" & vbNewLine & "Uncheck sheet can giu lai.", vbInformation, "Thông báo" Exit Sub End If 'TH3: If n >= 1 And n < ListBox1.ListCount Then For j = 1 To ListBox1.ListCount If ListBox1.Selected(j - 1) = True Then 'Lỡ Sheet đang ẩn thì sẽ báo lỗi nhé. Sheets(ListBox1.List(j - 1, 0)).Delete ListBox1.Selected(j - 1) = False End If Next ListBox1.Clear Call UserForm_Initialize End If End With Application.DisplayAlerts = False End Sub

befaint

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

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

TranVu0609 đã viết: cho mình xin pass file Del_sheets.xla được không bạn? Nhấp chuột vào đây để mở rộng...

Bạn tải lại file bài trên nhé!

befaint

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

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

giaiphap đã viết: chưa ổn nhé bác. Nhấp chuột vào đây để mở rộng...

Ngày xưa ngu ngơ, chỗ nào chưa được anh chỉnh dùm em luôn (VeryHidden thì tèo ) Lần chỉnh sửa cuối: 24/7/17 T

TranVu0609

Thành viên mới

Tham gia 22/4/15 Bài viết 2 Được thích 0

befaint đã viết: Bạn tải lại file bài trên nhé! Nhấp chuột vào đây để mở rộng...

cảm ơn bạn nhiều

befaint

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

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

TranVu0609 đã viết: cảm ơn bạn nhiều Nhấp chuột vào đây để mở rộng...

Bạn tải lại nhé. Vừa chỉnh sửa thêm.

huongtinh1929

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

Tham gia 6/10/11 Bài viết 61 Được thích 4 Giới tính Nam

Ba Tê đã viết: Đặt tên sheet cần chừa lại là GPE. Chạy Code này sẽ xoá sạch sành sanh. PHP: Sao chép. Public Sub GPE() Application.DisplayAlerts = False Dim Ws As Worksheet For Each Ws In Worksheets If Ws.Name <> "GPE" Then Ws.Delete Next Ws Application.DisplayAlerts = True End Sub Nhấp chuột vào đây để mở rộng...

bác Ba Tê ơi cho em hỏi nếu muốn để lại 3 sheet còn lại xóa hết các sheet khác thì core viết lại thể nào vậy bác. Mong bác chỉ em dùm, em cảm ơn bác. F

Fatboy_nnha

Thành viên mới

Tham gia 23/4/18 Bài viết 5 Được thích 1

huongtinh1929 đã viết: bác Ba Tê ơi cho em hỏi nếu muốn để lại 3 sheet còn lại xóa hết các sheet khác thì core viết lại thể nào vậy bác. Mong bác chỉ em dùm, em cảm ơn bác. Nhấp chuột vào đây để mở rộng...

Bạn dùng thêm điều kiện And. Điều kiện và cho các sheet bạn muốn để lại thì sẽ thực hiện được lệnh thôi. D

Decepticon

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

Tham gia 25/4/16 Bài viết 81 Được thích 13

giaiphap đã viết: Tôi thấy chổ Mã: Sao chép. Sheets(ListBox1.List(j - 1, 0)).Delete chưa ổn nhé bác. Mã: Sao chép. Private Sub B_del_Click() Application.DisplayAlerts = False Dim j As Integer, n&, t& With ListBox1 For t = 0 To .ListCount - 1 If .Selected(t) Then n = n + 1 Next 'TH1: If n = 0 Then Exit Sub End If 'TH2: If n = ListBox1.ListCount Then MsgBox "Workbook toi thieu phai co mot (01) worksheet!" & vbNewLine & "Uncheck sheet can giu lai.", vbInformation, "Thông báo" Exit Sub End If 'TH3: If n >= 1 And n < ListBox1.ListCount Then For j = 1 To ListBox1.ListCount If ListBox1.Selected(j - 1) = True Then 'Lỡ Sheet đang ẩn thì sẽ báo lỗi nhé. Sheets(ListBox1.List(j - 1, 0)).Delete ListBox1.Selected(j - 1) = False End If Next ListBox1.Clear Call UserForm_Initialize End If End With Application.DisplayAlerts = False End Sub Nhấp chuột vào đây để mở rộng...

bác @giaiphap tích hợp luôn chức năng xoá/unhide sheet hàng loạt vào vnTools được ko ạ? coi như cập nhật ver 2021 lun

giaiphap đã viết: Bạn thử nhấn phím Ctrl trong khi mở Excel xem có thông báo lỗi gì không? Nếu vẫn còn bạn thử xem cách này thế nào nhé. http://answers.microsoft.com/en-us/...k/5da89258-34fa-4bcc-96bc-223787da6ada?auth=1 Hoặc http://www.codedawn.com/index/-compile-error-in-hidden-module-message-in-excel Nhấp chuột vào đây để mở rộng...

bác có chạy được add-in RegEx của trang Codedawn trên win 64bit ko ạ? e thử các kiểu vẫn bị lỗi hidden module

File đính kèm

• RegEx Find-Replace.xlam RegEx Find-Replace.xlam 98 KB · Đọc: 3

Lần chỉnh sửa cuối: 27/5/21

giaiphap

==(^o^)==

Tham gia 12/3/07 Bài viết 5,802 Được thích 6,350 Donate (Momo) Giới tính Nam

Decepticon đã viết: bác @giaiphap tích hợp luôn chức năng xoá/unhide sheet hàng loạt vào vnTools được ko ạ? coi như cập nhật ver 2021 lun bác có chạy được add-in RegEx của trang Codedawn trên win 64bit ko ạ? e thử các kiểu vẫn bị lỗi hidden module Nhấp chuột vào đây để mở rộng...

Trong cái VnTools đã có sẳn chức năng Hide và Unhide nhều sheet cùng lúc rồi bạn nhé, còn vụ nâng cấp thì mình chưa tính (Do không rảnh). Cái RegEx Find-Replace.xlam có sử dụng một số hàm API, mà hàm API thì 32bit chạy khác và 64bit chạy khác. Cái hiện tại chỉ viết cho 32bit thôi, bạn klhông thể sử dụng được cho 64bit. Muốn sử dụng 64Bit bạn phải liên hệ tác giả nhé, còn sửa code là tôi không làm được. D

Decepticon

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

Tham gia 25/4/16 Bài viết 81 Được thích 13

giaiphap đã viết: Trong cái VnTools đã có sẳn chức năng Hide và Unhide nhều sheet cùng lúc rồi bạn nhé, còn vụ nâng cấp thì mình chưa tính (Do không rảnh). Cái RegEx Find-Replace.xlam có sử dụng một số hàm API, mà hàm API thì 32bit chạy khác và 64bit chạy khác. Cái hiện tại chỉ viết cho 32bit thôi, bạn klhông thể sử dụng được cho 64bit. Muốn sử dụng 64Bit bạn phải liên hệ tác giả nhé, còn sửa code là tôi không làm được. Nhấp chuột vào đây để mở rộng...

sorry bác e nhầm. ý e là tuỳ chọn xoá/hide sheet hàng loạt cơ ạ. Cái tính năng ẩn nhiều sheet trong vnTools hơi bị dị còn ẩn/xoá thủ công (giữ shift + chọn sheet) thì lại mất thời gian >"< P/s: Tiếc cái add-in RegEx quá bác nhỉ, add-in đó mà biết dùng thì tiện khủng khiếp

File đính kèm

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

Lần chỉnh sửa cuối: 28/5/21

giaiphap

==(^o^)==

Tham gia 12/3/07 Bài viết 5,802 Được thích 6,350 Donate (Momo) Giới tính Nam

Decepticon đã viết: sorry bác e nhầm. ý e là tuỳ chọn xoá/hide sheet hàng loạt cơ ạ. Cái tính năng ẩn nhiều sheet trong vnTools hơi bị dị còn ẩn/xoá thủ công (giữ shift + chọn sheet) thì lại mất thời gian >"< View attachment 259556 View attachment 259555 P/s: Tiếc cái add-in RegEx quá bác nhỉ, add-in đó mà biết dùng thì tiện khủng khiếp Nhấp chuột vào đây để mở rộng...

Tiếp nhận ý kiến, phiên bản sau có nâng cấp sẽ cải thiện và được sẽ đưa chức năng như Add-ins RegEx vào luôn. D

Decepticon

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

Tham gia 25/4/16 Bài viết 81 Được thích 13

giaiphap đã viết: Tiếp nhận ý kiến, phiên bản sau có nâng cấp sẽ cải thiện và được sẽ đưa chức năng như Add-ins RegEx vào luôn. Nhấp chuột vào đây để mở rộng...

Bác ơi e muốn tạo print tiles $5:$6 ở tất cả các sheet (~ 10-20 sheet) thì làm cách nào cho nhanh ạ?

befaint

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

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

Decepticon đã viết: Bác ơi e muốn tạo print tiles $5:$6 ở tất cả các sheet (~ 10-20 sheet) thì làm cách nào cho nhanh ạ? Nhấp chuột vào đây để mở rộng...

Mình chọn các sheets đó rồi thực hiện là được. D

Decepticon

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

Tham gia 25/4/16 Bài viết 81 Được thích 13

befaint đã viết: Mình chọn các sheets đó rồi thực hiện là được. Nhấp chuột vào đây để mở rộng...

Ko được. Mặc định Office ko cho phép đặt print titles nhiều sheet cùng lúc, các mục page setup khác thì lại đc P/s: định thử Kutools nhưng sợ crack dính ramsomware

How to repeatedly print titles in multiple sheets?

www.extendoffice.com

• 1
• 2

Tiếp 1 of 2

Go to page

Tiếp tục Tiếp Last 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

Xin giúp chuyển dữ liệu từ cột dọc sang hàng ngang theo điều kiện

• • 

• Manhhung90
• Thứ hai lúc 19:22
• Lập Trình với Excel

Trả lời 7 Đọc 124 8 phút trước HUONGHCKT H T cách viết hàm if

• tuyennhnobk
• 18/12/24
• Hàm và công thức Excel

Trả lời 4 Đọc 111 29 phút trước VetMini V

• Question Question

link file pdf hóa đơn bằng vba

• hahuykhuong
• Hôm nay lúc 20:19
• Lập Trình với Excel

Trả lời 1 Đọc 34 Hôm nay lúc 20:21 zzzsxxx01 Z X Tự động giãn dòng và ẩn các dòng bị bỏ trống

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

Trả lời 4 Đọc 160 Hôm nay lúc 18:25 HeSanbi KHÓA HỌC BỨT PHÁ KỸ NĂNG EXCEL

• • 
  • 

• GPE-Trợ Lý
• 15/11/24
• Học tập Online

Trả lời 2 Đọc 891 Hôm nay lúc 16:58 nguyentnct N N

• Question Question

Cần giúp rút gọn code vba

• nvthanhdienbien
• Thứ hai lúc 15:12
• Lập Trình với Excel

Trả lời 8 Đọc 223 Hôm nay lúc 16:43 VetMini V

• 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

13 14 15 Trả lời 299 Đọc 20K Hôm nay lúc 16:23 trdethuong T D Vẽ biểu đồ phân tích doanh thu và lợi nhuận theo mã đơn vị

• dinhthiloan
• 18/6/21
• Excel và Các Biểu Đồ

Trả lời 5 Đọc 875 Hôm nay lúc 16:14 thuytrangbp28 T

• Đã giải quyết

VBA Nâng cao: Khi ô Excel ở chế độ đang nhập liệu thì VBA có thể chạy và lấy giá trị ô không?

• • 
  • 

• HeSanbi
• 28/7/23
• Lập Trình với Excel

Trả lời 9 Đọc 2K Hôm nay lúc 16:12 A HOANG 620 A M

• Question Question

Code VBA tìm mã kiện gỗ còn tồn kho

• moihocvba
• Hôm qua, lúc 10:47
• Lập Trình với Excel

Trả lời 5 Đọc 196 Hôm nay lúc 15:14 moihocvba M P Xin hỏi cách tăng tốc khi nhập liệu cho sheet NHAPXUAT

• pqdowntailieu3
• Thứ năm lúc 16:59
• Google Sheets

Trả lời 4 Đọc 204 Hôm nay lúc 10:56 yeudoi S Tính trung bình của tháng đầu tiên.

• SteveNguyen1991
• Chủ nhật lúc 21:36
• Hàm và công thức Excel

Trả lời 5 Đọc 285 Hôm nay lúc 10:52 SteveNguyen1991 S A

• Đã giải quyết

Xin giúp đỡ code VBA chép cột dữ liệu có điều kiện từ file này sang file khác

• acrox84
• 7/4/23
• Lập Trình với Excel

2 3 Trả lời 59 Đọc 3K Hôm qua, lúc 16:46 Hoàng Nhật Phương T

• Question Question

Xin code VBA trả về tên tài khoản theo điều kiện

• • 

• Thanh Binh111
• Thứ sáu lúc 16:40
• Lập Trình với Excel

Trả lời 10 Đọc 231 Hôm qua, lúc 15:59 DeTong D H Nhờ các cao nhân chỉ giáo code file Form nhập liệu Google Sheet !!!

• • 

• Hòa Nguyễn 1989
• Hôm qua, lúc 09:39
• Google Sheets

Trả lời 4 Đọc 108 Hôm qua, lúc 15:13 befaint TỔNG HỢP TỜ KHAI THUẾ THEO THÔNG TƯ 80/2021 TỪ *.XML SANG EXCEL

• • 
  • 
  • 

• hoamattroicoi
• 14/6/22
• Excel và Kế Toán

Trả lời 7 Đọc 3K Hôm qua, lúc 13:33 Nguyễn Văn Thái 92 N Lỗi khi COPY , viền xung quanh ô được chọn đứng yên, không chạy

• • 

• dungdodac
• 17/12/24
• Hỏi đáp những vấn đề khác

Trả lời 4 Đọc 208 Thứ hai lúc 21:17 VetMini V B Xin hàm đếm số lượng khách hàng theo 1 điều kiện và bỏ dữ liệu trùng.

• bipbo2008
• 15/12/24
• Hàm và công thức Excel

Trả lời 10 Đọc 389 Thứ hai lúc 20:22 Phan Thế Hiệp

• Đã giải quyết

ExplorerXL - Quản lý thư mục với Excel: tìm, đổi tên, sao chép, di chuyển và xóa

• • 
  • 
  • 

• HeSanbi
• 20/9/19
• Lập Trình với Excel

2 3 4 Trả lời 79 Đọc 16K Thứ hai lúc 17:11 viethung78 V H Giao diện mới ở "chế độ tối" mờ quá

• • 
  • 

• HieuCD
• Thứ hai lúc 12:27
• Những góp ý với diễn đàn

Trả lời 4 Đọc 153 Thứ hai lúc 16:48 OverAC Xem thêm… Chia sẻ: Facebook X (Twitter) 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

• Hoàng Tuấn 868 30
• HeSanbi 28
• LINHCM 25
• ptm0412 24
• hoangtuaotrang_hp_vn 21
• HieuCD 21
• SA_DQ 18
• ongke0711 18
• qtm1987 17
• DeTong 17
• huuthang_bd 16
• HUONGHCKT 16
• hvnhpro 14
• SteveNguyen1991 14
• hoangminhtien 13
• BuiQuangThuan 13
• Duy Tùng 9x 10
• Manhhung90 10
• GPE-Trợ Lý 9
• befaint 9

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

• HieuCD 96
• huuthang_bd 34
• Hoàng Tuấn 868 32
• hoangtuaotrang_hp_vn 28
• HUONGHCKT 28
• Phan Thế Hiệp 27
• befaint 26
• SA_DQ 25
• DeTong 25
• hoangminhtien 24
• HeSanbi 23
• ptm0412 21
• GPE-Trợ Lý 21
• Phuocam 17
• ongke0711 15
• longtay1111 13
• Hai Lúa Miền Tây 13
• NT Ngoc Yen 12
• Nguyễn Duy Tuân 11
• OverAC 10

Đếm ngược thời gian

000 Ngày 00 Giờ 00 phút 00 giây Chúc mừng năm mới

• Trang chủ
• Diễn đàn
• Excel và Tài Chính

• 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