VBA中如何提取指定对象的左上角和右下角所对应的单元格地址?

作者：绿色风分类：时间：2022-08-17 浏览：109

楼主
wise

Q:VBA中如何提取指定对象的左上角和右下角所对应的单元格地址?
A:一般对VBA爱好者来说，提取指定单元格区域的地址都比较熟悉，但提取所对应对象的单元格下面所对应的指定单元格地址，就比较陌生。
比如提取指定对象的左上角下面的单元格及右下角下面的单元格地址，就比较少见。
以下代码主要是介绍如何提取相应对象的指定单元格地址。

Sub ERP()
Dim myRng1 As Range, myRng2 As Range
Dim ws As Worksheet
Dim sp As Shape
Set ws = Worksheets(1) '指定任意工作表
Set sp = ws.Shapes(1) '指定任意对象
Set myRng1 = sp.TopLeftCell '取得左上角下面的单元格
Set myRng2 = sp.BottomRightCell '取得右下角下面的单元格
MsgBox "按钮的左上角下面的单元格地址为:" & myRng1.Address _
& vbCrLf & "按钮右下角下面的单元格地址为:" & myRng2.Address
Set myRng1 = Nothing
Set myRng2 = Nothing
Set sp = Nothing
Set ws = Nothing
End Sub

取指定对象下面的地址.rar

2楼
水星钓鱼

感谢分享

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表