Code xóa các sheet theo điều kiện (1 người xem)

[nhatnguyenspkt]

Dear các Bác,

Em có 1 file excel có n sheets, em muốn xin code chọn tất cả các sheets đó trừ 1 sheetA nào đó, rồi thực hiện xóa các sheet đã chọn (trừ sheetA),
Các Bác tư vấn em code này với ạ,

Em cảm ơn các Bác!

 

[phulien1902]

Dear các Bác,

Em có 1 file excel có n sheets, em muốn xin code chọn tất cả các sheets đó trừ 1 sheetA nào đó, rồi thực hiện xóa các sheet đã chọn (trừ sheetA),
Các Bác tư vấn em code này với ạ,

Em cảm ơn các Bác!

Ví dụ:

Dim ws As Worksheet
  For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "Ten Sheet khong chon" Then
            ' Lam cai gi do
  End If
 Next ws

 

[huuthang_bd]

Dear các Bác,

Em có 1 file excel có n sheets, em muốn xin code chọn tất cả các sheets đó trừ 1 sheetA nào đó, rồi thực hiện xóa các sheet đã chọn (trừ sheetA),
Các Bác tư vấn em code này với ạ,

Em cảm ơn các Bác!

Xóa là xóa cái gì? Xóa mất sheet luôn hay xóa nội dung trong sheet mà giữ lại sheet?
Nếu có thể xóa mà không cần chọn thì có cần chọn không?

 

[VetMini]

Xóa là xóa cái gì? Xóa mất sheet luôn hay xóa nội dung trong sheet mà giữ lại sheet?
Nếu có thể xóa mà không cần chọn thì có cần chọn không?

Đọc cái tiêu đề. Người ta chỉ hỏi "How to Select...". Gặp Tây thì bạn phải hiểu theo Tây.
Bạn cần hỏi lại, "xoá nói bằng tiếng Tây luôn cho nó khỏi hiểu lầm".

 

[nhatnguyenspkt]

Xóa là xóa cái gì? Xóa mất sheet luôn hay xóa nội dung trong sheet mà giữ lại sheet?
Nếu có thể xóa mà không cần chọn thì có cần chọn không?

Dạ xóa các sheet, chỉ còn 1 sheet duy nhất mình muốn dữ lại thôi ạ,
Nhờ bác tư vấn giúp em với ạ,
Em cảm ơn nhiều!!

P/s: Em có dùng code này nhưng nó bị lỗi khi 1 trong các sheet bị xóa trước khi thực hiện theo code này

Sheets(Array("Temp.(1)", "Temp.(2)", "02. Vista(10_A0412)", "Du an nha pho", "CS interest", "ATam")).Select
ActiveWindow.SelectedSheets.Delete

 

[befaint]

Có cái add ins làm việc này rồi đó. Chịu khó tìm sẽ thấy thôi.

 

[huuthang_bd]

Code xóa tất cả các sheet chữ giữ lại sheet có tên Sheet1.

Const NotDel As String = "Sheet1"
Sub DelSheets()
Dim i As Long, Sh As Object, aSheets() As String
If Sheets.Count = 1 Then Exit Sub
ReDim aSheets(1 To Sheets.Count - 1)
For Each Sh In Sheets
    If Sh.Name <> NotDel Then
        i = i + 1
        aSheets(i) = Sh.Name
    End If
Next
Sheets(NotDel).Visible = xlSheetVisible
Application.DisplayAlerts = False
Sheets(aSheets).Delete
Application.DisplayAlerts = True
End Sub

 

[nhatnguyenspkt]

Code xóa tất cả các sheet chữ giữ lại sheet có tên Sheet1.

Const NotDel As String = "Sheet1"
Sub DelSheets()
Dim i As Long, Sh As Object, aSheets() As String
If Sheets.Count = 1 Then Exit Sub
ReDim aSheets(1 To Sheets.Count - 1)
For Each Sh In Sheets
    If Sh.Name <> NotDel Then
        i = i + 1
        aSheets(i) = Sh.Name
    End If
Next
Sheets(NotDel).Visible = xlSheetVisible
Application.DisplayAlerts = False
Sheets(aSheets).Delete
Application.DisplayAlerts = True
End Sub

Dạ code này đúng ý đồ em rồi, em cảm ơn Anh nhiều ạ!!!

 

[phulien1902]

Bạn thử:

    Dim Arr As Variant, Sh As Worksheet
    Arr = Array("Temp.(1)", "Temp.(2)", "02. Vista(10_A0412)", "Du an nha pho", "CS interest", "ATam")
    Application.DisplayAlerts = False
    For Each Sh In Worksheets
        If Sh.Name <> "Ten Sheet can giu lai" Then ' Thay doi cho nay
            Sh.Delete
        End If
    Next
    Application.DisplayAlerts = True

 

[VetMini]

Có cái add ins làm việc này rồi đó. Chịu khó tìm sẽ thấy thôi.
...

Vầy mới Tây:
Have female add ins do business this already that. Owe difficult search will see stop.

Code xóa tất cả các sheet chữ giữ lại sheet có tên Sheet1.
...

Không code:
Kéo cái sheet muốn giữ lên đầu.
Click sheet thứ 2, giữ shift, click sheet cuối cùng
Right click, delete

Phải nói là Vê Bê A nó làm người ta lười biếng. Đi ra đầu ngõ uống cà phê cũng xách xe máy.

 

[nhatnguyenspkt]

Vầy mới Tây:
Have female add ins do business this already that. Owe difficult search will see stop.


Không code:
Kéo cái sheet muốn giữ lên đầu.
Click sheet thứ 2, giữ shift, click sheet cuối cùng
Right click, delete

Phải nói là Vê Bê A nó làm người ta lười biếng. Đi ra đầu ngõ uống cà phê cũng xách xe máy.

Dạ, em cảm ơn góp ý của anh!!!

 

[huuthang_bd]

Phải nói là Vê Bê A nó làm người ta lười biếng. Đi ra đầu ngõ uống cà phê cũng xách xe máy.

Biết đâu người ta hỏi để bổ sung vào code có sẵn. Xóa các sheet kết quả cũ trước khi tạo các sheet kết quả mới chẳng hạn (tự an ủi thôi ))

 

[VetMini]

Biết đâu người ta hỏi để bổ sung vào code có sẵn. Xóa các sheet kết quả cũ trước khi tạo các sheet kết quả mới chẳng hạn (tự an ủi thôi ))

Trường hợp này thì bạn phải cẩn thận với code hơn.
Sheets là collection của tất cả các loại sheet, kể cả chart sheets. WorkSheets mới loại trừ chart sheets.

 

[huuthang_bd]

Trường hợp này thì bạn phải cẩn thận với code hơn.
Sheets là collection của tất cả các loại sheet, kể cả chart sheets. WorkSheets mới loại trừ chart sheets.

Thớt chỉ nói đến Sheet (không phải nói WorkSheet) và không nói gì thêm thì hiểu là tất cả các loại sheet (kể cả Chart, Dialog, Macro4) là hợp lý.

 

[VetMini]

Thớt chỉ nói đến Sheet (không phải nói WorkSheet) và không nói gì thêm thì hiểu là tất cả các loại sheet (kể cả Chart, Dialog, Macro4) là hợp lý.

Ở bài #4 tôi có nói là tôi hiểu theo Tây mờ. Những chỗ thớt viết tiếng Việt tôi đâu có đọc. Khi có sự xung đột giữa Tây và Ta thì tôi phải chọn Tây bởi vì tôi không tin khả năng tiếng Viẹt của dân xổ Tây.

 

[batman1]

Người Việt mà khi muốn chào nhau, xin lỗi, cám ơn, hỏi, trả lời là cứ phải dùng tiếng Tây? Tiếng Việt mình nghèo nàn, không diễn tả hết nghĩa, hết mọi cung bậc cảm xúc?