Application.InputBox没有进行选择时，弹出“没有选择区域”的提示

yjwdjfqb

Application.InputBox没有进行选择时，弹出“没有选择区域”的提示
如图：


Application.InputBox没有进行选择时，弹出“没有选择区域”的提示.rar (34.34 KB, 下载次数: 4)

2018-6-9 09:39 上传

点击文件名下载附件

请老师们帮帮忙，谢谢大家了！

zhangzhang

能够 不 显示

Dim Rng As Range

    Application.DisplayAlerts = False
    Set Rng = Application.InputBox(prompt:="请选择区域：", Title:="选择区域", Type:=8)
   
    If Rng Is Nothing Then Exit Sub

    Application.DisplayAlerts = True

看见星光

1. Sub test()
   
2.     Dim Rng As Range
   
3.     Dim strRngAddress As String
   
4.     On Error Resume Next
   
5.     strRngAddress = Cells(Rows.Count, Columns.Count).Address
   
6.     Set Rng = Application.InputBox(prompt:="请选择区域：", Title:="选择区域", Default:=strRngAddress, Type:=8)
   
7.     If Rng.Address = strRngAddress Then MsgBox "你尚未选择单元格区域。": Exit Sub
   
8.     If Rng Is Nothing Then Exit Sub
   
9. End Sub
   

复制代码

看见星光

Application.InputBox没有进行选择时，弹出“没有选择区域”的提示.rar (12.27 KB, 下载次数: 9)

2018-6-9 11:07 上传

点击文件名下载附件

蓝桥玄霜

1. Sub test()
   
2.     Dim rng As Range
   
3.     On Error Resume Next
   
4.     Set rng = Application.InputBox(prompt:="请选择区域：", Title:="选择区域", Type:=8)
   
5.     If rng Is Nothing Then MsgBox "没有选择区域": Exit Sub
   
6. End Sub
   

复制代码

yjwdjfqb

蓝桥玄霜 发表于 2018-6-9 11:11

老师你好，我是想，在没有选择区域的情况下，点确定，弹出提示！
谢谢你了老师！

yjwdjfqb

看见星光 发表于 2018-6-9 11:07

老师你好，可以不显示这个区域不

yjwdjfqb

看见星光 发表于 2018-6-9 11:07

麻烦老师帮我修改下，谢谢了老师！