VBA入门39：VBA与函数3

数据录入界面

1

平常操作维护入库单的时候，常常需要查找数据，将数据从数据表中调用出来，然后检查勘误，修改保存等等。下面就完成入库单的最后一个功能：查找，将数据根据录入单号提取出来。

代码

2

Sub 查找()

    Dim NO As String '录入单号

    Dim iCount As Long '产品条目数

    Dim Rng As Range

    NO = Sheets('数据录入').Range('b4')  '录入单号

    

    With Sheets('数据储存')

        iCount = Application.CountIf(.Range('a:a'), NO)  '数据条数

        '查找前同样需要检查录入单号是否存在（可能输入错误)

        If iCount = 0 Then

            MsgBox '单号' & NO & '不存在，请查看是否输入有误'

            Exit Sub '退出过程

        End If

        

        '如果查找到录入单号，那么将数据提取到录入界面

        '清空录入界面的内容,其中金额项目有公式不需要清除内容

        With Sheets('数据录入')

            .[f4].ClearContents '清除日期

            .[a6:e10].ClearContents '清除产品名称-->单价字段

            .[g6:g10].ClearContents '清除备注

        End With

        

        '提取数据并写入到录入界面

        '产品名称所在的单元格

        Set Rng = .Range('A:A').Find(NO, lookat:=xlWhole).Offset(0, 2)

        R = Rng.Row '行号

        [a6].Resize(iCount, 5) = Rng.Resize(iCount, 5).Value  '写入产品数据

        [g6].Resize(iCount, 1) = .Range('i' & R).Resize(iCount, 1).Value '备注

        [f4] = Rng.Offset(0, -1).Value   '日期

    End With

    MsgBox '查找完毕'

End Sub

文件下载

3

VBA结合函数countif、counta、find方法、resize等就能够做出简单实用的入库单输入界面。入库单文件下载可点击下面链接。

链接: https://pan.baidu.com/s/1qYNWjQc 密码: bk28