Question

请教: VBA如何获取宏按钮的所在的行号或列号？

找了很久都没找到答案。能提供一段完整的代码吗？sub xx（）......end sub

Answer 1

获取方式如下：

获取行号：

CommandButton1.TopLeftCell.Row

获取列号：

CommandButton1.TopLeftCell.Column

按钮名称根据你实际的更改

追问

没弄出来哦。

Sub test()
Dim xxx As String
xxx = Button("import").TopLeftCell.Row
MsgBox xxx
End Sub
我试了下这个，没运行成功。不知道问题出在哪里

你这里的
CommandButton1
是用 Button("imput")代替吗？但是这里 有3个 ，他怎么识别是哪个呢？
会是激活那个吗？

追答

见附图

如果是表单控件，可以用如下格式

Sheet1.Shapes("Button 1").TopLeftCell.Row

Answer 2

我好像记得是可以的，但是我忘了，

不过可以换个思路，用它所在位置来推理出应该在那个行。

效果如下：

Sub 宏2()

'

   a = ActiveSheet.Shapes("Button 1").Top

    For i = 1 To 10

    myt = Cells(i, 1).Height

    mytop = mytop + myt

    If mytop > a Then

    Exit For

    End If

    Next

    MsgBox ("应该在行:" & i)

End Sub

Answer 3

Turtle库手册可以查询查询 python图形绘制库turtle中文开发文档及示例大全，手册中现有示例，不需要自己动手就可以查看演示。
使用Turtle画树，看了一下网上的代码，基本上核心的方法是使用递归；其次通过递归传参更笔的粗细从而改变绘制时的线段，更改树的躯干大小，在遍历到最后一个节点时，更改笔的颜色及粗细，绘制出树尖的花瓣或绿叶。
本篇博文使用的是网上的代码修改而成的，基本上写来写出简单编写也是使用递归，我也就拿过来用了。本来想顺便把环境也绘制一遍，但是明天上班了，今天还有别的事，就只能作罢，有时间再写一篇把环境都弄好的案例吧；下面是最终代码运行后的结果

Answer 4

Set R= shet.Shapes(Application.Caller).TopLeftCell.Row
Set C= shet.Shapes(Application.Caller)..TopLeftCell.Column