请教inputbox，按取消按钮后返回一个值

cushion1

各位高手，请教一下，当用inputbox，如何按取消按钮后返回一个值，谢谢

grf1973

当inputbox按“取消”时，返回空字符串""。可以通过判断返回的是否空字符串来重新赋值。

1. Sub tt()
   
2.    mystr = "Test String"
   
3.    xstr = InputBox("请输入！")
   
4.    If xstr = "" Then xstr = mystr
   
5.    Debug.Print xstr
   
6. End Sub
   

复制代码