Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


10301 / 76734 ←次へ | 前へ→

【71981】セルに背景色をつける場合
質問  moco  - 12/5/11(金) 15:05 -

引用なし
パスワード
   エクセルのセルに背景色をつける際どのようにしたらよいのでしょうか?

例えばA2のセルに「A」を入力したら自動的にA2とB2のセルが赤色、

A3のセルに「B」を入力したら自動的にA3とB3のセルが黄色、という感じです。条件付書式設定だと2003の場合3つしか設定できませんでした。
10色利用したいので条件付書式設定が利用できません。

以下方法で試してみたのですが、コンパイルエラー End Subが必要ですと表示され
マクロが実行できません。


Sub Macro1()
'
' Macro1 Macro
'
Private Sub Wokrsheet_Change(ByVal Target As Range)

Dim Cell_Col As Integer
Dim rng As Range

Select Case Target.Value
Case "A"
Cell_Coll = 3 '赤

Case "B"
Cell_Coll = 6 '黄

Case "C"
Cell_Coll = 4 '緑

Case "D"
Cell_Coll = 5 '青

Case Else
Cell_Coll = xlNone

End Select

Set rng = Range(Target, Target.Offset(0, 1)) '自分と右となりのセル
rng.Interior.ColorIndex = Cell_Col '背景色を指定

'
End Sub


End Subを入れているのにエラーが出てしまい、何度も試したのですが
何がエラーなのかわかりません。
アドバイスお願いします。

5 hits

【71981】セルに背景色をつける場合 moco 12/5/11(金) 15:05 質問
【71982】Re:セルに背景色をつける場合 毛虫(通過中) 12/5/11(金) 15:11 発言
【71984】Re:セルに背景色をつける場合 moco 12/5/11(金) 16:52 質問
【71983】Re:セルに背景色をつける場合 Abebobo 12/5/11(金) 16:09 発言
【71985】Re:セルに背景色をつける場合 moco 12/5/11(金) 16:54 質問
【71986】Re:セルに背景色をつける場合 毛虫(通過中) 12/5/11(金) 17:38 発言
【71989】Re:セルに背景色をつける場合 moco 12/5/12(土) 10:18 お礼
【71987】Re:セルに背景色をつける場合 ドカ 12/5/11(金) 17:49 回答
【71990】Re:セルに背景色をつける場合 moco 12/5/12(土) 10:19 お礼
【71988】Re:セルに背景色をつける場合 hint 12/5/11(金) 21:03 発言
【71991】Re:セルに背景色をつける場合 moco 12/5/12(土) 10:20 お礼

10301 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free