偶尔兴致来了，练习一些图表，记录一下

493861364

wb_1027 发表于 2022-9-9 13:26
假设数据如上图，整理完毕
点击运行代码

请教个问题，我之前用inputbox，类型8，选择输入单元格地址的时候，与老师在楼上的附件中的inputbox用法一样
问题是：对话框为空，直接点确定，会报错，如图所示。
百度了很久也没有解决，每次用到这个代码都觉得不舒服，有啥处理的好办法没？求教了！

wangg913

493861364 发表于 2022-9-9 19:32
请教个问题，我之前用inputbox，类型8，选择输入单元格地址的时候，与老师在楼上的附件中的inputbox用法 ...

1. On Error Resume Next

复制代码

是这个意思吗？

493861364

wangg913 发表于 2022-9-9 20:10
是这个意思吗？

感谢版主回复，对话框空着，点取消，这句代码管用

对话框空着，点确定，还是报错

wangg913

493861364 发表于 2022-9-9 20:24
感谢版主回复，对话框空着，点取消，这句代码管用

对话框空着，点确定，还是报错

IF RNG IS NOTHING THEN EXIT SUB

micch

set rng  需要返回一个range对象给 rng 赋值。取消返回的是false，不对。没选择就点确定，也是没返回range对象，所以也不对。

493861364

wangg913 发表于 2022-9-9 20:33
IF RNG IS NOTHING THEN EXIT SUB

试过了，=empty，=“”，都试过了，好像根本运行不到这行代码就报错了
还试过直接判断inputbox与空字符是否相等，然后退出，都是报错，
感觉空值根本不会返回，直接就报错了

wb_1027

要求选择单元格区域，而不选择，
为什么错误，不知道。
利用语句可以绕过错误或忽略错误。

wb_1027

出现对话框时，点击取消按钮或Esc按钮，VB将显示一个错误信息——“要求对象”。为什么错误，我不知道。
如果试着去调试，VB就会加亮显示错误的代码行。
若不希望在取消对话框时选择任何单元格，并且也不希望出现其他对话框，
On Error GoTo 标志 这个语句就可以忽略VB显示的这个错误。
自语句 On Error GoTo 标志，绕过错误的发生，
直接转到 标志 处，他是绕过了 标志起始到结束之间的所有语句，


Sub test1()
    Dim Rng As Range
    Dim TellMe As String
    Dim MeR As String
    On Error GoTo ForcedEnd
    TellMe = "请使用鼠标选择一个范围："
    MeR = "格式化单元格"
        Set Rng = Application.InputBox(prompt:=TellMe, Title:=MeR, Type:=8)
        Rng.NumberFormat = "0.00"
        MsgBox "您已为所选单元格区域进行了格式设置。"
    Rng.Select
ForcedEnd:

End Sub

而 On Error Resume Next 是忽略错误语句继续执行下一句，


Sub test2()
    Dim Rng As Range
    Dim TellMe As String
    Dim MeR As String
    On Error Resume Next
    TellMe = "请使用鼠标选择一个范围："
    MeR = "格式化单元格"
        Set Rng = Application.InputBox(prompt:=TellMe, Title:=MeR, Type:=8)
        Rng.NumberFormat = "0.00"
        MsgBox "您已为所选单元格区域进行了格式设置。"
    Rng.Select

End Sub


运行test2 ，点击取消，MsgBox对话依然会出现，
而test1就不会。

493861364

wb_1027 发表于 2022-9-9 21:31
出现对话框时，点击取消按钮或Esc按钮，VB将显示一个错误信息——“要求对象”。为什么错误，我不知道。
...

感谢老师指点，学习了，试了下2段代码，对话框空着，点取消确实能跳过去
我那个困惑是，空着对话框，啥也不选，直接点击确认按钮会报错
是我以前误操作发现的
再次感谢热心指点帮助，祝您中秋愉快！

493861364

micch 发表于 2022-9-9 20:37
set rng  需要返回一个range对象给 rng 赋值。取消返回的是false，不对。没选择就点确定，也是没返回range ...

是的，比较麻烦的就是，错误处理的语句，无法绕开空着对话框单击确认按钮的操作，空着对话框按取消按钮的操作可以绕过去

祝大侠中秋快乐！