第二个正式的VBA程序，好有成就感，帮助同事免去了每月600次的公式粘贴修改！

 

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = True
Dim col As Integer, sheetname As String, dateDay As String
sheetname = "工商"

For col = 8 To 38
dateDay = ThisWorkbook.Worksheets("Sheet1").Cells(4, col).Text
ThisWorkbook.Worksheets("Sheet1").Cells(5, col) = WorksheetFunction.SumIf(ThisWorkbook.Worksheets(sheetname).Range("B3:B3000"), dateDay, ThisWorkbook.Worksheets(sheetname).Range("e3:e3000"))
ThisWorkbook.Worksheets("Sheet1").Cells(6, col) = WorksheetFunction.SumIf(ThisWorkbook.Worksheets(sheetname).Range("B3:B3000"), dateDay, ThisWorkbook.Worksheets(sheetname).Range("f3:f3000"))
Next col
End Sub

实现功能：

有2个sheet表，一个叫“Sheet1” ，一个叫“工商”。

在“工商”中输入每天的工商银行的收入和支出记录，在“Sheet1” 要实时的算出工商银行某天的收入和支出的和，例如算出工商银行在6.1号这天的收入和支出，因为“工商”这个sheet中6.1号这天的记录有多条。所以这