Vba Dim错误，.Text=启动前无错误，无Text=错误

所以我试图找出为什么我的Visual Basic代码不起作用，我试图使它有两个文本框以某种方式合并，因为我需要它们对它们旁边的文本分开，我打算使用一个变量来简化它，但当我输入代码时，它似乎不起作用，当我从第二个文件中删除.Text时，它出现了一个BC30452错误，当我将.Text添加到这两个文件中时，它在启动之前不会给我任何错误

代码：

我将.Text添加到它们的末尾，它将没有初始错误，但在启动时，如果我使用按钮打开代码所在的表单，它将不起作用。

---

N1、N2和输出是文本框

您可以使用一个

夜间

数组，并通过所有用户表单

文本框

，对每一对填充

夜间（i）

例如，对于i=1到15的

中的第三个循环，它将从名为“N3Output”add“-”的用户表单控件中获取值，然后从“N3”中获取值（文本），并将值放入数组中的
Night（3）
元素中

请尝试以下代码（应在
用户表单
模块中）：

Private子合并文本框（）
朦胧的夜（）如弦
我想我会坚持多久
ReDim Night（1到15）“
Dim Night1作为字符串：Night1=N1输出&“-”&N1
N1、N2等是什么，一些变量或单元格？N1、N2=Textboxes@Backtalkers尝试下面的答案和代码
 Dim Night1 = N1Output And "-"  And N1

 Dim Night2 = N2Output And "-"  And N2

 Dim Night3 = N3Output And "-"  And N3

 Dim Night4 = N4Output And "-"  And N4

 Dim Night5 = N5Output And "-"  And N5

 Dim Night6 = N6Output And "-"  And N6

 Dim Night7 = N7Output And "-"  And N7

 Dim Night8 = N8Output And "-"  And N8

 Dim Night9 = N9Output And "-"  And N9

 Dim Night10 = N10Output And "-"  And N10

 Dim Night11 = N11Output And "-"  And N11

 Dim Night12 = N12Output And "-"  And N12

 Dim Night13 = N13Output And "-" And N13

 Dim Night14 = N14Output And "-" And N14

 Dim Night15 = N15Output And "-" And N15

Private Sub MergeTextBoxes()

Dim Night() As String
Dim i As Long

ReDim Night(1 To 15) '<-- redim Night array size to 15 (according to your example)

For i = 1 To 15
    Night(i) = Me.Controls("N" & i & "Output").Value & "-" & Me.Controls("N" & i).Value '<-- add values to all 15 array elements from User_From textboxes
Next i

End Sub