K.tra nếu tồn tại Sheet1i thì xoá đi, làm sao bỏ hộp thoại hiện ra khi chạy Code (1 người xem)

[khanhhoan]

Em định làm phép thử nếu kiểm tra có Sheet 1 tồn tại thì xoá nó đi, nhưng khi chạy Code sau thì trước khi thực hiện lệnh xoá nó cứ hiện ra hộp thoại rất khó chịu, vậy mình phải làm thế nào khắc phục hiện tượng trên.

Sub THop()
    Dim wS As Worksheet
    On Error Resume Next
    i = Sheets("Sheet1").Index
    If i > 0 Then
        Sheets("Sheet1").Delete
    End If
End Sub

 

[nghiaphuc]

Em định làm phép thử nếu kiểm tra có Sheet 1 tồn tại thì xoá nó đi, nhưng khi chạy Code sau thì trước khi thực hiện lệnh xoá nó cứ hiện ra hộp thoại rất khó chịu, vậy mình phải làm thế nào khắc phục hiện tượng trên.

Sub THop()
    Dim wS As Worksheet
    On Error Resume Next
    i = Sheets("Sheet1").Index
    If i > 0 Then
        Sheets("Sheet1").Delete
    End If
End Sub

Bạn hãy thêm câu lệnh Application.DisplayAlert=False vào trước câu lệnh xóa sheet và câu lệnh Application.DisplayAlert=True vào sau câu lệnh này.

 

[khanhhoan]

Em sửa thành thế này vẫn chưa được ah:

Sub THop()
    Dim wS As Worksheet
    On Error Resume Next
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .DisplayAlert = False
        i = Sheets("Sheet1").Index
        If i > 0 Then
            Sheets("Sheet1").Delete
        End If
        .ScreenUpdating = True
        .EnableEvents = True
        .DisplayAlert = True
    End With
End Sub

 

[dhn46]

Bạn sửa như thế này

Sub Button1_Click()
    Dim wS As Worksheet
    On Error Resume Next

    Application.DisplayAlerts = False
    
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        i = Sheets("Sheet1").Index
        If i > 0 Then
            Sheets("Sheet1").Delete
        End If
        .ScreenUpdating = True
        .EnableEvents = True
        .DisplayAlert = True
    End With
    
    Application.DisplayAlerts = True

End Sub

 

[nghiaphuc]

Em sửa thành thế này vẫn chưa được ah:

Sub THop()
    Dim wS As Worksheet
    On Error Resume Next
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .DisplayAlert = False
        i = Sheets("Sheet1").Index
        If i > 0 Then
            Sheets("Sheet1").Delete
        End If
        .ScreenUpdating = True
        .EnableEvents = True
        .DisplayAlert = True
    End With
End Sub

Xin lỗi, mình nhầm một xíu: phải là DisplayAlerts (thêm chữ s) mới đúng.