Не работает цикл на Userform

@Ruberoid78 · Регистрация: 10.07.2011

Author24 — интернет-сервис помощи студентам

Подскажите, пожалуйста, почему не работает цикл в Userform, запускаемый commandbutton'ом:

Visual Basic

Private Sub CommandButton1_Click()
Dim row_number, i As Integer
'Dim Sense, EOP, Razn_eop, Metal_eop As String
'row_number = последняя непустая строка +1
row_number = Sheets("Rk_data").Range("C65536").End(xlUp).Row + 1
'Проверка1
MsgBox "гут1"
Sheets("Rk_data").Cells(row_number, 1) = "10"
Sheets("Rk_data").Cells(row_number, 2) = Yarkost.Value
Sheets("Rk_data").Cells(row_number, 3) = TK.Value
Sheets("Rk_data").Cells(row_number, 4) = Result.Value
' Проверка2
MsgBox "гут2"
For i = 1 To 13
' Комбобоксы 13 строк
' Если цикл удалить, то всё работает
         Sheets("Rk_data").Range("D" & row_number) = Sense(i).Value
         Sheets("Rk_data").Cells(row_number, 6) = EOP(i).Value
         Sheets("Rk_data").Cells(row_number, 7) = Razn_eop(i).Value
         Sheets("Rk_data").Cells(row_number, 8) = Metal_eop(i).Value
 
Next
End Sub

Возможно код корявый, но всё же как запустить процедуру?

@The_Prist · 04.09.2015, 13:19

Вы бы написали, что цикл делать должен. На вскидку - надо счетчик и к номеру строки прибавлять:

Visual Basic

For i = 1 To 13
' Комбобоксы 13 строк
         Sheets("Rk_data").Range("D" & row_number + i) = Sense(i).Value
         Sheets("Rk_data").Cells(row_number + i, 6) = EOP(i).Value
         Sheets("Rk_data").Cells(row_number + i, 7) = Razn_eop(i).Value
         Sheets("Rk_data").Cells(row_number + i, 8) = Metal_eop(i).Value
Next

@Ruberoid78 · 04.09.2015, 13:27 **[ТС]**

Цикл должен из combobox'ов внести данные на лист. Выдает ошибку: Sub or Function are not defined. И выделяет Sense

@The_Prist · 04.09.2015, 13:49

Так может надо написать людям, что такое есть Sense? Код рабочий. Другой вопрос, что Вы не умеете обращаться к элементам. Sense - это комбобокс? Или что это? И как называются другие комбобоксы?
Опять же, в общем случае, если все комбобоксы имеют указанные имена с разной нумерацией в конце:

Visual Basic

1	Sheets("Rk_data").Range("D" & row_number + i) = Me.Controls("Sense" & i).Value

@Ruberoid78 · 04.09.2015, 14:03 **[ТС]**

Да, действительно, я не умею обращаться к элементам формы. Я думал, что надо в эту сторону копать, просто дело в том, что "Sheets("Rk_data").Cells(row_number, 3) = TK.Value" TK - это тоже комбобокс, но он не в цикле, но тем не менее этот пример работал.
Спасибо большое! Код теперь работает!

@Ruberoid78 0 / 0 / 0 Регистрация: 10.07.2011 Сообщений: 14
	04.09.2015, 13:27 [ТС]	3
	Цикл должен из combobox'ов внести данные на лист. Выдает ошибку: Sub or Function are not defined. И выделяет Sense 0

@Ruberoid78 0 / 0 / 0 Регистрация: 10.07.2011 Сообщений: 14
	04.09.2015, 14:03 [ТС]	5
	Да, действительно, я не умею обращаться к элементам формы. Я думал, что надо в эту сторону копать, просто дело в том, что "Sheets("Rk_data").Cells(row_number, 3) = TK.Value" TK - это тоже комбобокс, но он не в цикле, но тем не менее этот пример работал. Спасибо большое! Код теперь работает! 0

Опции темы

Не работает цикл на Userform

Решение