我利用控件做了个Text.Box,里面有一些名字,如下图所示(张三,李四,王五,一行只有一个名字)。我想得到的结果是将每个名字用单引号分开并赋值给一个字符串namelist,形如:namelist='张三','李四','王五'。我用了下面代码:
Sub namelisting()
Dim namelist As String
Dim nam As String
Dim nams() As String
Dim x As Integer
Set res = Workbooks("Test.xlsm").Worksheets("Sheet3")
res.Activate
nam = UCase(TextBox1.Text)
nams = Split(nam, vbCrLf)
x=UBound(nams)
namelist="'" & nams(0) & "'"
For i=1 to x
namelist=namelist & "," & "'" & nams(x) & "'"
Next i
End Sub
Text.Box 的代码:
Private Sub TextBox1_Change()
End Sub