Выполнение конкретной строки vba

Question

Я не мог найти это нигде. В Visual Basic (excel) я могу нажать F8 и прокрутить каждую строку. Но позвольте сказать, что я хочу начать процедуру sub, а затем, выполнив первые 2 строки, я хотел бы перейти к строке 200. До сих пор я всегда перетаскивал желтую стрелку в нужную строку. Это действительно требует много времени, и мне было интересно, есть ли какая-нибудь команда просто сказать «запустить текущую строку, где выбрано» или что-то еще.

Кроме того, даже если бы я мог начать работать по строкам и быстро переместить желтую выделенную стрелку в нужную строку, это также сработает.

Answer 1

К сожалению, невозможно выполнить то, что вы просите напрямую.

Однако может закомментируйте строки кода выше код, который вы хотите быть выполнен, например:

Sub Workbook_Open() 
    'Application.DisplayFullScreen = True 
    'Application.DisplayFormulaBar = False 
    'ActiveWindow.DisplayWorkbookTabs = False 
    ''ActiveWindow.DisplayHeadings = False 
    Application.EnableEvents = True 
    Password = "1234" 
    ActiveWorkbook.Protect 
    ThisWorkbook.Protect (Password = "1234") 
End Sub 

Вы могут Используйте GoTo с, но тем не менее это не считается хорошей практикой и может сильно повредить ваш код:

Sub Workbook_Open() 
    GoTo ExecuteCode 
    Application.DisplayFullScreen = True 
    Application.DisplayFormulaBar = False 
    ActiveWindow.DisplayWorkbookTabs = False 
    ActiveWindow.DisplayHeadings = False 
    Application.EnableEvents = True 
    ExecuteCode: 
    Password = "1234" 
    ActiveWorkbook.Protect 
    ThisWorkbook.Protect (Password = "1234") 
End Sub 

Answer 2

Я обычно комментирую строки кода, которые я не хочу запускать с апострофами. Кроме того, вы можете разбить свой код на более мелкие процедуры, чтобы вы могли легко выбирать, что вы хотите протестировать/запустить.

Answer 3

Щелкните правой кнопкой мыши по строке, в которую вы хотите перейти. В меню выберите Set Next Statement. Это эквивалентно перетаскиванию стрелки на эту линию. (Ctrl-F9 - это горячая клавиша для этого действия.)

Если вы хотите, чтобы он быстро выполнил каждую строку до определенной строки, установите точку останова, затем нажмите «Бег» вместо того, чтобы переходить через код по строкам. Сделайте это, нажав на серое полотно в левой части, где появляется желтая стрелка. Должна появляться темно-красная точка, и линия должна быть выделена темно-красным цветом. Это говорит о том, что визуальный базис останавливается, когда он попадает в эту строку.

Вы также можете прокомментировать строки, начав их с апострофии.

Наконец, вы можете разбить код на подпрограммы и выполнить их независимо друг от друга.

Sub Subroutine1() 
    'This is a commented out line. It does nothing. 
    MsgBox "Do stuff here" 
End Sub 

Sub Subroutine2() 
    Subroutine1 'This will run all the code in subroutine 1 
    MsgBox "Do more stuff here" 
End Sub 

В приведенном выше примере, если вы запустите Subroutine1, вы получите одно окно с сообщением. Если вы запустите Subroutine2, вы получите два окна сообщений.

Answer 4

Если у вас есть процедура с 200 лайнерами, которая делает так много вещей, которые вы хотели бы пропустить большую часть, похоже, вам нужно немного реорганизовать.

Извлечь «вещи, которые процедура делает», в свои собственные процедуры Sub и Function областей. Если у вас есть комментарии, напоминающие баннер, которые говорят такие вещи, как '*** do something ***, то это фрагмент, который нужно извлечь в свою собственную процедуру.

Пошаговое, что процедура затем может включать переступая через (Shift + F8) меньшие процедуры, которые делают одну вещь, или сломаться и пропустить вызов в целом.

Answer 5

Это то, как я это делаю - в основном, если я знаю, что мой код до строки 200 работает правильно, но я уверен, что между 200-300 и ошибками происходит ошибка до компиляции - прокрутите вниз до строки 200 и отметьте ее (слева от кода). Затем скомпилируйте его - нажмите F5, и он выполнит все до строки 200, после чего вы сможете поочередно проходить каждую линию по отдельности.