VBA案例精选 显示所选单元格的地址

代码运行结果：

代码截图：

代码文本：

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 意思是让程序在出现错误时，不用理会，不要弹出错误提示框，直接跳到下一条语句。

【你们百度三天  不过我随口一句】
郑广学老师独家逐行手写沉浸式案例教学法 知其然更知其所以然
全套教程包含 VBA175例+函数操作408例+代码助手VIP
+100期直播回放
【268元进1000人高手VBA永久答疑群+880网站VIP】
买课咨询请加微信EXCEL880B

点击进入 郑广学老师Excel教程免费学7天 !

---

扫描二维码