凭证生成模板

xaojang

我从OA系统中能导出一些报销数据，由于量太大，想生成一个凭证文件，导入到财务软件中，求大神能指点一下

约定的童话

应该不是很难

lsc900707

问题不难，但是很耗时间。

一指禅62

哪是源数据（OA导出数据），哪是凭证模板，建议重新表述一下。

xaojang

一指禅62 发表于 2019-5-23 12:48
哪是源数据（OA导出数据），哪是凭证模板，建议重新表述一下。

OA数据是数据源   凭证是最终生成需求的数据  

xaojang

本人对VBA掌握不多，对循环和数组处理非常恼火，经常看不明白，所以求各位大神能做一个例子研究研究，谢谢各位

hzruziniu

看不懂你二张表之间的关系和具体要求

fanyoulin

代码放在工作表“凭证”里，切记：

Range(Cells(2, 1), Cells([a1000].End(3).Row, 16)).ClearContents '清屏，可以重复统计  
hs = 2 '凭证数据存放起始行
With Sheets("OA数据")
For i = 2 To .[i10000].End(3).Row
    js = 0
    s0 = .Cells(i, 1)
    s1 = .Cells(i, "i")
    s2 = .Cells(i, "k")
    s3 = .Cells(i, 2) & "报" & .Cells(i, "l")
    s4 = IIf(.Cells(i, "f") = "供应商", .Cells(i, "f") & "--" & .Cells(i, "g"), "")
    s5 = .Cells(i, 2)
    hj = s2
    Cells(hs, 1) = Date
    Cells(hs, 2) = Year(Date)
    Cells(hs, 4) = "记"
    Cells(hs, 5) = s0
    Cells(hs, 6) = s1
    Cells(hs, 8) = "RMB"
    Cells(hs, 9) = "人民币"
    Cells(hs, 10) = s2
    Cells(hs, 11) = s2
    Cells(hs, 13) = "徐梅"
    Cells(hs, 14) = s3
    Cells(hs, 15) = js
    Cells(hs, 16) = s4
    hs = hs + 1
    For k = i + 1 To 50
        If (.Cells(k, 2) = "") And (Not IsEmpty(.Cells(k, "i"))) Then
           js = js + 1
           hj = hj + Val(.Cells(k, "k"))
           Cells(hs, 1) = Date
           Cells(hs, 2) = Year(Date)
           Cells(hs, 4) = "记"
           Cells(hs, 5) = s0
           Cells(hs, 6) = s1
           Cells(hs, 8) = "RMB"
           Cells(hs, 9) = "人民币"
           Cells(hs, 10) = .Cells(k, "k")
           Cells(hs, 11) = .Cells(k, "k")
           Cells(hs, 13) = "徐梅"
           Cells(hs, 14) = s3
           Cells(hs, 15) = js
           Cells(hs, 16) = s4
           hs = hs + 1
       Else
           i = k - 1
           Exit For
       End If
    Next k
    js = js + 1
    Cells(hs, 1) = Date
    Cells(hs, 2) = Year(Date)
    Cells(hs, 4) = "记"
    Cells(hs, 5) = s0
    Cells(hs, 6) = s1
    Cells(hs, 8) = "RMB"
    Cells(hs, 9) = "人民币"
    Cells(hs, 10) = hj
    Cells(hs, 12) = hj
    Cells(hs, 13) = "徐梅"
    Cells(hs, 14) = s3
    Cells(hs, 15) = js
    Cells(hs, 16) = s4
    hs = hs + 1
    x = Mid(x, 1, 11) & Trim(CStr(Val(Mid(x, 12, 6)) + 1))
Next i
End With

累死我了，不是有多复杂，是列字段太多，要费尽去对齐。

xaojang

fanyoulin 发表于 2019-5-23 14:12
代码放在工作表“凭证”里，切记：

Range(Cells(2, 1), Cells([a1000].End(3).Row, 16)).ClearContents  ...

谢谢 谢谢 非常感谢  我试试

一指禅62

xaojang 发表于 2019-5-23 13:17
OA数据是数据源   凭证是最终生成需求的数据

“OA数据”表的6、7、8行是导出来时自动生成的单元格合并，还是楼主后来手工单元格合并？