ステートメント制御文の使用例2


使用例2

セル範囲 A1:B10 における数値データの中で、5 以上であれば
右2列隣りに ○印 をつける。


  
Sub statmen2() Dim erng, rang As Range Set rang = Range("A1:B10") For Each erng In rang If erng.Value >= 5 Then erng.Offset(, 3).Value = "○" End If Next End Sub back top