|
膨大な時間と数値の情報で、13行目に通話時間、14行目に通話結果(通話、不応答、話中)というデータがあります。
1分以上通話した数、1分以内の数を出したいので、下記のプログラムを作りましたが、期待する数値が出てきません。どこかおかしいかわかりません。
つたない説明で申し訳ないですが、教えてください。
Private Sub CommandButton3_Click()
Dim VarGyou As Variant
Dim StrTime As String
Dim VarCount_On As Variant
Dim VarCount_Off As Variant
VarCount_On = 0
VarCount_Off = 0
VarGyou = 1
Do
VarGyou = VarGyou + 1
If Cells(VarGyou, 13) = "" Then
Exit Do
End If
If Cells(VarGyou, 14) = 1 Then
StrTime = Cells(VarGyou, 13)
If StrTime >= "00:01:00" Then
VarCount_On = VarCount_On + 1
Else
VarCount_Off = VarCount_Off + 1
End If
End If
Loop
Cells(3, 47) = VarCount_On
Cells(4, 47) = VarCount_Off
End Sub
|
|