根据发票明细转换成凭证明细(已解决)

xiyi0519 · 发表于 2024-3-7 22:33

本帖最后由 xiyi0519 于 2024-3-9 15:44 编辑

屏幕截图 2024-03-07 222404.jpg

发票明细转换成凭证格式.rar (11.09 KB, 下载次数: 8)

鄂龙蒙 · 发表于 2024-3-8 08:09

供参考：

发票明细转换成凭证格式.rar (18.45 KB, 下载次数: 22)

xiyi0519 · 发表于 2024-3-8 17:19

鄂龙蒙发表于 2024-3-8 08:09
供参考：

能帮忙添加一个“凭证序号”吗
每个明细的首行把序号引过来。

发票明细转换成凭证格式.rar (21.27 KB, 下载次数: 4)

鄂龙蒙 · 发表于 2024-3-8 17:38

【发票明细转换成凭证格式】.rar (18.32 KB, 下载次数: 20)

gwjkkkkk · 发表于 2024-3-8 18:43

Option Explicit
Sub TEST2()
Dim ar, br, vResult, i&, j&, r&, m&, n&

Application.ScreenUpdating = False

ar = [A1].CurrentRegion.Value
br = Array(Array("5001", "主营业务收入"), Array("25001", "销项税额"))
ReDim vResult(1 To UBound(ar) * 3, 1 To 4)
For i = 2 To UBound(ar)
      r = r + 1
      For j = 1 To 3
         vResult(r, j) = ar(i, j)
      Next j
      For j = 3 To 4
         r = r + 1
         For m = 0 To UBound(br(j - 3))
            vResult(r, m + 1) = br(j - 3)(m)
         Next m
         vResult(r, 4) = ar(i, j)
      Next j
Next i

[H1].CurrentRegion.Clear
[H1].Resize(, 4) = Array("科目代号", "名称", "借方", "贷款")
[H2].Resize(r, 4) = vResult

Application.ScreenUpdating = True
Beep
End Sub

gwjkkkkk · 发表于 2024-3-8 18:45

参与一下。。。

cnmlgb9998 · 发表于 2024-3-8 19:23

PQ 简单！！！！！！！！！！！！！

		自动登录	找回密码
密码			免费注册

[求助] 根据发票明细转换成凭证明细(已解决)

评分

评分

评分

评分