如何用VBA代码实现给定起止日期，输入物料编码或者点击单元格自动显示该物品在入库...

非常6-1

如何用VBA代码实现给定起止日期，输入物料编码或者点击单元格自动显示该物品在入库单里的全部信息？

xiaoya6976

请把你的要求说清楚

xiaoya6976

我也是才开始学习VBA，只学了3天，看看是否符合你的要求？代码非常不简洁规范，还需要改进，但你的要求应该能达到

在入库明细查询有个按钮，点一下就行

xiaoya6976

代码
Sub 自动填写入库明细()
'定义物料编码、开始日期、截止日期变量’
Dim wlbm As String, ksrq As Date, jzrq As Date
wlbm = Worksheets("入库明细查询").Cells(2, 2)
ksrq = Worksheets("入库明细查询").Cells(3, 2)
jzrq = Worksheets("入库明细查询").Cells(3, 4)

'定义变量类型
Dim h As Integer, i As Integer, k As Integer

'从指定工作表最后一行往上最后一个非空单元格’
h = Worksheets("入库单").[a65536].End(xlUp).Row

'定义入库明细表记录数据的起始行
k = 6
   
    '从入库单第二行开始扫描，并把符合条件的内容写入入库明细查询表’
    For i = 2 To h
    Dim wb1 As Worksheet
    Set wb1 = Worksheets("入库单")
    Dim rq As Date
    rq = wb1.Cells(i, 1)
        If rq >= ksrq And rq <= jzrq And wlbm = Worksheets("入库单").Cells(i, 6) Then
            Dim v As Integer
                For v = 1 To 13
                wb1.Cells(i, v).Copy Worksheets("入库明细查询").Cells(k, v)
                Next v
                k = k + 1
        End If
    Next i
End Sub

非常6-1

xiaoya6976 发表于 2018-10-15 15:21
请把你的要求说清楚

比如说，我有300个物料，每次来订单会来其中的一百多种，我现在做了出入库流水，所有的入库明细都录入到一张表上（入库流水表，包括入库单号 入库日期 编码 名称数量等），我想再另一张表实现我输入一个单号就显示这张单号的全部信息   或者我输入2018/9/1-2018/11/30，编码001 就显示9月到11月编码001的所有入库信息
。。。。。。。。。。。其实用筛选就可以实现，但是我想知道怎么写代码

非常6-1

xiaoya6976 发表于 2018-10-15 20:37
我也是才开始学习VBA，只学了3天，看看是否符合你的要求？代码非常不简洁规范，还需要改进，但你的要求应该 ...

谢谢现在上班晚上我回去仔细研究下