「範囲内の数字の数を」
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