inputbox如何输入多行的内容？

renahu · 发表于 2019-1-19 20:27

也就是在inputbox输入框中怎么输入才能接收到的字符串是："hello" & chr(13) & chr(10) & "world"

山菊花 · 发表于 2019-1-19 21:06

Sub Test()
Dim cTxt$
cTxt = Application.InputBox("请输入XXXXXXXXXXXXXX" & Chr(13) & "用符号/表示换行", "输入", Type:=2)
If cTxt = "False" Then Exit Sub
If cTxt Like "*/*" Then cTxt = Replace(cTxt, "/", Chr(13) & Chr(10))
End Sub

renahu · 发表于 2019-1-19 21:36

山菊花发表于 2019-1-19 21:06
Sub Test()
Dim cTxt$
cTxt = Application.InputBox("请输入XXXXXXXXXXXXXX" & Chr(13) & "用符 ...

还想请问老师
cTxt = Application.InputBox("请输入XXXXXXXXXXXXXX" & Chr(13) & "用符号/表示换行", "输入", "123", Type:=2)
这里输入框中默认是123，但123是被全选的，如果不想全选，只想光标在尾部，能设置吗？

山菊花 · 发表于 2019-1-19 21:56

renahu 发表于 2019-1-19 21:36
还想请问老师
cTxt = Application.InputBox("请输入XXXXXXXXXXXXXX" & Chr(13) & "用符号/表示换行", " ...

我也不知道。

		自动登录	找回密码
密码			免费注册

[求助] inputbox如何输入多行的内容？

评分