跨表查询提取物料信息及数量

天边2021

如何根据 “”盘点表“”里面的两个查询条件，从“”系统数据“”工作表提取物品信息及数量（带颜色部分的信息）并自动生成序号，通过点击“获取物料数据“控件 实现，请大家赐教。

feilanga

这个问题前两天不是已经解答过了吗

洋务德雷

vba+sql结合使用，或者利用SQL中的ODBC连接方式做参数查询也可以实现。

天边2021

洋务德雷 发表于 2022-12-21 21:16
vba+sql结合使用，或者利用SQL中的ODBC连接方式做参数查询也可以实现。

  听起来太高深太专业了。

LIUZHU

WPSJS宏的方案

LIUZHU

附件在此，WPS测试

飛

增加一个查询过程——

1. 
   
2. <div>Sub 获取物料数()
   
3. On Error Resume Next
   
4. Dim rng As Range, arr, brr, i%, j%
   
5. Dim sType$, sStatus$
   
6. With ActiveSheet
   
7.   sType = .[U2].Value '选择类型
   
8.   sStatus = .[U3].Value '库存状态
   
9. End With
   
10. With Sheets("系统库存")
    
11.   Set rng = .Range("B4:AY" & .[B4].End(xlDown).Row)
    
12.   arr = rng
    
13.   ReDim brr(Application.CountIf(rng.Columns(2), sType), 8)
    
14.   For i = 1 To UBound(arr)
    
15.     If rng.Cells(i, 2) = sType And IIf(sStatus = "非零库存", rng.Cells(i, 48) > 0, True) Then
    
16.       j = j + 1
    
17.       brr(j, 1) = j
    
18.       brr(j, 2) = sType
    
19.       brr(j, 3) = rng.Cells(i, 1)
    
20.       brr(j, 4) = rng.Cells(i, 3)
    
21.       brr(j, 5) = rng.Cells(i, 4)
    
22.       brr(j, 6) = rng.Cells(i, 5)
    
23.       brr(j, 7) = rng.Cells(i, 49)
    
24.       brr(j, 8) = rng.Cells(i, 48)
    
25.     End If
    
26.   Next i
    
27. End With
    
28. With ActiveSheet
    
29.   .[B4:Ol99].ClearContents
    
30.   .[B4].Resize(UBound(brr, 1), UBound(brr, 2)) = brr
    
31. End With
    
32. End Sub</div>

复制代码

天边2021

LIUZHU 发表于 2022-12-21 22:10
附件在此，WPS测试

WpS的VBA不好安装

天边2021

飛 发表于 2022-12-21 22:40
增加一个查询过程——

   执运代码行后好像没达到效果哦

天边2021

飛 发表于 2022-12-21 22:40
增加一个查询过程——

运行代码后好像没达到效果哦