Двойная конкатенация в разных TextBox в зависимости от категории

Question

Я не знаю, если кто-то уже задавал вопрос об этом или нет, я новичок в VBA, но я уже немного программировал C#.

Код

в тексте:

For i = 1 To 5 'Category
For j = 1 To 7 'Each entry of the category
If UserForm1.Controls("Cat" & j & "Entry" & i).Value <> "" Then
    Range("A" & i).Value = UserForm1.Controls("Cat" & i & "Entry" & j).Value
End If
Next j
Next i

Так что это в основном то, что я пытаюсь сделать, у меня есть 2 категории, каждая из которых имеет 7 TextBox, в зависимости от того, сколько из них заполнено, Я хотел поместить их значения в ячейку ... Но похоже, что конкатенация не работает, также пробовал методы For Each, но без результатов ..

Интерфейс

Спасибо, ребята

Answer 1

Вы ничего не объединяете, вы каждый раз перезаписываете ячейки A1-5.

For i = 1 To 5 'Category
For j = 1 To 7 'Each entry of the category
If UserForm1.Controls("Cat" & j & "Entry" & i).Value <> "" Then
    if range("A" & i).value <> "" then
         Range("A" & i).Value = Range("A" & i).Value & " " & UserForm1.Controls("Cat" & i & "Entry" & j).Value
    else 'Avoiding the space
         range("A" & i).value = Userform1.controls("Cat" & i & "Entry" & j).value
    end if
End If
Next j
Next i