Excel VBA質問箱 IV

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

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


6795 / 76734 ←次へ | 前へ→

【75536】Re:集計
発言  kanabun  - 14/5/10(土) 19:59 -

引用なし
パスワード
   ▼しろ さん:

> 数値は文字列になっています。

Sub test2()
  Dim v(), i As Long, k As Long
  
  v() = Range("A1").CurrentRegion
  For i = 1 To UBound(v)
    If v(i, 3) = "1" Then
     If v(i, 2) <> "0" Then
      If v(i, 1) <> "0" Then
        k = k + 1
      End If
     End If
    End If
  Next
  MsgBox "Count=" & k
End Sub
6 hits

【75526】集計 しろ 14/5/9(金) 19:49 質問
【75528】Re:集計 γ 14/5/9(金) 22:20 発言
【75533】Re:集計 しろ 14/5/10(土) 18:16 質問
【75534】Re:集計 γ 14/5/10(土) 18:41 発言
【75535】Re:集計 γ 14/5/10(土) 19:35 発言
【75537】Re:集計 γ 14/5/10(土) 23:29 発言
【75536】Re:集計 kanabun 14/5/10(土) 19:59 発言

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