Xóa Sheet cũ và tạo Sheet mới

[tuan_ph]

Chào các bạn, mình đang muốn thiết lập một hệ thống các Sheet trong file tính toán của mình.
Cần các bạn chỉ giúp cách Xóa Sheet đã có vào tạo Sheet mới (với số lượng Sheet tùy thích)
Cảm ơn các bạn!!!

 

[ThuNghi]

Chào các bạn, mình đang muốn thiết lập một hệ thống các Sheet trong file tính toán của mình.
Cần các bạn chỉ giúp cách Xóa Sheet đã có vào tạo Sheet mới (với số lượng Sheet tùy thích)
Cảm ơn các bạn!!!

Chưa hiểu lắm, giữ phím Shift chọn sheet và delete.

Sua XoaSh()
for i = 1 to worksheets.count
worksheets(i).delete
next
end sub

 

[ndu96081631]

Chưa hiểu lắm, giữ phím Shift chọn sheet và delete.

Sua XoaSh()
for i = 1 to worksheets.count
worksheets(i).delete
next
end sub

Code này sao chạy được ta? Ít nhất cũng phải chừa lại 1 sheet chứ!

 

[SA_DQ]

Đúng là thiếu 1 dòng trên đầu:

[B]On Eror Resume Next [/B]

hay sao í!

 

[ndu96081631]

Đúng là thiếu 1 dòng trên đầu:

[B]On Eror Resume Next [/B]

hay sao í!

Và thiếu 1 cái Application.DisplayAlerts = False nữa

 

[tuan_ph]

Xóa các Sheet cũ và tạo các Sheet mới

Buổi sáng mình đã tham khảo ý kiến các bạn rồi nhưng làm vẫn không được.
Các bạn chỉ giùm cho mình code VBA (Xóa các sheet đã dùng rồi và tạo các Sheet mới theo ý thích của mình VD: xóa các sheet VL1; VL2; VL3 cũ đã sử dụng và chèn lại các sheet VL1; VL2; VL3 mới).
Cảm ơn các bạn!!!

 

[cadafi]

Bạn xem file đính kèm. Danh mục sheet sẽ hiện ra, bạn chỉ việc double click hoặc click nút Process. Excel sẽ tự động xóa sheet cũ và tạo mới sheet với tên sheet giống như sheet cũ bạn vừa chọn.

 

[chibi]

Có 2 khả năng xảy ra:
- Nếu VL1 mới không có gì - Không có dữ liệu, chưa định dạng: Chỉ việc xóa sạch VL1 cũ
- Nếu VL1 mới có dữ liệu và đã được định dạng (lấy từ cái có sẵn): Copy vào VL1 cũ

 

[tuan_ph]

Có 2 khả năng xảy ra:
- Nếu VL1 mới không có gì - Không có dữ liệu, chưa định dạng: Chỉ việc xóa sạch VL1 cũ
- Nếu VL1 mới có dữ liệu và đã được định dạng (lấy từ cái có sẵn): Copy vào VL1 cũ

Khi đã sử dụng các Sheet VL1 ... rồi, muốn xóa các Sheet đó đi và tạo các Sheet Vl1 ... mới và lấy Sheet VL gốc Coppy vào các Sheet VL1 ... mới đó. để tạo 1 file tính toán mẫu với các Sheet VL1 ... mới như Sheet VL gốc.
Chibi giúp mình với. Cảm ơn nhiều!