Excel VBA incrementing variable in for loop

Question

Я все еще новый ученик программирования VBA, и я столкнулся с проблемой, с которой я не могу найти решение. Я пытаюсь создать книгу для обработки рецептов. Я вызываю форму пользователя, используемую для добавления рецепта в макрос с несколькими вводами текстовых полей (~ 96 из них). Когда я ввожу все ингредиенты, количество, единицы и нажмите кнопку «ОК», я хочу, чтобы он написал, что находится в пользовательской форме на листе. Все текстовые поля имеют именование, заканчивающееся номером в порядке возрастания (например, .txtIngredient1, .txtIngredient2, ...). Можно ли использовать цикл for для копирования Me.txtIngredientX.Value в диапазон на листе?

Фрагмент моего текущего кода:

Sheets("Recipes").Range("B" & addatrow + 0) = Me.txtIngredient1.Value 
Sheets("Recipes").Range("B" & addatrow + 1) = Me.txtIngredient2.Value 
Sheets("Recipes").Range("B" & addatrow + 2) = Me.txtIngredient3.Value 
Sheets("Recipes").Range("B" & addatrow + 3) = Me.txtIngredient4.Value 
Sheets("Recipes").Range("B" & addatrow + 4) = Me.txtIngredient5.Value 
Sheets("Recipes").Range("B" & addatrow + 5) = Me.txtIngredient6.Value 
Sheets("Recipes").Range("B" & addatrow + 6) = Me.txtIngredient7.Value 
Sheets("Recipes").Range("B" & addatrow + 7) = Me.txtIngredient8.Value 
Sheets("Recipes").Range("B" & addatrow + 8) = Me.txtIngredient9.Value 
Sheets("Recipes").Range("B" & addatrow + 9) = Me.txtIngredient10.Value 
Sheets("Recipes").Range("B" & addatrow + 10) = Me.txtIngredient11.Value 
Sheets("Recipes").Range("B" & addatrow + 11) = Me.txtIngredient12.Value 
Sheets("Recipes").Range("B" & addatrow + 12) = Me.txtIngredient13.Value 

я попробовал единственное, что я знаю, чтобы сделать что-то вроде этого:

for i = 1 to 32 
    Sheets("Recipes").Range("B" & addatrow - 1 + i) = me.txtIngredient & i.value 

, который не работает. Примечание: addatrow - это переменная в макросе, которая определяет, где должен быть вставлен следующий рецепт.

Любая помощь очень ценится!

Спасибо!

Answer 1

Попробуйте это:

Обратите внимание, что nameForm должно быть имя вашей формы, с Me, кажется, не работает.

for i = 1 to 32 
    Sheets("Recipes").Range("B" & addatrow - 1 + i) = nameForm.Controls("txtIngredient" & i).Value 

Answer 2

Как насчет:

for i as integer = 1 to 32 
    for each c as control in me.controls 
     if typeof(c) is textbox andAlso c.name = "txtIngredient" & i.tostring then 
      Sheets("Recipes").Range("B" & addatrow - 1 + i) = c.value 
      exit for 
     end if 
    next c 
next i 

Хороший вопрос, я часто хотел сделать такую ​​вещь сама :)

(Это VB.NET код, не знаю, сколько из этой воли работать в VBA, надеюсь, что он работает)

Answer 3

этот код должен быть связан с кнопкой ОК, в кодовой странице UserForm в:

Sub Button_OK_Click 'Assuming the 'Ok' button is called Button_Ok on the userform 

dim DATA() 'automatically declared as Variant, need to be Variant. 
dim Sh as worksheet 
dim i& ' declared as Long , this is our looping variable 
redim DATA (1 to 96, 1 to 1) 'a one colone array with 96 rows 
set Sh = thisworkbook.Sheets("Recipes") 

with Me 
    for i = 1 to 96 
     DATA (i,1) = .Controls("txtIngredient" & i).Value 
    next i 
end with 

with application 
    .screenupdating = false 
    .enableevents = false 
    .calculation = XlManual 
end with 


with Sh 
    .Range(.cells(addatrow,2) , .cells (addatrow+95 , 2)).value2 = DATA 'write it to the sheet in a single line 
end with 

erase DATA 
Set Sh = Nothing 

with application 
    .screenupdating = true 
    .enableevents = true 
    .calculation = XlAutomatic 
end with 

end sub