急急急！！！小猫请教问题啦！！

saniwei

假设excel表格中有两列，一列为“本日合计”，一列为“本月累计”，如果想让“本月累计”进行重复累计工作，请问如果不用VBS，用函数能达到吗？例：今天是6月1日，“本月累计”反映的是今天的资金状况，而“本月累计”反映的是到6月1日为止的当月资金状况，到6月2日后，“本日合计”反映2号当天的资金状况，而“本月累计”栏则变为1号+2号的累计金额，以此类推，请问有办法解决吗？小猫在这里谢过了！！

文件在附件里，用rar压缩过了，这个资金日报我每日都要填写的，“本发生合计”反映当日的金额，“本月累计”则要动态反映从1号-31号的累计金额。请帮忙呀

[此贴子已经被作者于2005-6-1 15:55:46编辑过]

saniwei

呵呵，真是太感谢各位啦

海狸先生

以下是引用saniwei在2005-6-2 9:56:00的发言：

呵呵，我已经知道隐藏commandbutton的代码了，现在还有两个问题：1、就是怎样commandbutton的大小 2、我还想增加一个commandbutton，请问怎样添加呢？

1、选中这个按钮，就可以调整大小了

2、视图－工具栏－控件工具箱

海狸先生

研究了一下代码中加上Cells(1, 1).NoteText "1月数据"可以添加A1的标注，这样的话，可以更加明了

saniwei

呵呵，我已经知道隐藏commandbutton的代码了，现在还有两个问题：1、就是怎样commandbutton的大小 2、我还想增加一个commandbutton，请问怎样添加呢？

saniwei

一个大问题呀，怎么打印的时候也会把commandbutton打印出来呀？怎么在打印时屏蔽它呀？还有，怎样能将commandbutton变小一点，太大了呀

saniwei

唉。。。我也这么建议，可这是boss的要求呀，没办法，不过真是要谢谢管理员了，呵呵～我是新来乍到，说实话，就是因为这个问题才来这个坛子，不过以后我会经常来了，因为这里的朋友们都是很热心呀，呵呵～～

红池坝

同意楼上的观点。

如果实在要在现有的表上操作，下面的VBA代码可以完成（我只写了第8行到12行的累计，其他的你可以类推）

Private Sub CommandButton1_Click()

Dim a, i As Integer

a = MsgBox("真的要把今日数据累计到“本月累计”中吗？", vbOKCancel, "确认操作")

If a = 2 Then

Exit Sub

End If

For i = 8 To 12

Cells(i, 7).Value = Cells(i, 7).Value + Cells(i, 6).Value

Cells(i, 3).Value = 0

Cells(i, 4).Value = 0

Cells(i, 5).Value = 0

Next

End Sub

淼漫

何必考虑那么复杂? 为何不加工作表解决呢? 最简单而且留有历史数据.

saniwei

555～～这下我死定了，怎么办呀？