| |
エクセルのセルに背景色をつける際どのようにしたらよいのでしょうか？
例えばＡ２のセルに「Ａ」を入力したら自動的にＡ２とＢ２のセルが赤色、
Ａ３のセルに「Ｂ」を入力したら自動的にＡ３とＢ３のセルが黄色、という感じです。条件付書式設定だと2003の場合３つしか設定できませんでした。
１０色利用したいので条件付書式設定が利用できません。
以下方法で試してみたのですが、ｺﾝﾊﾟｲﾙｴﾗｰ 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を入れているのにエラーが出てしまい、何度も試したのですが
何がエラーなのかわかりません。
ｱﾄﾞﾊﾞｲｽお願いします。
|
|
moco
- 12/5/11(金) 15:05 -
