Xóa nhiều sheet cùng lúc trong excel (2 người xem)

linhung8589 · 2/4/15

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ê · 2/4/15

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?

Đặ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:

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

giola · 2/4/15

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?

Đơ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

VetMini · 2/4/15

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 · 14/4/15

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é.

TranVu0609 · 24/7/17

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é.

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

giaiphap · 24/7/17

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é.

Tôi thấy chổ

Mã:

Sheets(ListBox1.List(j - 1, 0)).Delete

chưa ổn nhé bác.

Mã:

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 · 24/7/17

TranVu0609 đã viết:
cho mình xin pass file Del_sheets.xla được không bạn?

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

befaint · 24/7/17

giaiphap đã viết:
chưa ổn nhé bác.

Ngày xưa ngu ngơ, chỗ nào chưa được anh chỉnh dùm em luôn

(VeryHidden thì tèo

)

TranVu0609 · 24/7/17

befaint đã viết:
Bạn tải lại file bài trên nhé!

cảm ơn bạn nhiều

befaint · 24/7/17

TranVu0609 đã viết:
cảm ơn bạn nhiều

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

huongtinh1929 · 6/4/19

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:

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

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.

Fatboy_nnha · 3/10/19

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.

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.

Decepticon · 26/5/21

giaiphap đã viết:

Tôi thấy chổ

Mã:

Sheets(ListBox1.List(j - 1, 0)).Delete

chưa ổn nhé bác.

Mã:

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

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

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

giaiphap · 27/5/21

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

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.

Decepticon · 28/5/21

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.

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

giaiphap · 8/6/21

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

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.

Decepticon · 24/9/21

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.

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 · 24/9/21

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 ạ?

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

Decepticon · 24/9/21

befaint đã viết:
Mình chọn các sheets đó rồi thực hiện là được.

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

Xóa nhiều sheet cùng lúc trong excel (2 người xem)

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

Thành viên mới

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

theo chiều Gió

Ăn cùng góc phố

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

File đính kèm

Thành viên mới

==(^o^)==

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

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

Thành viên mới

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

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

Thành viên mới

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

File đính kèm

==(^o^)==

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

File đính kèm

==(^o^)==

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

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

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

Đếm ngược thời gian