application.inputbox判断点击确定还是取消

bob411

获取选择单元格区域rng=application.inputbox("提示",“标题”,,,,type:=8)。运行时，inputbox有“确定”，“取消”两个按钮，点确定后变量成功获取单元格区域，但是，点击取消就会出现程序出错提示。怎么编写判断点击确定还是取消的处理代码呢？

bob411

不好意思，手机发的，没法编辑，rng我定义的是Range对象变量。那句赋值语句应该是Set rng=application.inputbox("提示",“标题”,,,,type:=8) 。我分析是点取消返回的false不能赋值给对象变量。那难道用inputbox方法获取单元格区域时取消键就没法设定了吗？

rainbowdog

bob411 发表于 2016-1-2 20:40
不好意思，手机发的，没法编辑，rng我定义的是Range对象变量。那句赋值语句应该是Set rng=application.inpu ...

加判断，if not Application.InputBox("提示", "标题", , , , , , 8) then exit sub，取消输入时 application.inputbox返回False

silent_hunter

bob411 发表于 2016-1-2 20:40
不好意思，手机发的，没法编辑，rng我定义的是Range对象变量。那句赋值语句应该是Set rng=application.inpu ...

刚刚碰到这个问题，我查出来的解决方案是，只能用on error resume next， on error goto 0。

跛足道人

sub test()
      on error resume next
      set a=application.inputbox(..............)
      if err.number=13 then exit sub            '点取消后错误代码为13
end sub

honghupx

rainbowdog 发表于 2016-1-11 00:54
加判断，if not Application.InputBox("提示", "标题", , , , , , 8) then exit sub，取消输入时 applica ...

在不选择“取消”的时候返回值时range而非false，故如果选择了单元格则会报错哟。