代码运行结果：

代码截图：

代码文本：

Public Sub 技巧()
    Dim myRange As Range
    Dim myString As String
    myString = "请用鼠标选取单元格，然后单击确定按钮。"
    On Error Resume Next
    Set myRange = Application.InputBox(myString, Type:=8)
    On Error GoTo 0
    If myRange Is Nothing Then
        MsgBox "已经取消操作。"
    Else
        MsgBox "选择的单元格（区域）地址为：" & myRange.Address
    End If
    Set myRange = Nothing
End Sub

注释：

On Error Resume Next 意思是让程序在出现错误时，不用理会，不要弹出错误提示框，直接跳到下一条语句。

VBA编辑神器放送

VBA编程懒人神器推荐 VBA代码助手 可以极大提高编程速度，降低编程门槛欢迎使用
VBA密码破解 VBA代码对齐  VBA代码混淆保护加密 代码库输入提示 VBA模块隐藏
下载链接：http://excel880.com/blog/archives/11297