主题：利用宏对经营合同台帐检查的几点心得 |
| 正文： |
大家每日根据报销单对台帐进行检查，但是目前我有个更好的办法，就是根据用友导出的数据与台帐数据自动进行对比：
具体操作步骤如下：
第一：导出用友银付或银收数据，建立在新excel中
第二：编写宏：
Sub 台帐检查统计()
Dim a(), z(), b(1 To 100), c(1 To 100) As String
Dim i, ii As Integer
For ii = 1 To Sheets.Count - 1
Sheets(ii).Select
For i = 1 To 100
ReDim a(1 To i), z(1 To ii)
a(i) = Sheets(ii).Cells(i + 4, 8).Text
b(i) = Sheets(ii).Cells(i + 4, 9).Text
c(i) = Sheets(ii).Cells(i + 4, 10).Text
z(ii) = Sheets(ii).Name
Sheets(Sheets.Count).Cells(i + (ii - 1) * 100, 1) = a(i)
Sheets(Sheets.Count).Cells(i + (ii - 1) * 100, 3) = b(i)
Sheets(Sheets.Count).Cells(i + (ii - 1) * 100, 2) = c(i)
Sheets(Sheets.Count).Cells(i + (ii - 1) * 100, 4) = z(ii)
Next
Next
End Sub
第三：根据宏导出数据与用友核对
OK啦！一个月或几个月的台帐检查轻松完成！！ |
|
|