VBA之使用公式,函数

需求1:
统计所有的地区的考生数,男生数量,女生数量
汇总到sheet1里

Sub tongji()
Dim j, k, l As Integer

For i = 2 To Sheets.Count

k = k + Application.WorksheetFunction.CountA(Sheets(i).Range("a:a")) - 1
j = j + Application.WorksheetFunction.CountIf(Sheets(i).Range("f:f"), "男")
l = l + Application.WorksheetFunction.CountIf(Sheets(i).Range("f:f"), "女")

Next

Sheet1.Range(“d26”) = k
Sheet1.Range(“d27”) = j
Sheet1.Range(“d28”) = l

End Sub

解读:
k是总的考生数量,每次for循环一个工作表时,要减去该表的表头
主要是 countA和countif的用法,countif里面有两个参数,一个是单元格范围,第二个参数是计数条件

需求2:
自动筛选按钮里,用户如果输入的是不是数字怎么办?

Sub chaifenshuju()

Dim sht As Worksheet
Dim k, i, j As Integer
Dim irow As Integer '这个说的是一共多少行
Dim l

l = InputBox(“请输入你要按哪列分”)

If IsNumeric(l) = False Or l < 1 Then '判断是否是数字,是否小于1
Exit Sub
End If

l = Val(l) '文本转数字

'删除无意义的表
Application.DisplayAlerts = False
If Sheets.Count > 1 Then
For Each sht1 In Sheets
If sht1.Name <> “数据” Then
sht1.Delete
End If
Next
End If
Application.DisplayAlerts = True '这个地方上课的时候我没改成true，请大家注意一下

irow = Sheet1.Range(“a65536”).End(xlUp).Row
'拆分表
For i = 2 To irow
k = 0
For Each sht In Sheets
If sht.Name = Sheet1.Cells(i, l) Then
k = 1
End If
Next

If k = 0 Then
    Sheets.Add after:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = Sheet1.Cells(i, l)
End If

Next
'拷贝数据

For j = 2 To Sheets.Count
Sheet1.Range(“a1:f” & irow).AutoFilter Field:=l, Criteria1:=Sheets(j).Name
Sheet1.Range(“a1:f” & irow).Copy Sheets(j).Range(“a1”)
Next

Sheet1.Range(“a1:f” & irow).AutoFilter

Sheet1.Select

MsgBox “已处理完毕，牛逼不”

End Sub

代码解读:
l = InputBox(“请输入你要按哪列分”)

If IsNumeric(l) = False Or l < 1 Then '判断是否是数字,是否小于1
Exit Sub
End If

l = Val(l) '文本转数字

判断用户输入的是否正确,首先判断是不是数字,然后判断是否小于1,
最后把输入的文本类型转成数字类型