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

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

多和田 真也さんの投稿

(投稿ID: 2205)

質問させてください。

問題[1]とおなじことを、exit for を使わずに、andを使って以下のように書いても実現できました。
Sub futankin1()
    Dim gyo
    For gyo = 4 To 37
        If Range("B" & gyo).Value > Range("E4").Value And Range("E4").Value > Range("A" & gyo).Value Then
            Range("F4").Value = Range("C" & gyo).Value
            
        End If
    Next
End Sub

しかし、if文で、
If Range("B" & gyo).Value > Range("E4").Value > Range("A" & gyo).Value Then

と書くと動かないようです。

なぜなのか、いまいち腑に落ちないのですが、なぜなのでしょうか？
2016/04/01 18:04