需要从文本框输入,并根据文本框的输入创建自定义语句,我需要它在VBA Excel

sdnqo3pr  于 2023-06-25  发布在  其他
关注(0)|答案(1)|浏览(115)

我需要完整的解决方案,通过文本框创建多个输入模板,并与自定义文本链接在后端。一旦所有的领域都进入我需要完整的信息显示和复制。
例如文本框1:保险,文本框2:电话号码和文本框3:代理名称
输出应为
调用“输入从文本框1”与电话号码“输入从文本框2”和发言“输入从文本框3”
需要解决方案,如果我不能复制消息从msg框选项。我是一个非常新的VBA和刚刚看到一个简单的视频创建下面的解决方案

Private Sub CommandButton1_Click()
Dim Insurance As String

'get the data from the textbox
 Insurance = TextBox1.Text
 
Dim Phone As String
Phone = TextBox2.Text

Dim agent As String
agent = TextBox3.Text

'create the writeup
'add your code here to manipulate the data

'display the writeup in a message box
MsgBox "Notes: Called" & Insurance, "with phone number" & Phone, "and spoke to" & agent
End Sub

在MSGBOX行中收到错误。

6ss1mwsb

6ss1mwsb1#

MsgBox需要完整的消息文本作为第一个参数。第二个参数(可选)定义了要显示的消息框类型(图标、按钮),并且是一个数值。有关详细信息,请参见documentation
但是你写了

MsgBox "Notes: Called" & Insurance, "with phone number" & Phone, "and spoke to" & agent

当你仔细查看这个命令时,你会发现你正在传递3个字符串作为参数,用逗号分隔:

"Notes: Called" & Insurance  
"with phone number" & Phone
"and spoke to" & agent

所以你传递给MsgBox的第二个参数是一个String,而函数需要一个数字,因此你会得到一个类型不匹配的错误。
只需将命令更改为

MsgBox "Notes: Called " & Insurance & " with phone number " & Phone & " and spoke to " & agent

现在消息的片段都被连接起来,结果是一个字符串。

相关问题