一行おき・一列おきに背景色を変更する

シートの背景色を一行おき・一列おきに変更するVBAコードです。またその背景色をクリアします。

Excelでよく使うフレーズのサンプルのメニューに戻る

スポンサードリンク



実行画面

実行前のシートです。
実行前のシート

一列おきに背景色を変更したシート
一列おきに背景色を変更

一行おきに背景色を変更したシート
一行おきに背景色を変更

スポンサードリンク



プログラムソース

'背景色をクリアする
Sub MyhaikeiClear()
    Dim i As Integer
    
    For i = 1 To 10 Step 2
        Worksheets("Sheet1").Columns(i).Interior.ColorIndex = 0
        Worksheets("Sheet1").Rows(i).Interior.ColorIndex = 0
    Next
End Sub

'一行おきに背景色を変更する
Sub MyhaikeiCol()
    Dim i As Integer
    
    For i = 1 To 10 Step 2
        Worksheets("Sheet1").Columns(i).Interior.ColorIndex = 14
    Next
End Sub

'一列おきに背景色を変更する
Sub MyhaikeiRow()
    Dim i As Integer
    
    For i = 1 To 10 Step 2
        Worksheets("Sheet1").Rows(i).Interior.ColorIndex = 14
    Next
End Sub

Excelでよく使うフレーズのサンプルのメニューに戻る

スポンサードリンク





■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


関連コンテンツ

Copyright (c) Excel-Excel ! All rights reserved