[已解决]InputBox默认值如何设为最后一次输入的值

ddbb2008

InputBox默认值如何设为最后一次输入的值，如 InputBox("请输入文件名：", "保存文件名", "改建斗渠01")      ，其中 "改建斗渠01" 为inputbox提示框的默认值， 有没有办法，把这个默认值设置成我最后一次输入 inputbox提示框的值，例子中是"改建斗渠01"   ，假如我最后一次输入inputbox提示框的值是  新建斗渠01  ，我怎么在这次程序运行结束后 把这个  新建斗渠01   设置成默认值呢？谁会，求指教

最佳答案

月排行榜 / 总排行榜

extyg

2013-2-4 11:17

定义一个name,用这个name来保存数据：
Sub test()
    Dim str$
    On Error GoTo 100
    str = InputBox("请输入信息", "测试", [MyVal])
100:
    If Err.Number <> 0 Then str = InputBox("请输入信息", "测试")
    If Len(str) Then ThisWorkbook.Names.Add Name:="Myval", RefersTo:=str
End Sub

跳转到最佳答案楼层

hwc2ycy

在工程顶部定义个变量。
这样每次运行时都会是上次的值。

hwc2ycy

1. Dim MyValue As String
   
2. 
   
3. 
   
4. Sub test()
   
5.     Dim str$
   
6.     str = InputBox("请输入信息", "测试", MyValue)
   
7.     If Len(str) Then MyValue = str
   
8. End Sub
   

复制代码

ddbb2008

hwc2ycy 发表于 2013-1-28 08:32

感谢帮助，太强大了

无聊的疯子

拿一个单元格来记录最后一次输入的值,每次去那里调用就可以了!!

虽然使用 全局变量 也可以解决,但是全局变量在工作薄打开后第一次使用时,是没有值的!!
还有就是代码中如果使用了 End 值也会被清空

所以这应该算是一个小小的 bug 吧!!

extyg

定义一个name,用这个name来保存数据：
Sub test()
    Dim str$
    On Error GoTo 100
    str = InputBox("请输入信息", "测试", [MyVal])
100:
    If Err.Number <> 0 Then str = InputBox("请输入信息", "测试")
    If Len(str) Then ThisWorkbook.Names.Add Name:="Myval", RefersTo:=str
End Sub

jncdq

请教: range("a1")=a,当a=345,怎样才能间接做到range("a1")=345