将多个文本框放入一个单元格，如何在第二个，第三个...文本框中没有值，然后继续编码

Question

我在userform上有4个文本框。所有4的值都被转移到由break（Char（10））和前缀“Error1：”字符串分隔的一个单元格中，但如果只有第一个文本框有值而其余为空，则为其他文本框的前缀出现在细胞上。我想知道是否可以跳过空文本框，而不是将它们的前缀传递给单元格。

我正在使用If语句和“＆”将所有文本框添加到一个单元格中。

a = Error1Box.Value
b = Error2Box.Value
c = Error3Box.Value
d = Error4Box.Value
If a = "" Then
    'Do Nothing
Else
    Cells(emptyRow, 16).Value = "Error1: " & a & Chr(10) & "Error2: " & b & Chr(10) & "Errro3: " & c & Chr(10) & "Error4: " & d
End If

我希望：如果只有Error1Box有值，那么单元格将是Error1：description ...

但我得到的是：

Error1: Description...
Error2:
Error3:
Error4:

因此，如果其余文本框为空，则除了具有值的文本框之外，没有其他任何内容显示。

Answer 1

您可以迭代文本框并在适当时构建错误字符串：

Dim errString As String
Dim iTb As Long

For iTb = 1 To 4
    With Me.Controls("Error" & iTb & "Box")
        If .Value <> vbNullString Then errString = errString & Chr(10) & "Error" & iTb & ": " & .Value
    End With
Next
If errString <> vbNullString  Then Cells(emptyRow, 16).Value = Mid$(errString, 2)