材料的到货验收单的数量与发票的数量的匹配问题

一叶翩舟

<p>[QUOTE]&nbsp; 版主你好`~我是一家公司的材料会计，有件事情一直让我感到束手无策,就是材料的到货验收单的数量与发票的数量的匹配问题(一张发票可能对应的是几张到货验收单,可能是3张,5张,7张,数量不定）~~而我在发票入账前必须匹配好到货验收单与发票,每月月底就会忙的焦头烂额,相信这个是很多材料会计的心头大患吧!急切需要一个自动匹配的程序啊`前天在网上搜到一个,也不知是那位大侠的杰作,基本表达了我的心声,但是还是很遗憾数度太慢了要是有个30个数字的话可能要半个小时.希望版主能解救一下我们这些正忙碌在发票与到货验收单中间的人吧`~~(后附不知那位大侠的杰作)</p><p>Private Sub 排列()<br/>Dim int1 As Integer, int2 As Integer<br/>int1 = 1<br/>int2 = [B65536].End(xlUp).Row<br/>Range("B2:B" &amp; int2).FormulaR1C1 = ""<br/>Call paili(int1)<br/>End Sub<br/>Private Sub paili(int2 As Byte)<br/>Dim int3 As Integer, int4 As Integer<br/>int3 = int2 + 1<br/>int4 = Int([F2].Value) + 1<br/>If int3 &gt; int4 Then GoTo TT1<br/>For i = 0 To 1<br/>&nbsp;&nbsp;&nbsp; Range("B" &amp; int3).FormulaR1C1 = i<br/>&nbsp;&nbsp;&nbsp; Call paili(int3)<br/>&nbsp;&nbsp;&nbsp; If int3 = int4 And [D2].Value = [E2].Value Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; askval = MsgBox("恭喜,恭喜!排列成功!" &amp; Chr(10) &amp; "是否退出程序或继续执行?", vbYesNo, "排列成功!")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If askval = vbYes Then End<br/>&nbsp;&nbsp;&nbsp; End If<br/>Next i<br/>TT1:<br/>End Sub</p>