VBA - Goto на номер строки
Привет.
По работе хочу небольшой макрос на экселе написать Можете подсказать почему "GoTo myRange" не идет на нужную строку и выдает "Label not defined". Спасибо! Sub Macro1() Dim myRange As Integer Dim myArray As Variant For myRange = 1 To 16 GoTo myRange 20 функция next i Goto 40 1 myArray = Array("10115160", "10115170", "10115171", "10115172") GoTo 20 2 myArray = Array("10201010", "10201030", "10201050") GoTo 20 3 myArray = Array("10201090") GoTo 20 4 myArray = Array("20113040", "20113060", "20113070", "20129030") GoTo 20 итд до 16... 40 End Sub |
"Label not defined"
Ну так у тебя нету метки myRange. |
Цитата:
|
Цитата:
Цитата:
|
Я тоже не нашел почему, пришлось поменять код, коротко внизу. Пришлось вынуть основную функцию как отдельный саб, и выполнять ее каждый раз при новом значении переменного. работает.
Если будут новости по Goto интересно будет знать. Спасибо! sub мой_макрос myArray = Array("10115160", "10115170", "10115171", "10115172") call функция(myArray) myArray = Array("10201010", "10201030", "10201050") call функция(myArray) myArray = Array("10201090") call функция(myArray) итд... end sub sub функция(array1) функция end sub |
Имя массива не может служить меткой для оператора безусловного перехода.
|
Блин, Алекс ты второй Сахаров :)))
|
Часовой пояс GMT +4, время: 15:34. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.