电子表格Excel里面“勾”“ 叉”统计

1.Excel里面“勾”“ 叉”统计

'如果第一行有批注，将批注删除后再运行

Sub 统计对错（）

Dim R As Integer

Dim L As Integer

Dim w As Integer

Dim i As Integer

Dim intC, intW As Integer

Dim strDes As String

Dim xlsWs As New Worksheet

100 '开始统计操作

w = InputBox（"请输入要统计第几个工作表的内容："， ， 1）

R = InputBox（"请输入统计列："， ， 1）

L = InputBox（"请输入从第几行开始统计"， ， 1）

i = L

intC = 0: intW = 0

Set xlsWs = ThisWorkbook.Worksheets(w)

Do While Not xlsWs.Cells(i, R) = ""

If xlsWs.Cells(i, R) = "√" Then

intC = intC + 1

ElseIf xlsWs.Cells(i, R) = "ⅹ" Then

intW = intW + 1

strDes = strDes + Chr(13) + Chr(10) + "第" + Trim(intW) + "次错误时已经第" + Trim(intC) + "次正确"

intC = 0

End If

i = i + 1

Loop

'操作技巧：生成第一个批注后，点右键，显示批注，选中批注，把批注拉大，然后生成其它批注，这样生成的批注都是比较大的。

xlsWs.Cells(1, R).Select

Selection.AddComment

Selection.Comment.Text Text:=strDes

If MsgBox（"是否进行下一次统计？"， vbYesNo） = vbYes Then GoTo 100

End Sub