サービス終了のお知らせ NAVERまとめは2020年9月30日をもちましてサービス終了いたしました。 約11年間、NAVERまとめをご利用・ご愛顧いただき誠にありがとうございました。
条件分岐 If～Then～Else～End If topへ 条件によって異なったステートメントを実行します。 セル範囲B1:B5で値が 1の時は赤色、2の時は黄色、3の時は水色、それ以外の時は緑色 でセルを塗りつぶします。 Sub rei_01() Dim myRng As Range Dim c As Range Dim myColor As Integer Set myRng = Range("B1:B5") For Each c In myRng If c.Value = 1 Then myColor = 3 '赤 ElseIf c.Value = 2 Then myColor = 6 '黄 ElseIf c.Value = 3 Then myColor = 8 '水色 Else myColor = 10 '緑 End If c.Interior.ColorIndex = myC
はじめに セルの値に応じて色をつけたい(セルを塗りつぶしたい)ときは条件付き書式が利用できます。 ただし、Excel2003までの条件付き書式では3条件までしか設定ができませんので、4条件など条件が多いときにはVBAを利用します。 ここではVBAを使ってセルを塗りつぶす例(条件数5個)を書いています。 セルの値が一箇所だけ変わる場合 E列の値が1～5の場合、A列～E列のセルをそれぞれの色で塗りつぶします。 コードはワークシートのモジュールに書きます。 シートタブでシート見出しを右クリックして「コードの表示」を実行するとVBEが開きます。 下図ではSheet1にコードが書いてある例です。 【コード例】 セルの色は .Interior.ColorIndex とカラーインデックスで指定しています。 インデックス番号と色の関係は ColorIndexと色の見本 をご覧ください。 Private S
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く