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

【動画45】 発展1講座第4章 - For Each構文 セルのコレクション での質問です。
Sub ForEach_Range()
    Dim rg As Range
    For Each rg In Range("C2:H29")
        If rg.Value >= 40 Then
            rg.Interior.ColorIndex = 46
            rg.Font.ColorIndex = 2
            rg.Font.Bold = True
        End If
    Next
End Sub

のようにオブジェクト型の変数を宣言する場合は、
Sub ForEach_Range()
    Dim rg As Range
 Set rg = Range("C2:H29")
    For Each rg In Range("C2:H29")

のようにSetで変数を割り当てなくても良いのでしょうか?
2017/10/29 18:20