Использую такой код и происходит ошибка: Compile error: End If without block If. При этом VBA выделяет "End If".
Почему происходит ошибка?
Sub Макрос()
Dim Number As Double, Digits As Double
Number = 53
If Number < 10 Then Digits = 1
If Number < 100 Then Digits = 2
End If
End Sub
Если вы пишите конструкцию If...Then в одну строку (а не в несколько), то End If не надо использовать:
Sub Макрос()
Dim Number As Double, Digits As Double
Number = 53
If Number < 10 Then Digits = 1
If Number < 100 Then Digits = 2
End Sub
Cпасибо за уделенное время. Макрос теперь работает, как я хочу.