Xin code xóa sheet bất kỳ không phải của file excel hiện hành
- Thread starter nvk_hy
- Ngày gửi
laulemroi
Thành viên hoạt động
- Tham gia
- 20/4/08
- Bài viết
- 110
- Được thích
- 98
bạn tham khảo
Sub XoaSheet()
w = InputBox("Ten file can xoa:")
t = InputBox("Ten sheet can xoa:")
Application.DisplayAlerts = False
Workbooks(w).Sheets(t).Delete
Application.DisplayAlerts = True
End Sub
Sub XoaSheet()
w = InputBox("Ten file can xoa:")
t = InputBox("Ten sheet can xoa:")
Application.DisplayAlerts = False
Workbooks(w).Sheets(t).Delete
Application.DisplayAlerts = True
End Sub
Lần chỉnh sửa cuối:
Upvote
0
