Używam narzędzi arkusza roboczego, utwórz arkusz indeksu za pomocą przycisków (VBA). Kiedy wybieram jeden z przycisków, kod działa tak, jak powinien, z wyjątkiem tego, że ciągle wyświetla komunikat „Nie można aktywować ODBC. Mógł zostać usunięty lub zmieniono jego nazwę”. błąd. Robi to samo dla wszystkich arkuszy. Jaki jest problem?? Kod jest następujący:
Sub GoToButton1_Click()
On Error Resume Next
Arkusze("ODBC"). Aktywuj
If Err <> 0 Then MsgBox "Nie można aktywować ODBC. Mógł zostać usunięty lub zmieniono jego nazwę."
Przy błędzie GoTo 0
End Sub
Sub GoToButton2_Click()
On Error Resume Next
Arkusze("Master").Aktywuj
If Err <> 0 Then MsgBox „Nie można aktywować modułu głównego. Mógł zostać usunięty lub zmieniono jego nazwę”.
Przy błędzie GoTo 0
End Sub
Sub GoToButton3_Click()
On Error Resume Next
Arkusze("ALL"). Aktywuj
If Err <> 0 Then MsgBox „Nie można aktywować WSZYSTKICH. Mogła zostać usunięta lub zmieniono jej nazwę”.
Przy błędzie GoTo 0
End Sub
Sub GoToButton4_Click()
On Error Resume Next
Arkusze("PAID"). Aktywuj
If Err <> 0 Then MsgBox "Nie można aktywować PAID. Mógł zostać usunięty lub zmieniono jego nazwę."
Przy błędzie GoTo 0
End Sub
Sub GoToButton5_Click()
On Error Resume Next
Arkusze("SETTLED"). Aktywuj
If Err <> 0 Then MsgBox „Nie można aktywować SETTLED. Mógł zostać usunięty lub zmieniono jego nazwę”.
Przy błędzie GoTo 0
End Sub
Sub GoToButton6_Click()
On Error Resume Next
Arkusze("ZAMKNIĘTE").Aktywuj
If Err <> 0 Then MsgBox „Nie można aktywować ZAMKNIĘTEGO. Mógł zostać usunięty lub zmieniono jego nazwę”.
Przy błędzie GoTo 0
End Sub
Sub GoToButton7_Click()
On Error Resume Next
Arkusze("NIEMOŻLIWE").Aktywuj
If Err <> 0 Then MsgBox „Nie można aktywować NON-VIABLE. Mógł zostać usunięty lub zmieniono jego nazwę”.
Przy błędzie GoTo 0
End Sub
Sub GoToButton8_Click()
On Error Resume Next
Arkusze("LEGALNE").Aktywuj
If Err <> 0 Then MsgBox „Nie można aktywować LEGAL. Mógł zostać usunięty lub zmieniono jego nazwę”.
Przy błędzie GoTo 0
End Sub
Sub GoToButton9_Click()
On Error Resume Next
Arkusze("SUMMARY").Aktywuj
If Err <> 0 Then MsgBox „Nie można aktywować SUMMARY. Mogło zostać usunięte lub zmieniono jego nazwę”.
Przy błędzie GoTo 0
End Sub