不同文本框中的双串联，具体取决于类别

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 个文本框，具体取决于填充了多少个，我想将它们的值放在一个单元格上......但似乎串联不起作用，也尝试了 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