Excel：相对单元格的递增计数器button

在Excel中，我想要一个button来单击将增加单元格的值。

但是，而不是增加一个绝对引用的单元格，我想增加一个单元格的值相对于button的位置。

这是迄今为止我正在使用的代码types，但find事件对象位置的关键问题certificate是困难的…

Sub increment_value() this.Offset(0, -2).Value = this.Offset(0, -2).Value + 1 End Sub 

这是我想要它做的（仅仅是例子 – >button在D5增加B5的1. 相对是关键！）：

小思想：有没有一个相当于Javascript关键字的Excel： this ？

Answer 1

如果你的button是一个ActiveX的，你可以添加下面的代码：

 Private Sub CommandButton1_Click() Me.CommandButton1.TopLeftCell.Offset(0, -2) = _ Me.CommandButton1.TopLeftCell.Offset(0, -2) + 1 End Sub 

哪里：

Me. 指button所在的工作表。

.CommandButton1. 指的是自身

.TopLeftCell是返回button的TopLeftangular落处的单元格的Range object的属性。 所以，当你在工作表中find它的时候，确切的说是。

尝试和testing！