昵称：清霜残雪
头衔：版主
积分：303分
注册：2009-7-15
状态：离线
|
|
大家每日根据报销单对台帐进行检查，但是目前我有个更好的办法，就是根据用友导出的数据与台帐数据自动进行对比：
具体操作步骤如下：
第一：导出用友银付或银收数据，建立在新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啦！一个月或几个月的台帐检查轻松完成！！
|
明强、敬恕，如履薄冰。 自信、努力、实现理想。 |
|
不错嘛！大家都学学！！财务人员电脑水平高，对高效开展工作有极大帮助！
