关于VBA中application inputbox遇到的难题

碧水红叶

想要实现下面的效果：
1、点击对话框中的取消和对话框右上角的关闭时会报错，想要达到取消当前操作的目的。
2、没有选数据区域单击确定按钮时会出现重新选择数据区域的提示。

huang1314wei

Sub test()
    Dim F As Range
    On Error GoTo L
    Set F = Application.InputBox("请选择单元格区域！", "请选择", , , , , , 8)
    MsgBox "您选择的区域为：" & F.Address
    Exit Sub
L:
    MsgBox "你没有选择区域，程序退出！"
End Sub

碧水红叶

huang1314wei 发表于 2018-1-21 20:41
Sub test()
    Dim F As Range
    On Error GoTo L

谢谢老师的回复，但还遇到一个问题，就是当选择区域为空点击确定后出现错误

huang1314wei

碧水红叶 发表于 2018-1-22 08:44
谢谢老师的回复，但还遇到一个问题，就是当选择区域为空点击确定后出现错误

不允许为空，明白了吗？既然是选择单元格区域，你选择空气作什么

碧水红叶

huang1314wei 发表于 2018-1-22 08:54
不允许为空，明白了吗？既然是选择单元格区域，你选择空气作什么

明白了，必须有选择区域

碧水红叶

huang1314wei 发表于 2018-1-22 08:54
不允许为空，明白了吗？既然是选择单元格区域，你选择空气作什么

还得麻烦老师一下，如果事先选定的区域内空白单元格数量等于0才会调用出application.inputbox这个选择框，然后程序逐步执行，区域内的空白单元格数量大于0则不调出application.inputbox选择框，执行下一步，怎样改才能实现啊？