trinhduyvu
Thành viên mới
- Tham gia
- 11/10/22
- Bài viết
- 12
- Được thích
- 2
Tôi có viết 1 đoạn mã sau để xoá dữ liệu:
Tôi có tạo một Button để thực thi đoạn mã này.
Đoạn mã này nếu chạy trực tiếp từ cửa sổ Alt+F8 thì không có gì khác biệt ở hai phiên bản Excel.
Tuy nhiện, nếu chạy đoạn mã này bằng Button (assign marco) trên bản LTSC 2021 thì khi kết thúc mã lại bị chuyển đến Sheets("TH-TX2").
Tôi không hiểu vị sao lại xuất hiện lỗi này khi chạy mã trên bản LTST 2021. Nhờ mọi người xem có thể giải thích giúp tôi với ạ!
Mã:
Option Explicit
Sub XoaData()
Dim i As Integer, j As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For i = 2 To 16
Sheets(i).Range("D4:AA34").ClearContents
Next i
For j = 17 To 19
Sheets(j).Range("B7:K670").ClearContents
Next j
With Sheets("TH-TX2")
.Unprotect ("Q")
.Range("$A$10:$AD$10").AutoFilter 1
.Protect ("Q"), AllowFiltering:=True, _
AllowFormattingColumns:=True, AllowFormattingRows:=True
.Range("AH11:AH26,AJ11:AX14,AJ16:AX20,AJ22:AX24").ClearContents
End With
With Sheets("TH-BQN")
.Unprotect ("Q")
.Range("$A$10:$N$10").AutoFilter 1
.Protect ("Q"), AllowFiltering:=True, _
AllowFormattingColumns:=True, AllowFormattingRows:=True
.Range("P11:P26,R11:W26").ClearContents
End With
Sheets("MENU").Range("O2").ClearContents
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End SubTôi có tạo một Button để thực thi đoạn mã này.
Đoạn mã này nếu chạy trực tiếp từ cửa sổ Alt+F8 thì không có gì khác biệt ở hai phiên bản Excel.
Tuy nhiện, nếu chạy đoạn mã này bằng Button (assign marco) trên bản LTSC 2021 thì khi kết thúc mã lại bị chuyển đến Sheets("TH-TX2").
Tôi không hiểu vị sao lại xuất hiện lỗi này khi chạy mã trên bản LTST 2021. Nhờ mọi người xem có thể giải thích giúp tôi với ạ!
