Excelのお話 Part21

こんにちは～ドットコムパソコン塾の徳丸です

先日のマクロの宿題はできましたか？

Part20では、塗りつぶしが白のセルをカウントするマクロでした～

宿題は、セルが白で塗りつぶしされている箇所を、

別の色に変更するというものでしたね～

では答え合わせです～

コードの記述は以下のとおりです

Sub 変更()
    Dim c As Range
       
    For Each c In Range("B2:D25")
        If c.Interior.ColorIndex = 2 Then
            c.Interior.ColorIndex = 6
        End If
    Next c
End Sub

結果は下図のとおりです～

いかがですか？

できましたか？

範囲の選択は一番重要ですから

考えて選択範囲を設定しましょう～

HPはこちら

〒503-0204
岐阜県安八郡輪之内町四郷211-1
ドットコム・パソコン塾
TEL：0584-69-3839
開校日：月曜日～土曜日8：00～13：00
プライベートレッスン：月曜日～土曜日13：00～17：00
休校日：日曜日・祝日