[已解决]怎么样根据汇总凭证登记总账

9910343

怎么样根据汇总凭证登记总账 总账.rar (4.9 KB, 下载次数: 59)

2012-6-25 10:26 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hrpotter

2012-6-25 13:11

1. Sub 汇总()
   
2.     Dim ar
   
3.     Dim rng As Range
   
4.     Dim i As Integer, k As Integer
   
5.     Dim s As String
   
6.     With Sheets("凭证汇总")
   
7.         ar = .Range("a2:c" & .Range("a65536").End(xlUp).Row)  '把凭证汇总的第二行开始的数据区域赋值给数组
   
8.         s = .Range("d1") '把选择的月份赋值给s
   
9.         k = Application.Match(s, Array("一月", "二月", "三月", "四月", "五月", "六月", "七月", "八月", "九月", "十月", "十一月", "十二月"), 0) '确定月份是第几，后面要根据这个确定输入位置
   
10.     End With
    
11.     With Sheets("总账")
    
12.         For i = 1 To UBound(ar)  '在数组中循环科目
    
13.             Set rng = .Range("h:h").Find(ar(i, 1), , , xlWhole) '在总账的h列查找当前科目所在的单元格
    
14.             If Not rng Is Nothing Then             '如果找到该科目
    
15.                 rng.Offset(3 + k, -2) = ar(i, 2)   '根据上面月份得出的数字进行偏移确定总账月份的借方所在的单元格并赋值
    
16.                 rng.Offset(3 + k, -1) = ar(i, 3)   '贷方赋值
    
17.             End If
    
18.         Next
    
19.     End With
    
20. End Sub

复制代码

跳转到最佳答案楼层

hrpotter

1. Sub 汇总()
   
2.     Dim ar
   
3.     Dim rng As Range
   
4.     Dim i As Integer, k As Integer
   
5.     Dim s As String
   
6.     With Sheets("凭证汇总")
   
7.         ar = .Range("a2:c" & .Range("a65536").End(xlUp).Row)  '把凭证汇总的第二行开始的数据区域赋值给数组
   
8.         s = .Range("d1") '把选择的月份赋值给s
   
9.         k = Application.Match(s, Array("一月", "二月", "三月", "四月", "五月", "六月", "七月", "八月", "九月", "十月", "十一月", "十二月"), 0) '确定月份是第几，后面要根据这个确定输入位置
   
10.     End With
    
11.     With Sheets("总账")
    
12.         For i = 1 To UBound(ar)  '在数组中循环科目
    
13.             Set rng = .Range("h:h").Find(ar(i, 1), , , xlWhole) '在总账的h列查找当前科目所在的单元格
    
14.             If Not rng Is Nothing Then             '如果找到该科目
    
15.                 rng.Offset(3 + k, -2) = ar(i, 2)   '根据上面月份得出的数字进行偏移确定总账月份的借方所在的单元格并赋值
    
16.                 rng.Offset(3 + k, -1) = ar(i, 3)   '贷方赋值
    
17.             End If
    
18.         Next
    
19.     End With
    
20. End Sub

复制代码

9910343

非常感谢，能否注解一下代码的意思，我好在以后的列子中运用，谢谢