Excel 表间怎样实现自动计算

阅读 15824 | 分类：文章

问：请看如下的表格，其中表1 是分户账，表2 是总账。

日期	借方发生额	贷方发生额	借或贷	余额
2	1000.00
2	2000.00
2		5000.00	贷	2000.00

表1

日期	借方发生额	贷方发生额	借或贷	余额
2	3000 .00	5000.00	贷	2000 .00

表2

---- 如果我在表1 的第2、3、4 行分别输入数据后，自动生成余额，那么在表2 中怎样才能自动生成所需的数据呢？

答：--- 您可以用Excel 97 中的宏来解决这个问题。这里向您提供一个例子，具体的实现您可以仿照此例子进行设计。下面假设表1 为Sheet1，表2 为Sheet2，并仅就借方发生额进行您所要的自动统计。选择“ 工具”*“ 宏”*“ 宏...”，输入一宏名“test”，并输入如下代码：

Sub  test()
  Dim I As Integer
  Dim k As Integer
  Dim j As String
  Sheets(“Sheet1”).Select
  I = 0
  For k = 1 To 2
    j = “b”
    j = j & k
    Range(j).Select
  I = I + Val(ActiveCell.FormulaR1C1)
  Next k
  Sheets(“Sheet2”).Select
  Range(“b1”).Select
  ActiveCell.FormulaR1C1 = I
End Sub

---- 执行该宏后，表2 中的借方发生额就是您所要的值了。您可以对此段程序分析并修改为适合您需求的宏。