N nvk_hy Thành viên mới Tham gia 24/9/09 Bài viết 21 Được thích 0 26/6/14 #1 xin code xóa sheet bất kỳ không phải của file excel hiện hành xin cảm ơn!
laulemroi Thành viên hoạt động Tham gia 20/4/08 Bài viết 110 Được thích 98 26/6/14 #2 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 Lần chỉnh sửa cuối: 26/6/14 Upvote 0
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