Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(指定なし : 指定なし)
RE: 「範囲内の数字の数を」(1946さん)
投稿日時: 25/08/20 08:50:51
投稿者: simple

「範囲内の数字の数を」
https://www.moug.net/faq/viewtopic.php?t=83102
について。
 
モーグ運営事務局さんから下記のご連絡をいただきました。トラブルを解消頂きありがとうございました。
> 確認いたしましたところ、サーバー側のセキュリティ機能により、送信内容がブロックされておりました。
> 本日15:00頃に設定を変更いたしましたので、
> 不等号を含む内容もご投稿いただけるようになっているかと存じます。

(注:8/19 15:00頃です)
 
質問者さんから解決済みとの発言がありました。
遅くなりましたが、経緯報告を兼ね、当初予定していた回答をそのままアップしておきます。
必要であれば参考にしてください。
------
ワークシート関数であれば、=COUNTIFS(M6:P6,">=11",M6:P6,"<=20") といったもので個数が
計算できます。VBAの学習目的ということであれば、以下のようになると思います。
各セルには数値だけが入力されている(または未入力)という前提です。
計算対象のセルがあるシートをアクティブにした状態で下記のマクロを実行します。

Sub test()
    Dim k       As Long
    Dim v       As Variant
    Dim cnt     As Long     '条件を満たしたセルの個数

    For k = 13 To 16
        v = Cells(6, k).Value
        If v >=  11 AND v <= 20 then cnt = cnt + 1   
    Next
    MsgBox "条件を満たしたセルの個数は " & cnt & " 個です"
End Sub

投稿日時: 25/08/20 21:33:50
投稿者: simple

閉じます。