麻烦帮忙看看这段代码要怎么修改关于流水匹配问题

sulli112

最帅的哥 发表于 2023-10-15 16:19
两个的日期  借贷金额 不同，应当是 恰好相反。 例如： 我把 2023-09-02 2023-09-03 两个日期互换一下 就 ...

原来是借贷两边数据反了，我还想说为啥不行

准提部林

核對流水//
第一輪:先做完全比對//日期+借貸+金額
第二輪:剩下的再做//日期+金額(不管借貸)比對

勾稽方式//
若左方有三筆相同
1) 右方也有三筆或以上, 只勾出三筆
2) 右方只有二筆或一筆, 只勾出相對筆數

sulli112

准提部林 发表于 2023-10-15 18:21
核對流水//
第一輪:先做完全比對//日期+借貸+金額
第二輪:剩下的再做//日期+金額(不管借貸)比對

这个思路很好，可以进行二次检查，但是具体要怎么修改呢，请指导，谢谢

准提部林

sulli112 发表于 2023-10-15 22:27
这个思路很好，可以进行二次检查，但是具体要怎么修改呢，请指导，谢谢

這帖已有..一句話, 兩行淚, 三氣揰胸...的老師在指導,
可先等等...也許有再更好的方案//

純VBA, 代碼短不了, 該做的也省不了,
但...
七竅通, 八方風, 九上云穹

有空再寫個長長的....
  

sulli112

准提部林 发表于 2023-10-16 12:57
這帖已有..一句話, 兩行淚, 三氣揰胸...的老師在指導,
可先等等...也許有再更好的方案//

好的，谢谢啦

准提部林

流水帳..兩輪勾稽...by准提部林
Xl0000177.rar (15.5 KB, 下载次数: 11)

2023-10-17 13:21 上传

点击文件名下载附件

weizijingbo

楼主给的数据不严格，测试比较难，不过我大概了解了下，觉得还是用字典应该可以解决，sql模式不需要数据库也可以，或者存入access数据库再来计算也行，excel的sql语句也支持Sub 模糊查询()

    '''''''参考qingc0221老师的代码修改而来，比较懒。。..............
    Dim LastRow As Long
    Dim cnn As Object
    Dim Str As String, Sql As String
    Set cnn = CreateObject("ADODB.Connection")
    Sheets("学员信息查询").Activate
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Range(Rows(3), Rows(LastRow + 1)).ClearContents
    Str = Cells(1, "J")  '''''这里是查询关键词，J是列1是行，1行J列
    If Str = "" Then
        MsgBox "查询条件不能为空"
        Exit Sub
    End If
    If Application.Version = "11.0" Then
        cnn.Open "Provider=Microsoft.jet.oledb.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
    Else
        cnn.Open "Provider=Microsoft.ace.oledb.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
    End If
    Sql = "select * from [DATA$] where 姓名 like '%" & Str & "%'"
    Range("A3").CopyFromRecordset cnn.Execute(Sql)
End Sub

sulli112

准提部林 发表于 2023-10-17 13:21
流水帳..兩輪勾稽...by准提部林

非常感谢大神的帮忙，辛苦了