[[20141013005235]]　『指定したセルに色を付ける。』（テルーザ）　ページの最後に飛ぶ

『指定したセルに色を付ける。』（テルーザ）

お世話になります。

条件付き書式で行いましたが、コピーが出来なく困っております。
VBAでの方法を教えてください。

C１のセルに１から５の数字を入力すると、例えば「２」と入力すれば、B1セルが黄色に、「４」と入力すればD1のせるが黄色に塗りつぶされる様に行いたいです。

A１　B1　C１　D1　E1
　　黄色　
C１
２

よろしくお願いいたします。

＜使用 Excel：Excel2007、使用 OS：Windows7 ＞

 色設定を間違えました。自己削除しました。2014/10/13　12：12
（五線譜） 2014/10/13(月) 02:12

 >C１のセルに１から５の数字を入力すると、例えば「２」と入力すれば、B1セルが黄色に、「４」と入力すればD1のせるが黄色に塗りつぶされる様に行いたいです。

 シートモジュールへ

 Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) <> "C1" Then Exit Sub
    [a1:e1].Interior.ColorIndex = xlNone
    If Target.Value Like "[1-5]" Then Cells(1, Target.Value).Interior.Color = vbYellow
End Sub
（seiya） 2014/10/13(月) 08:35
 チョイ修正
 ま、大して必要でもなく返信もしないならこんな質問しなけりゃいいんだけどな。

お礼のコメントを忘れていました。
ご協力して頂きながらすみません。
ありがとうございました。
（テルーザ） 2014/10/15(水) 17:10

コメント返信：

[ 一覧(最新更新順) ]

[[20141013005235]] 『指定したセルに色を付ける。』（テルーザ） ページの最後に飛ぶ

[[20141013005235]]　『指定したセルに色を付ける。』（テルーザ）　ページの最後に飛ぶ