程序运行出错

FXZ2015

Private Sub 统计_Click()
Dim lastRow As Long
    Dim lowerLimit As Double, upperLimit As Double
    Dim count As Long
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("人员名册") '假设数据在Sheet1上

    '找到G列的最后一行
    lastRow = ws.Cells(ws.Rows.count, "F").End(xlUp).row

a = Array(TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6)
    b = Array(TextBox7, TextBox8, TextBox9, TextBox10, TextBox11, TextBox12)
    c = Array(TextBox13, TextBox14, TextBox15, TextBox16, TextBox17, TextBox18)
    For i = 0 To 5
        AA = Me.Controls(a(i)).Value
        BB = Me.Controls(b(i)).Value
        CC = Me.Controls(c(i)).Value
count = Application.WorksheetFunction.CountIfs(ws.Range("G4:G" & lastRow), ">=" & AA, ws.Range("G4:G" & lastRow), "<=" & BB)
CC = count
    Next
End Sub


请各位老师帮忙！

名册1.rar (195.73 KB, 下载次数: 3)

2024-8-14 09:58 上传

点击文件名下载附件

3190496160

Private Sub 统计_Click()
Dim lastRow As Long
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("人员名册") '假设数据在Sheet1上
lastRow = ws.Cells(ws.Rows.count, "F").End(xlUp).row
For i = 1 To 6
    AA = Val(Me.Controls("TextBox" & i))
    BB = Val(Me.Controls("TextBox" & i + 6))
    Me.Controls("TextBox" & i + 12).Value = Application.WorksheetFunction.CountIfs(ws.Range("G4:G" & lastRow), ">=" & AA, ws.Range("G4:G" & lastRow), "<=" & BB)
    hj = hj + Val(Me.Controls("TextBox" & i + 12).Value)
Next i
Label37.Caption = "合计：" & hj
End Sub

3190496160

名册1.rar (184.03 KB, 下载次数: 8)

2024-8-14 10:34 上传

点击文件名下载附件

FXZ2015

3190496160 发表于 2024-8-14 10:34

老师，压缩文件有问题，下载后打不开。

FXZ2015

3190496160 发表于 2024-8-14 10:34

打开了，谢谢老师。

Qs18

Private Sub 统计_Click()
Dim lastRow As Long
    Dim lowerLimit As Double, upperLimit As Double
    Dim count As Long
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("人员名册") '假设数据在Sheet1上
    '找到G列的最后一行
    lastRow = ws.Cells(ws.Rows.count, "F").End(xlUp).row
arr = ws.Range("g5:g" & lastRow).Value
    For i = 0 To 5
        aa = Me.Controls("TextBox" & i + 1).Value
        bb = Me.Controls("TextBox" & i + 7).Value
        sm = 0
        For rw = 1 To UBound(arr)
            If arr(rw, 1) <> "" Then
                If Val(arr(rw, 1)) > Val(aa) And Val(arr(rw, 1)) <= Val(bb) Then
                sm = sm + 1
                hj = hj + 1
                End If
            End If
        Next
     Me.Controls("TextBox" & i + 13).Value = sm
    Next
    MsgBox "合计：" & hj
End Sub

Qs18

试试......

Qs18

试试..............

dzsrmyh

3190496160 发表于 2024-8-14 10:33
Private Sub 统计_Click()
Dim lastRow As Long
Dim ws As Worksheet

搞定了！！！！