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

2021年4月11日10:35:13 评论 69 views
微信公众号 【EXCEL880】 QQ群【165159540】 Excel课程咨询 请加郑广学老师微信EXCEL880B

代码运行结果:

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

代码截图:

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

VBA编辑神器放送

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

VBA案例精选 生成文件文件夹目录
VBA案例精选 生成文件文件夹目录
VBA案例精选 生成文件文件夹目录

发表评论

您必须才能发表评论!