我在excel中,插入了一个按钮控件,我想用VBA代码来获取该控件所在单元格行位置! 5

主要是想知道该控件所在单元格的行位置,比如在多少行!... 主要是想知道该控件所在单元格的行位置,比如在多少行! 展开
 我来答
2724421
2013-07-12 · TA获得超过2490个赞
知道大有可为答主
回答量:1551
采纳率:71%
帮助的人:922万
展开全部
Sub aa()
Dim shp As Shape
For Each shp In Shapes
    irow1 = shp.TopLeftCell.Row             '获的shape对象的左上角所在单元格的行号
    icol1 = shp.TopLeftCell.Column          '获的shape对象的左上角所在单元格的的列号
    irow2 = shp.BottomRightCell.Row         '获得shape对象的右下角所在单元格的行号
    icol2 = shp.BottomRightCell.Column      '获得shape对象的右下角所在单元格的列号
    Cells(irow1, icol2 + 1) = shp.Name      '把shape对象的名字写入shape对象右边一列
    Cells(irow1, icol2 + 2) = Shapes(Cells(irow1, icol2 + 1).Value).TopLeftCell.Row  '通过引用shape对象的名字,获得shape左上角所在的行号,并写入shape对象右边第二列
Next
End Sub
aaa163163
2013-07-12
知道答主
回答量:27
采纳率:0%
帮助的人:19.8万
展开全部
控件是通过编程来执行操作,并且控件是你自己放的。位置不是很清楚吗?
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
Mycomecomebaby
2017-12-25
知道答主
回答量:54
采纳率:0%
帮助的人:5.8万
引用2724421的回答:
Sub aa()Dim shp As ShapeFor Each shp In Shapes irow1 = shp.TopLeftCell.Row '获的shape对象的左上角所在单元格的行号 icol1 = shp.TopLeftCell.Column '获的shape对象的左上角所在单元格的的列号 irow2 = shp.BottomRightCell.Row '获得shape对象的右下角所在单元格的行号 icol2 = shp.BottomRightCell.Column '获得shape对象的右下角所在单元格的列号 Cells(irow1, icol2 + 1) = shp.Name '把shape对象的名字写入shape对象右边一列 Cells(irow1, icol2 + 2) = Shapes(Cells(irow1, icol2 + 1).Value).TopLeftCell.Row '通过引用shape对象的名字,获得shape左上角所在的行号,并写入shape对象右边第二列NextEnd Sub
展开全部
如果不想循环,点哪个控件就返回哪个控件,应该怎么改?或者说在循环下面加一个If判断,所果返回的是被点击的控件就执行
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 2条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式