[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『メッセージを表示』(熱闘甲子園)
マクロでA2からA5までの範囲で、1万円以下のものがあれば、 1万円以下が存在することの警告と、件数をメッセージを表示したいです。 以下のデータでは「1万円以下が2件あります。」
A 1 金額 2 8900 3 21000 4 11000 5 9300
< 使用 Excel:Excel2010、使用 OS:Windows8 >
(マナ) 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 "要注意!、1万円以下が " & j & " 件あります。" End If End With End Sub でも (隠居じーさん) 2018/08/08(水) 22:36
(隠居じーさん) 2018/08/09(木) 07:34
マナさん、関数ありがとうございました。 隠居じーさん、ループ勉強になりました。 ありがとございました。
(熱闘甲子園) 2018/08/09(木) 20:14
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.