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

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 ...

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

祝大侠中秋快乐！

wb_1027

Sub test4()
On Error Resume Next
    Dim rng As Range
    Dim AddR As String
    If TypeName(Selection) = "Range" Then AddR = Selection.Address Else: AddR = ""
Rem ---- 声明一个对象变量；
Rem ---- 假设当前选择的对象是单元格，则将单元格地址赋予变量，否则将空文本赋予变量；
Rem ---- 弹出对话框，自由选择区域，对话框中默认显示变量 AddR 的值；若重新选择单元格区域，则该区域地址赋予 rng；
    Set rng = Application.InputBox("请选择区域进行格式设置！", "Love", AddR, , , , , 8)
    rng.NumberFormat = "0.00"
    MsgBox "您已为所选的" & rng.Cells.Count & "个单元格区域进行了格式设置。"
    rng.Select
End Sub

建立在已选择了工作表中任意单元区域，一或多个，
绕过出现对话框直接点击确定键。
偷懒啊！

493861364

wb_1027 发表于 2022-9-10 20:20
Sub test4()
On Error Resume Next
    Dim rng As Range

哈哈，费心了，谢谢老师，挺好玩儿的

493861364

继续练习图表

micch

这个图做好了，效果很不错，主要是比例和角度需要调整舒服了