2013-10-23 447 views
1

在Excel中,我想要一个单击按钮来增加单元格的值。Excel:相对单元格的增量计数器按钮

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

这是代码,我用至今的工作类型,但发现事件对象位置的关键问题是证明很难...

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

这就是我想做的事情(例如只有 - >在D5增量B5按钮由1 相对是关键虽然):

enter image description here

子的想法:是否有一个Excel相当于给Javascript关键字:!?

+0

你使用'ActiveX'或标准窗体的按钮吗? –

+0

我在Excel中使用VBA /宏 – Paul

+0

这就是我所知道的。有两种类型的按钮可放置在工作表上。你使用哪种类型?如果这是ActiveX,那么你会在下面找到答案。 –

回答

1

如果您的按钮是一个ActiveX一个你可以在下面的代码添加到它:

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

其中:

Me.指的按钮位于表。

.CommandButton1.指本身

.TopLeftCell是财产,返回的位于左上的键角细胞Range object。所以,当你在工作表中找到它时,确切无误。

已经过测试!

+0

太棒了!这工作!谢谢你的帮助 :) – Paul