求分析数据代码

lingning1001

统计1.rar (20 KB, 下载次数: 3)

2018-9-13 11:55 上传

点击文件名下载附件

想做一个分析表，在日期列计算小于等于5年的数据统计个数在T2，大于5年小于等于10年的数据统计个数在T3，大于10年的数据统计个数在T4
怎么代码实现结果

lingning1001

mikezhan 发表于 2018-9-13 12:00
你这所谓的 5年 10年，是按每年实际天数365天算，还是说只要跨年就算一年？

哦，忘记了，和当前日期对比得出结果，算出年数，保留1位小数

lingning1001

lingning1001 发表于 2018-9-13 12:20
哦，忘记了，和当前日期对比得出结果，算出年数，保留1位小数

应该按照实际天数计算，因为每年天数是要变化的

lingning1001

我是借助另外一张表达到效果，但是我想在VB上实现，就可以不用多一张表了

lingning1001

lingning1001 发表于 2018-9-13 13:00
我是借助另外一张表达到效果，但是我想在VB上实现，就可以不用多一张表了

没有办法实现

魂断蓝桥

显示窗体前就可以计算好了。

Private Sub UserForm_Initialize()
TextBox1 = Range("A65536").End(xlUp).Row - 1
Dim arr, brr(1 To 3), i%, myn%
arr = Sheet1.[a1].CurrentRegion
For i = 2 To UBound(arr)
    myn = DateDiff("yyyy", arr(i, 4), Date)
    Select Case myn
        Case Is <= 5
            brr(1) = brr(1) + 1
        Case Is <= 10
            brr(2) = brr(2) + 1
        Case Else
            brr(3) = brr(3) + 1
    End Select
Next
For i = 1 To 3
     Me.Controls("TextBox" & i + 1) = brr(i)
     Me.Controls("TextBox" & i + 4) = FormatPercent(brr(i) / Me.TextBox1)
Next  
End Sub

lingning1001

魂断蓝桥 发表于 2018-9-13 14:22
显示窗体前就可以计算好了。

Private Sub UserForm_Initialize()

非常好，试验成功了，非常谢谢