[[20180808201759]]　『メッセージを表示』（熱闘甲子園）　ページの最後に飛ぶ

『メッセージを表示』（熱闘甲子園）

 マクロでA2からA5までの範囲で、１万円以下のものがあれば、
 １万円以下が存在することの警告と、件数をメッセージを表示したいです。
 以下のデータでは「１万円以下が2件あります。」

＜使用 Excel：Excel2010、使用 OS：Windows8 ＞

B2セルに、COUNTIF関数で10000以下の個数を表示させるはだめですか
=COUNTIF(A2:A5,"<=10000")

（マナ） 2018/08/08(水) 20:54

 VBA　情報がWorksheets("Sheet1")にある。が前程で　＾＾

 Option Explicit
Sub main()
    Dim i As Long, j As Long
    With Worksheets("Sheet1")
        For i = 2 To 5
            If .Cells(i, 1) < 10000 Then
                j = j + 1
            End If
        Next
        If j Then
            MsgBox "要注意！、１万円以下が　" & j & "　件あります。"
        End If
    End With
End Sub
でも
（隠居じーさん） 2018/08/08(水) 22:36

修正。。。未満になっています。
以下！なので
If .Cells(i, 1) <= 10000 Then
でした。
m(__)m

（隠居じーさん） 2018/08/09(木) 07:34

 マナさん、関数ありがとうございました。
 隠居じーさん、ループ勉強になりました。
 ありがとございました。

（熱闘甲子園） 2018/08/09(木) 20:14

コメント返信：

[ 一覧(最新更新順) ]

[[20180808201759]] 『メッセージを表示』（熱闘甲子園） ページの最後に飛ぶ

[[20180808201759]]　『メッセージを表示』（熱闘甲子園）　ページの最後に飛ぶ