请各位大神指导：如何从进仓单和出仓单上识别同一规格型号自动导出生成一张进销存...

jxiao108

请教各位大神：因为规格型号太多，

如何根据

前面 出仓单和进仓单上面的规格型号各自生成一个对应规格的进销存明细表，这个进销存只需要填入

:

日期 凭证号 摘要收入数量和发出数量，谢谢各位。

zopey

Private Sub CommandButton1_Click()
Range("a11:f17").ClearContents
Range("t11:t17").ClearContents
a1 = [f5].Value: a2 = [g5].Value
k = 11
With Sheets("进仓单")
  For i = 0 To 999
    If .Cells(i * 15 + 1, 1).Value = "进      仓      单" Then
       For j = 5 To 10
          If .Cells(i * 15 + j, 1).Value = a1 And a2 - .Cells(i * 15 + j, 2).Value = 0 Then
             Cells(k, 1).Value = .Cells(i * 15 + 2, 1).Value '日期
             Cells(k, 3).Value = .Cells(i * 15 + 2, 6).Value '凭证号
             Cells(k, 4).Value = .Cells(i * 15 + 3, 1).Value '摘要
             Cells(k, 6).Value = .Cells(i * 15 + j, 4).Value '收入数量
             k = k + 1: If k = 18 Then Exit Sub
          End If
       Next
    Else
       Exit For
    End If
  Next
End With
With Sheets("出仓单")
  For i = 0 To 999
    If .Cells(i * 15 + 1, 1).Value = "出      仓      单" Then
       For j = 5 To 10
          If .Cells(i * 15 + j, 1).Value = a1 And a2 - .Cells(i * 15 + j, 2).Value = 0 Then
             Cells(k, 1).Value = .Cells(i * 15 + 2, 1).Value '日期
             Cells(k, 3).Value = .Cells(i * 15 + 2, 6).Value '凭证号
             Cells(k, 4).Value = .Cells(i * 15 + 3, 1).Value '摘要
             Cells(k, 20).Value = .Cells(i * 15 + j, 4).Value '发出数量
             k = k + 1: If k = 18 Then Exit Sub
          End If
       Next
    Else
       Exit For
    End If
  Next
End With
End Sub

附件:    手工进销表.zip (27.04 KB, 下载次数: 53)

2018-3-21 09:07 上传

点击文件名下载附件

jxiao108

谢谢@zopey  大神指导，请教一个问题，如果进仓单和出仓单里面 如果名称带有前面带有空格，或者比如 冷轧卷板，冷轧板，冷轧卷，能否查询搜索方式以包含的形式，那三个名称都和在一起显示，谢谢指导

mmx1122

你的名称，规格  应该一致。也许你有你的特殊要求。
不过都可查询到。只是觉得你的出入库单，做的太繁琐了
可以私聊q532520209

jxiao108

@mmx1122 因为仓单是要打印出来所以要这种格式，其实这个是版主版主帮忙导出来的仓单，谢谢他们的帮忙

mmx1122

因为格式统一，每次只显示一个单子即可。

mmx1122

@jxiao108
我给你发消息了。