平常操作维护入库单的时候,常常需要查找数据,将数据从数据表中调用出来,然后检查勘误,修改保存等等。下面就完成入库单的最后一个功能:查找,将数据根据录入单号提取出来。 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 VBA结合函数countif、counta、find方法、resize等就能够做出简单实用的入库单输入界面。入库单文件下载可点击下面链接。 链接: https://pan.baidu.com/s/1qYNWjQc 密码: bk28 |
|