search所选控件的行（形状）

这是带有箭头的表格的示例：

当我按箭头我想获得相应的目标字段值我想为所有箭头分配一个macros。

我已经完成了第一箭

Sub Arrow() dim targetField as String targetField = Sheet1.Cells(11, 4).Value End Sub 

Answer 1

当我按第二个箭头，我想运行这个（箭头（））macros和增量行号

你真的想这样做吗？ 如果是这样，下面的伪代码就是这样做的。

 dim rVar as Int dim cVar as Int rVar = 11 cVar = 4 targetField = Sheet1.Cells(rVar, cVar).Value rVar+1 cVar+1 

但是，这可能不是你想要做的。 不要硬编码行和列，然后递增，考虑find被点击的对象的范围，然后用它作为你的导航起点，例如：select column 0（你的箭头所在的那一列）和-2 row（两步到从你的箭头位置离开）

Answer 2

我find简单的解决scheme

 Sub Arrow() Dim r As Range 'find the range of the button clicked. Set r = ActiveSheet.Shapes(Application.Caller).TopLeftCell targetField = r.Offset(0, -1) End Sub