Łatwa obsługa błędów VBA Excel

Question

Przeglądałem w Internecie tyle, ile mogłem (z wyjątkiem witryny pomocy technicznej firmy Microsoft, która z jakiegoś powodu jest zablokowana w pracy). Próbuję po prostu pominąć błąd. Mój napisany tutaj kod jest uproszczony, ale powinien działać w ten sam sposób.

Co mój kod ma robić: Jeden z moich Subs tworzy kształty w pętli i nazwy im (btn_1, btn_2, etc). Ale przed ich utworzeniem wywołuje sub, który próbuje je usunąć, aby nie tworzyć duplikatów. Ten sub przez pętle (btn_1, btn_2, etc) i usuwa kształtów przy użyciu:

for i = 1 to (a certain number) 
    Set shp = f_overview.Shapes("btn_" & i) 
    shp.delete 
next 

Oczywiście, zdarza się, że kształt nie może być usunięty, ponieważ po prostu nie istnieje. Zauważyłem, że przez większość czasu zalecana poprawka polega na dodawaniu (po wznowieniu błędu następnej) przed ustawieniem kształtu, ponieważ pojawia się komunikat o błędzie, że nie istnieje. Próbowałem go wewnątrz pętli, przed pętlą, etc, tak:

for i = 1 to (a certain number) 
    On Error Resume Next 
    Set shp = f_overview.Shapes("btn_" & i) 
    shp.delete 
next 

O ile rozumiem, to ma prawo do pętli poprzez jeżeli kształt nie istnieje, ale wciąż ten sam błąd niezależnie od tego, czy dodaję błąd wznowienia błędu dalej! Co ja robię źle?

EDYCJA: Nie ma błędu, gdy kształty istnieją.

Answer 1

Brzmi jak masz zły wychwytywanie błędów zestaw opcji. W edytorze VBA wybierz opcję Tools -> Options. W oknie, które zostanie otwarte, wybierz General tab i wybierz przycisk radiowy Break on Unhandled Errors. Powinno to umożliwić programowi Excel prawidłowe przetwarzanie polecenia On Error Resume Next.

Podejrzewam, że wybrano Break on All Errors.

Answer 2

Spróbuj:

On Error Resume Next 

for i = 1 to (a certain number) 
    Set shp = f_overview.Shapes("btn_" & i) 
    if err<>0 then err.clear else shp.delete 
next 

on Error Goto 0 

Answer 3

Zamiast próbować ślepo usuwać kształty i pomijać błędy, może warto uruchomić listę znanych kształtów i je usunąć. Wtedy nie musisz się martwić o On Error Resume Next, który często kończy się nadużywane.

Sub Test(TheSheet As Worksheet) 

Dim Shp as Shape 

For Each Shp in TheSheet.Shapes 
    If left(Shp.Name, 4) = "btn_" Then 
    Shp.Delete 
    End if 
Next 

End Sub 

Jeśli chcesz usunąć wszystkie kształty, usuń instrukcję If. Jeśli chcesz usunąć liczbę o różnie nazwanych kształtach, zmodyfikuj odpowiednio instrukcję If.

Answer 4

I odkryli, że większość czasu, polecamy poprawka jest dodać (On Error Resume Next) przed ustawieniem kształt, ponieważ pojawia się błąd mówiąc, że nie istnieje.

NIE!

Zalecanym sposobem uchwyt błędów runtime jest nie wpakować je pod dywan i kontynuować wykonanie, jak gdyby nic się nie stało - co jest dokładnie to, co On Error Resume Next robi.

Najprostszym sposobem unikać błędy runtime jest sprawdzenie warunków błędach i unikać wykonywania kodu, który powoduje 100% wskaźnik awaryjności, jak próbuje uruchomić metodę na odwołania do obiektu, który jest Nothing:

For i = 1 To (a certain number) 
    Set shp = f_overview.Shapes("btn_" & i) 
    If Not shp Is Nothing Then shp.Delete 
Next 

---

W przypadkach, gdy nie można sprawdzić pod kątem błędów i koniecznością błędów rączki, zalecanym sposobem jest uchwytem nich:

Private Sub DoSomething() 
    On Error GoTo CleanFail 

    '...code... 

CleanExit: 
    'cleanup code here 
    Exit Sub 

CleanFail: 
    If Err.Number = 9 Then 'subscript out of range 
     Err.Clear 
     Resume Next 
    Else 
     MsgBox Err.Description 
     Resume CleanExit 
    End If 
End Sub 

Answer 5

nie ma nic złego w korzystaniu OERN (On Error Resume Next) pod warunkiem, że rozumiesz co robisz i jak to będzie wpływać na kod.

W twoim przypadku jest to całkowicie normalne użycie OERN

Dim shp As Shape 

For i = 1 To (a certain number) 
    On Error Resume Next 
    Set shp = f_overview.Shapes("btn_" & i) 
    shp.Delete 
    On Error GoTo 0 
Next 

Jednocześnie zapewniają, że nie robisz coś

On Error Resume Next 
<Your Entire Procedure> 
On Error GoTo 0 

to będzie tłumić wszystkie błędy. Użyj właściwej obsługi błędów, jak pokazano przez Matt

Edycja:

Oto kolejny piękny przykład jak używać OERN Funkcja ta sprawdza, czy dany arkusz istnieje, czy nie.

Function DoesWSExist(wsName As String) As Boolean 
    Dim ws As Worksheet 

    On Error Resume Next 
    Set ws = ThisWorkbook.Sheets(wsName) 
    On Error GoTo 0 

    If Not ws Is Nothing Then DoesWSExist = True 
End Function 

Jeśli chcesz, możesz również przejrzeć wszystkie arkusze, aby sprawdzić, czy arkusz istnieje, czy nie!