求助多条件筛选批量打印模块

icenotcool

各位老师好：我这有一个设想，模块：通过点击按钮选择：“MXB”工作表里的任意部门或者任意同样名称B2等第一行的条件，批量打印标签。谢谢各位老师了！

quqiyuan

这段时什么意思：“MXB”工作表里的任意部门或者任意同样名称B2等第一行的条件，批量打印标签

chxw68

详见附件。

icenotcool

chxw68 发表于 2025-1-27 08:50
详见附件。

老师，谢谢你了，我不是想要直接打印一张标签，想按提交选择比如打一个部门，一个名称，或几个编号，然后可以批量连续打印，通过窗体控制也可以

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub 标签批量打印()
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     arr = Sheets("MXB").UsedRange
   
4.     For i = 2 To UBound(arr)
   
5.         s = arr(i, 9)
   
6.         d(s) = i
   
7.     Next
   
8.     With Sheets("标签打印")
   
9.         xh = .[d2].Value
   
10.         r = d(xh)
    
11.         .[b2] = arr(r, 4)
    
12.         .[b3] = arr(r, 2)
    
13.         .[b4] = arr(r, 3)
    
14.         .[b6] = arr(r, 5)
    
15.         .[b7] = arr(r, 6)
    
16.         .[b8] = xh
    
17.         .[b9] = arr(r, 12)
    
18.     End With
    
19.     Set d = Nothing
    
20.     MsgBox "OK！"
    
21. End Sub
    
22. 
    

复制代码

icenotcool

ykcbf1100 发表于 2025-1-27 11:23
附件供参考。。。

老师，模块没有反应，也没有给我选择啊
我是想要这种选择窗体批量打印

ykcbf1100

icenotcool 发表于 2025-1-27 12:29
老师，模块没有反应，也没有给我选择啊
我是想要这种选择窗体批量打印

d2单元格不是可以选择吗？

好吧，让别人来吧。