出库单查询功能完善

虎啸glq

大家周末好
附件查询功能完善，需要查询弹窗体，单据号根据明细表中的单号信息反查到出库表中
出库单模板2210.rar (218.75 KB, 下载次数: 10)

2022-12-18 10:41 上传

点击文件名下载附件

3190496160

Private Sub CommandButton1_Click()
dh = ComboBox1.Text
If dh = "" Then MsgBox "请选择单号！": Exit Sub
Dim ar As Variant
Dim arr()
With Sheets("出库明细表")
    mr = .Cells(Rows.Count, 3).End(xlUp).Row
    ar = .Range("a2:o" & mr)
End With
ReDim arr(1 To UBound(ar), 1 To 9)
For i = 2 To UBound(ar)
    If Trim(ar(i, 3)) = Trim(dh) Then
        n = n + 1
        arr(n, 1) = n
        For j = 5 To 12
            arr(n, j - 3) = ar(i, j)
        Next j
        mc = ar(i, 4)
        dz = ar(i, 13)
        rq = ar(i, 2)
        lxr = ar(i, 14)
        dhh = ar(i, 15)
    End If
Next i
If n = "" Then MsgBox "没有符合条件的数据": Exit Sub
With Sheets("出库单")
    .[a5:i14] = Empty
    .[a5].Resize(n, UBound(arr, 2)) = arr
    .[b2] = mc
    .[b3] = dz
    .[e2] = rq
    .[e3] = lxr
    .[h2] = dh
    .[h3] = dhh
End With
MsgBox "ok!"
End Sub

3190496160

出库单模板2210.rar (216.28 KB, 下载次数: 29)

2022-12-18 12:10 上传

点击文件名下载附件

虎啸glq

3190496160 发表于 2022-12-18 12:10

你好，我用数据测试了下，有以下问题
找不到工程库？

zpy2

虎啸glq 发表于 2022-12-18 14:19
你好，我用数据测试了下，有以下问题
找不到工程库？

用2楼的代码文件测试，你报错，貌似是其他代码报错

虎啸glq

zpy2 发表于 2022-12-18 14:52
用2楼的代码文件测试，你报错，貌似是其他代码报错

1. .[a5].Resize(n, UBound(arr, 2)) = arr 这arr是变量还是数组？arr()和arr有什么区别？

复制代码

zpy2

虎啸glq 发表于 2022-12-18 17:10

是数组变量，复制粘贴到a5单元格相关的行列

3190496160

一般是在高版本中做的代码，在低版本中运行就会出现这个提示，
n可以定义一下，
trim可以在前面加一个vba.试试看看