对各个sheet页中的结果进行统计

用来对各个sheet页中OK和NA结果的数据进行统计，并填入到结果表中。
Sub SetUTResult()
SetResultNum (2)
End Sub
--------------------
Function SetResultNum(time As Integer)

Dim activeSheet As Worksheet
Set activeSheet = ThisWorkbook.Sheets("働乕僗廤寁")
Dim rColoum1 As Integer
Dim rColoum2 As Integer
rColoum1 = 5 + 3 * (time - 1)
rColoum2 = 7 + 3 * (time - 1)

Dim i As Integer
For i = 5 To ThisWorkbook.Sheets.Count Step 1

Dim s As Worksheet
Set s = ThisWorkbook.Sheets(i)

Dim coloum As Integer
coloum = 7 + 3 * (time - 1)
If i = 10 Then
coloum = 4 + 3 * (time - 1)
ElseIf i = 11 Then
coloum = 5 + 3 * (time - 1)
End If

activeSheet.Cells(i, rColoum1).value = CStr(GetResultNum(s.name, coloum, "OK"))
activeSheet.Cells(i, rColoum2).value = CStr(GetResultNum(s.name, coloum, "N/A"))

Next
End Function

--------------------
Function GetResultNum(sName As String, coloum As Integer, value As String) As Integer
Dim s As Worksheet
Set s = ThisWorkbook.Sheets(sName)

Dim i As Integer
Dim sum As Integer

sum = 0

For i = 3 To s.UsedRange.Rows.Count Step 1
Dim result As String
result = Trim(s.Cells(i, coloum).Text)

If result = value Then
sum = sum + 1
End If

Next
GetResultNum = sum
End Function