投稿/コメントを表示します。

エクセルマクロ・VBA基礎編フォローアップ アドバンスド
保険料額表から標準報酬額ごとの保険料負担額を算出する

HYATOさんの投稿

(投稿ID: 5268)

○○円以上△△円未満という条件になっていたので、下のようなマクロを（条件反射的に）作成してしまいました。下のマクロでも問題なく実行できましたが、今回の動画で”Exit For”が使えることがわかり、勉強になりました。引き続きよろしくお願いします。
Sub test()
    Dim gyo As Long
    For gyo = 4 To 37
        If Range("A" & gyo).Value <= Range("E4").Value Then
            If Range("B" & gyo).Value > Range("E4").Value Then
                 Range("F4").Value = Range("C" & gyo).Value
            End If
        End If
    Next
End Sub

2022/05/03 09:37