締切済み

エクセルシートの塗りつぶしをVBAでやるには？

2011/06/19 18:42

エクセルのセル塗りつぶしについて（VBA）いつもお世話になっています。エクセルシートで、任意のセルに数値を入力したとき、入力したセルから右側に向けて、その数値分、自動で塗りつぶすようにしたいのですが、どのようにすれば良いのでしょうか？色は何でも構いません。画像添付します。

90894193
お礼率10% (2/20)

Visual Basic
回答数3
ありがとう数0

みんなの回答 （3）
専門家の回答

みんなの回答

merlionXX
ベストアンサー率48% (1930/4007)

2011/06/19 21:58 回答No.3

シートモジュールに記述してください。任意のセルがご提示のようにC列に限るなら Private Sub Worksheet_Change(ByVal Target As Range) 　　If Target.Column = 3 Then 'C列なら　　　　If TypeName(Target.Value) = "Double" Then '数値なら　　　　　　Target.Resize(, Target.Value).Interior.ColorIndex = 3 '着色　　　　End If 　　End If End Sub どこでもOKなら Private Sub Worksheet_Change(ByVal Target As Range) 　　If TypeName(Target.Value) <> "Double" Then Exit Sub 　　Target.Resize(, Target.Value).Interior.ColorIndex = 3 End Sub