数据累加

如果我是真的

A1单位格创建一个按钮，当按下这个按钮，B1单位格自动累加1，比如，原B1数据是0，按下一次按钮，B1变为1，再次按下，变成2。
在线等，急用。

pureshadow

是不是你要的效果

如果我是真的

就是这个效果，谢谢了

[ 本帖最后由 如果我是真的 于 2008-1-1 09:33 编辑 ]

livewire

将此按钮指定为此宏

Sub Macro1()
'
' Macro1 Macro
' ¼Ç¼µÄºê 2008-1-1
'

'
    Dim a As Long
   
    Range("B1").Select
    a = ActiveCell.FormulaR1C1
    a = a + 1
    ActiveCell.FormulaR1C1 = a
   
End Sub

bmw007vip

linzunxian

用微调按钮效果应该更好,可以增减.