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

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

受講生さんの投稿

(投稿ID: 2171)

今回の問題は、以下のとおりA列の条件を満たしたら、更にB列の条件も満たすもの
と分岐処理をして、該当行を特定させたコードを書いていました。

しかし、、、目標の結果が得られたら、そこで作業中断し、ループを抜けるという
魔法の言葉があったんですね！
小人ちゃんに不要な作業をさせるまでもないです。
答えが出たら、早退しておうちに帰ってもらえばいいのですね(*^▽^*)
データ件数が大きかったら、この効果がわかることでしょうね。
Sub rensyu033001()
    Dim gyo
    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

by gooska
2016/03/30 10:17