[已解决]求用代码：将现金账余额运行

龙送农 · 发表于 2013-8-10 10:52

用代码：将现金账余额运行

最佳答案

爱疯

2013-8-10 11:30

Sub test()
Dim s$, r%, i%
Application.ScreenUpdating = False
Sheets("现金日记帐").Select
s = "本月合计,本月累计,累计,本年累计,过次页,承前页"
r = Range("f65536").End(xlUp).Row
For i = 6 To r
      If s Like "*" & Cells(i, "f") & "*" Then
         Cells(i, "m") = Cells(i - 1, "m")
      Else
         If Cells(i, "f") <> "" Then
            Cells(i, "m") = Cells(i - 1, "m") + Cells(i, "h") - Cells(i, "j") 'M5+H6-J6
         Else
            Cells(i, "m") = 0
         End If
      End If
Next i
End Sub

用代码：将现金账余额运行2.rar (19.87 KB, 下载次数: 11)

爱疯 · 发表于 2013-8-10 11:30

Sub test()
Dim s$, r%, i%
Application.ScreenUpdating = False
Sheets("现金日记帐").Select
s = "本月合计,本月累计,累计,本年累计,过次页,承前页"
r = Range("f65536").End(xlUp).Row
For i = 6 To r
      If s Like "*" & Cells(i, "f") & "*" Then
         Cells(i, "m") = Cells(i - 1, "m")
      Else
         If Cells(i, "f") <> "" Then
            Cells(i, "m") = Cells(i - 1, "m") + Cells(i, "h") - Cells(i, "j") 'M5+H6-J6
         Else
            Cells(i, "m") = 0
         End If
      End If
Next i
End Sub

用代码：将现金账余额运行2.rar (19.87 KB, 下载次数: 11)

		自动登录	找回密码
密码			注册

[已解决]求用代码：将现金账余额运行

评分