Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


4750 / 76732 ←次へ | 前へ→

【77598】膨大な件数を区分けしたいです
質問  あぶ  - 15/11/3(火) 21:26 -

引用なし
パスワード
   膨大な時間と数値の情報で、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

0 hits

【77598】膨大な件数を区分けしたいです あぶ 15/11/3(火) 21:26 質問[未読]
【77599】Re:膨大な件数を区分けしたいです β 15/11/3(火) 21:53 発言[未読]
【77600】Re:膨大な件数を区分けしたいです あぶ 15/11/3(火) 22:07 質問[未読]
【77601】Re:膨大な件数を区分けしたいです β 15/11/3(火) 22:12 発言[未読]
【77603】Re:膨大な件数を区分けしたいです あぶ 15/11/3(火) 22:25 質問[未読]
【77605】Re:膨大な件数を区分けしたいです β 15/11/3(火) 22:31 発言[未読]
【77607】Re:膨大な件数を区分けしたいです あぶ 15/11/3(火) 22:35 発言[未読]
【77609】Re:膨大な件数を区分けしたいです マナ 15/11/3(火) 22:57 発言[未読]
【77602】Re:膨大な件数を区分けしたいです β 15/11/3(火) 22:24 発言[未読]
【77604】Re:膨大な件数を区分けしたいです あぶ 15/11/3(火) 22:27 発言[未読]
【77606】Re:膨大な件数を区分けしたいです β 15/11/3(火) 22:34 発言[未読]
【77608】Re:膨大な件数を区分けしたいです あぶ 15/11/3(火) 22:36 お礼[未読]

4750 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free