怎么用vb求取余额

luo9180

点击查询按钮后计算余额

tanglf188

不是会计哎，怎么算的看不懂

shiruiqiang

从哪里来，到哪里去，中间怎么走流程。都考猜了

luo9180

tanglf188 发表于 2023-1-19 11:44
不是会计哎，怎么算的看不懂

模拟的有计算结果  点击查询后行显示年初余额  然后再是本年明细

3190496160

求助要对自己的需求有具体的说明，比如，数据源是哪个工作表，查询条件是什么，具体的逻辑关系是什么，

luo9180

点击查询后显示此银行的本月份的数据 I列是求的余额   c3 是条件f3是条件2 h3是条件三  明细表b14：I65536是数据源

luo9180

3190496160 发表于 2023-1-19 13:30
求助要对自己的需求有具体的说明，比如，数据源是哪个工作表，查询条件是什么，具体的逻辑关系是什么，

查询的代码找到啦就是怎么计算余额的代码没找到

3190496160

Sub 查询()
Application.ScreenUpdating = False
Dim ar As Variant
Dim br()
Dim rn As Range
With Sheets("账户明细账查询")
    zh = .[c3]
    ks = .[f3]
    js = .[h3]
    With Sheets("明细表")
        r = .Cells(Rows.Count, 2).End(xlUp).Row
        ar = .Range("b1:j" & r)
        Set rn = .Range("b3:d10").Find(zh, , , , , , 1)
        If rn Is Nothing Then MsgBox "明细表中找不到" & zh & "信息": End
        xh = rn.Row
    End With
    ReDim br(1 To UBound(ar) + 1, 1 To 8)
    n = n + 1
    br(n, 1) = "期初余额"
    br(n, 8) = ar(xh, 4)
    For i = 13 To UBound(ar)
        If Trim(ar(i, 5)) = Trim(zh) Then
            n = n + 1
            For j = 2 To 8
                br(n, j - 1) = ar(i, j)
            Next j
            br(n, 8) = br(n - 1, 8) + ar(i, 7) - ar(i, 8)
        End If
    Next i
    If n = 1 Then MsgBox "明细表中找不到" & zh & "信息": End
    n = n + 1
    br(n, 1) = "合计"
    For j = 6 To 8
        br(n, j) = Application.Sum(Application.Index(br, 0, j))
    Next j
    rs = .Cells(Rows.Count, 2).End(xlUp).Row
    If rs >= 6 Then .Range("a6:i" & rs) = Empty
    .[b6].Resize(n, UBound(br, 2)) = br
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

现金银行出纳管理.rar (80.38 KB, 下载次数: 10)

2023-1-19 20:49 上传

点击文件名下载附件

汉唐

练下手，不过你的其他表太多公式，估计以后会运行很慢的哦