请教斑竹:EXCEL的统计问题

schuadf · 发表于 2003-9-2 06:50

请教斑竹:EXCEL的问题

又是月底了,各种统计烦杂,我有EXCEL统计问题请教,希望得到帮助.谢谢!
假如有一工作表,我们权且称它为"数据",在"数据"表中的C1--C1000为合同号，(合同号不很正确)，标准的是200303101001，其中2003为年份，31为科目,01为经办人代码，001-999为合同序列号;D1--D1000为借款人,其中，自然人为三个汉字,企业为4个及4个以上汉字;E1--E1000存放借款人单位如人行、工行、中行、建行、联社、公安局、国税局、地税局、工商局、财政局、县府办等；F1--F1000存放电话号码；G1--G1000存放借款日期，同一企业和个人可能有多笔借款；H1--H1000存放用途，如建房、修房、购房、购车、采购材料、流动资金等；I1--I1000存放到期日期，当然同一借款人可能有多笔到期日期；J1--J1000存放借款金额；H1--H1000存放经办人姓名，如张三、李斯、王五等。现在要在“统计”的工作表中进行以下统计：
1、在“统计”的C2--进行科目余额统计，在D3--进行科目的笔数统计，其公式=？
2、在“统计”的E2进行自然人贷款金额、E3进行贷款笔数统计，在E4进行企业借款金额统计，E5进行企业贷款笔数统计；其公式=？
3、在F2、F3进行按地址统计，如统计金融业内人士贷款（人行、工行、中行、建行、联社）的金额和笔数，F2=？，F3=？；
4、统计消费贷款（建房、修房、购房、购车）的金额和笔数存放在G2、G3，G2=？，G3=？；
5、进行本年贷款发放金额和笔数统计，存放在H2、H3，H2=？，H3=？；
6、进行年度到期贷款金额、笔数统计存放在I2、I3，I2=？，I3=？；
7、进行最大10户贷款统计，当然，先要对企业如“元立集团”的所有贷款进行统计，再按“数据”工作表的样式，列出最大10户清单，工作表命名为“最大10户”。
请帮助！谢谢！

PnH2xiBv.rar (15.66 KB, 下载次数: 41)

[此贴子已经被作者于2003-9-9 18:36:06编辑过]

schuadf · 发表于 2003-9-3 14:43

首先深表谢谢!由于本人对函数一窍不通,所以我还是想请你再帮助帮我输到EXECL的统计表中去.麻烦了.谢谢!

schuadf · 发表于 2003-9-3 21:27

谢谢!我看了,是工具---宏---VISUAL BASIC 编辑器? 不好意思呵,
最大10户还是没有统计出来呀,能帮助一下吗?谢了.
还有能解释一下吗? hdf@21cn.com
再谢了.

[此贴子已经被作者于2003-9-4 12:55:54编辑过]

白水 · 发表于 2003-9-8 21:28

多谢老兄，我在什么地方见到你的这个作品，是用公式编著的。好厉害啊！
我现在急用一个表，它的要求就是自动取数据求值，最要紧的就是第一个表的记录个数是不确定的，这该怎么办？
注：本月结存数据不用在数据中取

L5cxIsEX.rar (40 KB, 下载次数: 38)

sqac · 发表于 2003-9-4 20:18

请大家来讨论。

sqac · 发表于 2003-9-2 23:17

Sub 统计()
Dim s As Worksheet
Dim i As Integer, j As Integer
Set s = Worksheets("统计")
For i = 2 To 3
      For j = 3 To 9
         s.Cells(i, j) = 0
      Next
Next
i = 8
Application.ScreenUpdating = False
With Worksheets("数据")
      Do While .Cells(i, 1) <> ""
         '科目余额统计
         For j = 2 To 3
            If s.Cells(j, 2) = Mid(.Cells(i, 1), 5, 3) Then
                  s.Cells(j, 3) = s.Cells(j, 3) + .Cells(i, 8)
                  s.Cells(j, 4) = s.Cells(j, 4) + 1
            End If
         Next
         '自然人/企业贷款统计
         If Len(.Cells(i, 2)) <= 3 Then
            s.Cells(2, 5) = s.Cells(2, 5) + .Cells(i, 8)
            s.Cells(3, 5) = s.Cells(3, 5) + 1
         Else
            s.Cells(4, 5) = s.Cells(4, 5) + .Cells(i, 8)
            s.Cells(5, 5) = s.Cells(5, 5) + 1
         End If
         '金融业内人士贷款统计
         If .Cells(i, 3) = "人行" Or .Cells(i, 3) = "工行" Or .Cells(i, 3) = "中行" Or .Cells(i, 3) = "建行" Or .Cells(i, 3) = "联社" Then
            s.Cells(2, 6) = s.Cells(2, 6) + .Cells(i, 8)
            s.Cells(3, 6) = s.Cells(3, 6) + 1
         End If
         '消费贷款统计
         If .Cells(i, 6) = "建房" Or .Cells(i, 6) = "修房" Or .Cells(i, 6) = "购房" Or .Cells(i, 6) = "购车" Then
            s.Cells(2, 7) = s.Cells(2, 7) + .Cells(i, 8)
            s.Cells(3, 7) = s.Cells(3, 7) + 1
         End If
         '本年贷款发放金额和笔数统计
         If Left(.Cells(i, 1), 4) = "2003" Then
            s.Cells(2, 8) = s.Cells(2, 8) + .Cells(i, 8)
            s.Cells(3, 8) = s.Cells(3, 8) + 1
         End If
         '年度到期贷款金额、笔数统计
         If Left(.Cells(i, 7), 4) = "2003" Then
            s.Cells(2, 9) = s.Cells(2, 9) + .Cells(i, 8)
            s.Cells(3, 9) = s.Cells(3, 9) + 1
         End If
         '最大10户贷款统计稍微麻烦,留给大家讨论最佳方案
         i = i + 1
      Loop
s.Columns("a:i").AutoFit
End With
Application.ScreenUpdating = True
End Sub

sqac · 发表于 2003-9-3 20:08

U3yfA8tZ.rar (23.73 KB, 下载次数: 62)

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

[求助] 请教斑竹:EXCEL的统计问题