查询数据不显示序号和合计金额

每天学一点。

查询数据不显示序号和合计金额

3190496160

Sub 查找()
    Dim Rng As Range
    Set Rng = Sheets("数据表").[b:b].Find([g3])
    查询单据行 = Application.CountIf(Sheets("数据表").[b:b], Range("g3"))
    [b3] = Sheets("数据表").Cells(Sheets("数据表").[b:b].Find([g3]).Row, 1)
    [b4] = Sheets("数据表").Cells(Sheets("数据表").[b:b].Find([g3]).Row, 3)
    [g4] = Sheets("数据表").Cells(Sheets("数据表").[b:b].Find([g3]).Row, 4)
    [b17] = Sheets("数据表").Cells(Sheets("数据表").[b:b].Find([g3]).Row, 10)
    [g17] = Sheets("数据表").Cells(Sheets("数据表").[b:b].Find([g3]).Row, 11)
    [b7].Resize(查询单据行, 5).Value = Sheets("数据表").Cells(Rng.Row, 5).Resize(查询单据行, 5).Value
    m = 6
    For i = Rng.Row To Rng.Row + 查询单据行 - 1
        m = m + 1
        Cells(m, 1) = m - 6
        hj = hj + Sheets("数据表").Cells(i, 9)
    Next i
    [f15] = hj
End Sub

3190496160

入库单通用版修改版.rar (28.2 KB, 下载次数: 11)

2023-3-1 21:44 上传

点击文件名下载附件

每天学一点。

3190496160 发表于 2023-3-1 21:44

你好:
现在点击录入后序号不生成了,高手怎样解决

每天学一点。

3190496160 发表于 2023-3-1 21:44

点击录入后序号不显示