VBA自动查询打印单据

moyuhanjx

数据源

凭证打印区

如何实现在第1凭证中输入编号，点击按钮可以查询三张联号的凭证

wangweihebtu

你这个连个样子都没有，你让别人怎么给你填进去？你把sheet2中第一行数据连接到每个空看看

moyuhanjx

wangweihebtu 发表于 2018-7-14 15:33
你这个连个样子都没有，你让别人怎么给你填进去？你把sheet2中第一行数据连接到每个空看看

我没明白哦

wangweihebtu

moyuhanjx 发表于 2018-7-14 15:40
我没明白哦

把sheet2中第一行写到sheet1表格中，其他的清空，再一个，你是一次打一张还是三张？

moyuhanjx

wangweihebtu 发表于 2018-7-14 15:43
把sheet2中第一行写到sheet1表格中，其他的清空，再一个，你是一次打一张还是三张？

一资打3张，查询并打印3张，3张编号自已根据需要填入，点按钮就能根据编号不同查询出来，可我只能实现查询一张

moyuhanjx

感觉要用到数组

huzijun

直接公式就出来了

moyuhanjx

谢谢，公式我也会，但我觉得不是很好

wangweihebtu

moyuhanjx 发表于 2018-7-14 15:54
感觉要用到数组

1、你整个例子，整的不清不楚，二级科目是什么东西？数据在哪里？

2、这里边还自带一个VBA定义的函数，你连代码都没贴上来，我自己找了个

凑合看看能用不，函数就行了

moyuhanjx

Dim i As Integer, r As Integer, k As Integer
arr = ws_dy.Range("e4,e17,e30")
i = 7
     
      r_end = ws_ls.Range("A65536").End(xlUp).Row
   
       For r = 2 To r_end
              If arr = ws_ls.Cells(r, "C") Then
                   ws_dy.Range("A" & i).Value = ws_ls.Range("D" & r).Value  '摘要
                   ws_dy.Range("B" & i).Value = ws_ls.Range("B" & r).Value   '一级科目
                   ws_dy.Range("C" & i).Value = ws_ls.Range("G" & r).Value  '二级科目
                   ws_dy.Range("D" & i).Value = ws_ls.Range("E" & r).Value     '借方发生额
                   ws_dy.Range("E" & i).Value = ws_ls.Range("F" & r).Value    '贷方发生额
               
                 i = i + 1
               
     End If

            
              Next
         
     ws_dy.Activate
     If i = 7 Then MsgBox "该月没有该号凭证！"
End Sub