求高手修改发票拆分表格中原VBA语句？

wxh63

从本论坛中搜集到发票拆分有关的二个表格，当发票金额较大时，拆分前后形成的表格中，数量与金额不相等 。有哪位高手能修改原表格中的VBA语句，满足拆分前后数量、金额相等的要求？原表格见附件，具体要求在原表格中已做标注。

opiona

1. Sub 按金额拆分数字()
   
2. 
   
3.     MAXDOU = CSng(InputBox("请输入开票限额", "温馨提示", 120000))
   
4.    
   
5.     Rem 清除数据
   
6.     Set SHX = Worksheets("Sheet1")
   
7.     SHX.Range("H2:K1048576").ClearContents
   
8.     INTX = 0
   
9.     MAXROW = SHX.Range("A38").End(3).Row
   
10.    
    
11.     For I = 2 To MAXROW
    
12.         DOUX = SHX.Cells(I, 3).Value  '//金额
    
13.         DOUG = SHX.Cells(I, 2).Value  '/数量
    
14.         DOUJ = DOUX / DOUG '//单价
    
15.         Rem 计算最少几张发票
    
16.         If DOUX Mod MAXDOU > 0 Then
    
17.             Rem 有余数+1
    
18.             Pages = Int(DOUX / MAXDOU) + 1
    
19.         Else
    
20.             Rem  整除 不+1
    
21.             Pages = Int(DOUX / MAXDOU)
    
22.         End If
    
23.         
    
24.         For X = 1 To Pages
    
25.             If DOUX > 0 Then
    
26.             Rem 每张发票的信息
    
27.                 INTX = INTX + 1
    
28.                 SHX.Cells(INTX + 1, 8).Value = INTX
    
29.                 SHX.Cells(INTX + 1, 9).Value = SHX.Cells(I, 1).Value
    
30.                 If DOUX >= MAXDOU Then
    
31.                     SHX.Cells(INTX + 1, 11).Value = MAXDOU
    
32.                     SHX.Cells(INTX + 1, 10).Value = WorksheetFunction.Round(MAXDOU / DOUJ, 2)
    
33.                     DOUG = DOUG - WorksheetFunction.Round(MAXDOU / DOUJ, 2)
    
34.                     DOUX = DOUX - MAXDOU
    
35.                 Else
    
36.                     SHX.Cells(INTX + 1, 11).Value = DOUX
    
37.                     SHX.Cells(INTX + 1, 10).Value = DOUG
    
38.                     DOUX = 0
    
39.                 End If
    
40.             End If
    
41.         Next
    
42.     Next
    
43. 
    
44. MsgBox "OK", , "北极狐工作室QQ：14885553"
    
45. End Sub

复制代码

opiona

好像没发生变化

增值税开票拆分表(按顺序拆分).rar (49.58 KB, 下载次数: 103)

2018-9-5 21:12 上传

点击文件名下载附件

wxh63

谢谢，虽然不懂其中的语句，但能满足本人要求，解决了本人开具发票一直用计算器拆分的难题。

懒花兽

opiona 发表于 2018-9-5 21:07

请问发票数量必须是整数，且不改变单价，代码要怎么改