Excel VBA質問箱 IV

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

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


56801 / 76737 ←次へ | 前へ→

【24680】Re:条件を満たすセルの数を数えたいのですが…
回答  Hirofumi  - 05/5/2(月) 22:27 -

引用なし
パスワード
   こんなのでも出来ると思うよ?

Sub 三数え2()

  Dim i As Long
  Dim lngRows As Long
  Dim vntData As Variant
  Dim lngCount As Long
  
  'List先頭セル位置を設定
  With ActiveSheet.Cells(1, "A")
    '総行数を取得
    lngRows = .Offset(65536 - .Row).End(xlUp).Row - .Row + 1
    If lngRows <= 1 Then
      lngRows = 1
      ReDim vntData(1 To 1, 1 To 1)
      vntData(1, 1) = .Value
    Else
      'データを配列に取得
      vntData = .Resize(lngRows).Value
    End If
    'データの先頭から最終まで繰り返し
    For i = 1 To lngRows
      '末尾が3なら
      If vntData(i, 1) Mod 10 = 3 Then
        'lngCountをインクリメント
        lngCount = lngCount + 1
      End If
    Next i
    '結果を出力
    .Offset(, 1).Value = lngCount
  End With

  Beep
  MsgBox "処理が完了しました"
  
End Sub
0 hits

【24679】条件を満たすセルの数を数えたいのですが… 音速ブルー 05/5/2(月) 21:54 質問
【24680】Re:条件を満たすセルの数を数えたいのです... Hirofumi 05/5/2(月) 22:27 回答
【24681】Re:条件を満たすセルの数を数えたいのです... ponpon 05/5/2(月) 22:35 回答
【24685】Re:条件を満たすセルの数を数えたいのです... ちゃっぴ 05/5/3(火) 8:59 回答
【24686】Re:条件を満たすセルの数を数えたいのです... ponpon 05/5/3(火) 9:37 発言
【24687】Re:条件を満たすセルの数を数えたいのです... Kein 05/5/3(火) 11:29 回答

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