VBA - Goto на номер строки

MoNeTa · 19.03.2020, 18:05

Привет.
По работе хочу небольшой макрос на экселе написать
Можете подсказать почему "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

mike_ · 19.03.2020, 21:17

"Label not defined"
Ну так у тебя нету метки myRange.

Vladimir_S · 19.03.2020, 21:23

Цитата:

Сообщение от mike_

"Label not defined"
Ну так у тебя нету метки myRange.

Почему же? Он их задал циклом. А вот допустимо ли так делать — другой вопрос. Что-то как-то сомнительно, хоть честно признаюсь — в макросах ни бельмеса.

mike_ · 19.03.2020, 23:07

Цитата:

Сообщение от Vladimir_S

А вот допустимо ли так делать — другой вопрос

Мне кажется, что нет.:

Цитата:

Oператор GoTo в VBA, ситуации применения GoTo

Оператор GoTo — это оператор безусловного перехода, когда ход выполнения программы без проверки каких-либо условий перепрыгивает на метку в коде. Пример применения GoTo может выглядеть так:

GoTo EngineNotStarted

…

EngineNotStarted :

MsgBox "Едем на метро"

…

EngineNotStarted: — это метка, для нее используется имя (выбираемое по правилам назначения имен для переменных), которое оканчивается на двоеточие.

Иногда использование GoTo очень удобно — например, когда нам нужно добиваться от пользователя ввода правильного значения неизвестное число раз. Однако использование GoTo категорически не рекомендуется, потому что код становится трудночитаемым. Чаще всего GoTo можно заменить на конструкцию Do While или на вызов функции из самой себя.

MoNeTa · 20.03.2020, 12:18

Я тоже не нашел почему, пришлось поменять код, коротко внизу. Пришлось вынуть основную функцию как отдельный саб, и выполнять ее каждый раз при новом значении переменного. работает.
Если будут новости по 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

AlexZir · 22.03.2020, 21:45

Имя массива не может служить меткой для оператора безусловного перехода.

Daniellos · 22.03.2020, 21:46

Блин, Алекс ты второй Сахаров

19.03.2020, 18:05	#1 (permalink)
MoNeTa Member Регистрация: 01.02.2008 Сообщений: 300 Сказал(а) спасибо: 0 Поблагодарили 1 раз в 1 сообщении Репутация: 252	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

22.03.2020, 21:45	#6 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Имя массива не может служить меткой для оператора безусловного перехода. __________________ Убить всех человеков!

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

19.03.2020, 18:05
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Почитайте, возможно найдете нужный ответ Строки Строки GOTO - блокировщик экрана Вконтакте. Введите номер Вашего телефона. Номер телефона: +7

19.03.2020, 21:17	#2 (permalink)
mike_ VIP user Регистрация: 15.01.2014 Сообщений: 1,828 Сказал(а) спасибо: 242 Поблагодарили 15 раз(а) в 11 сообщениях Репутация: 26010	"Label not defined" Ну так у тебя нету метки myRange.

20.03.2020, 12:18	#5 (permalink)
MoNeTa Member Регистрация: 01.02.2008 Сообщений: 300 Сказал(а) спасибо: 0 Поблагодарили 1 раз в 1 сообщении Репутация: 252	Я тоже не нашел почему, пришлось поменять код, коротко внизу. Пришлось вынуть основную функцию как отдельный саб, и выполнять ее каждый раз при новом значении переменного. работает. Если будут новости по 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

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

22.03.2020, 21:46	#7 (permalink)
Daniellos Хозяин Медной Горы Регистрация: 01.08.2011 Адрес: Армавир Сообщений: 12,159 Записей в дневнике: 8 Сказал(а) спасибо: 751 Поблагодарили 88 раз(а) в 27 сообщениях Репутация: 57416	Блин, Алекс ты второй Сахаров