Office中国论坛/Access中国论坛

标题: 数据累加 [打印本页]

作者: 如果我是真的 时间: 2007-12-31 14:44
标题: 数据累加
A1单位格创建一个按钮，当按下这个按钮，B1单位格自动累加1，比如，原B1数据是0，按下一次按钮，B1变为1，再次按下，变成2。
在线等，急用。

作者: pureshadow 时间: 2007-12-31 16:04
是不是你要的效果

作者: 如果我是真的 时间: 2008-1-1 09:31
就是这个效果，谢谢了

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

作者: livewire 时间: 2008-1-1 16:46
将此按钮指定为此宏

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 时间: 2008-2-1 11:31

作者: linzunxian 时间: 2008-2-1 16:39
用微调按钮效果应该更好,可以增减.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)