ListView中列计数

方向123

请教，如何能在ListView中计算列中的个数？
如图：
求教.rar (13.5 KB, 下载次数: 36)

2011-5-21 19:19 上传

点击文件名下载附件

[ 本帖最后由 方向123 于 2011-5-22 07:22 编辑 ]

zhaogang1960

要计算“初诊”人数？
可以使用CountIf函数，也可以一个一个计数：
Private Sub UserForm_Initialize()
    Dim Itm As ListItem
    Dim r As Integer
    Dim i As Integer
    Dim c As Integer
    Dim m As Integer
    r = Cells(Rows.Count, 1).End(xlUp).Row
    With ListView1
        .ColumnHeaders.Add , , "日期", 60, 0
        .ColumnHeaders.Add , , "姓名", 50, 2
        .ColumnHeaders.Add , , "性别", 30, 2
        .ColumnHeaders.Add , , "年龄 ", 50, 2
        .ColumnHeaders.Add , , "初复诊", 50, 2
        .ColumnHeaders.Add , , "科室", 50, 2
        .ColumnHeaders.Add , , "医生", 50, 2
        .View = lvwReport
        .Gridlines = True
        For i = 2 To r
            Set Itm = .ListItems.Add()
            Itm.Text = Space(2) & Cells(i, 1)
            For c = 1 To 6
                Itm.SubItems(c) = Cells(i, c + 1)
            Next
            If Cells(i, 5) = "初" Then m = m + 1
        Next
    End With
    Set Itm = Nothing
    Label1.Caption = "共找到 " & ListView1.ListItems.Count & " 条记录"
    Label2.Caption = "初诊： " & m & " 人"
'    Label2.Caption = "初诊： " & WorksheetFunction.CountIf([e:e], "初") & " 人"
End Sub

laosanjie

原帖由 zhaogang1960 于 2011-5-21 22:49 发表
要计算“初诊”人数？
可以使用CountIf函数，也可以一个一个计数：
Private Sub UserForm_Initialize()
    Dim Itm As ListItem
    Dim r As Integer
    Dim i As Integer
    Dim c As Integer
    Dim m ...

学习一下

lyhabc

请问二楼   countif函数里CountIf([e:e], "初")，e代表什么意思呢？

方向123

zhaogang1960 老师，您太历害了，谢谢！

[ 本帖最后由 方向123 于 2011-5-22 07:24 编辑 ]