Excelでセルの色づけを自動に行いたいです。

質問

Excelでセルの色づけを自動に行いたいです。
入力した数値と同じ数のセルに、自動で色をつける事は可能でしょうか？
例えば、A1のセルに「5」と入力すると、隣のセルB1～F1までの5つのセルが
塗りつぶされるというようなことをしたいと思っています。
条件付書式、またはVBAで方法があれば教えて下さい。

回答No.1

turuzou · ベストアンサー

B1:F1を選択してから、条件付書式の式は
=$A1>=COLUMN(A1)　で
A1に数値を入力してみてください。

お礼

ありがとうございます！！
早速、会社で利用しました。
こういった計算式の使い方があるんですね。
とても助かりました。
本当にありがとうございました。

回答No.2

turuzou

こちらはマクロです。
Sheetタブを右クリック→コードの表示→表示されたところに
下記を貼り付け

Private Sub Worksheet_Change(ByVal Target As Range)
　If Target.Count > 1 Then Exit Sub
　If Target.Column = 1 Then
　　With Target.Offset(, 1).Resize(, 5) 'クリアの範囲
　　　.Interior.ColorIndex = xlNone
　　End With
　　If Target >= 1 Then
　　　With Target.Offset(, 1).Resize(, Target)
　　　　.Interior.ColorIndex = 6
　　　End With
　　End If
　End If
End Sub

色見本
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_030_120.html

お礼

マクロ版の回答までありがとうございます。
実は、マクロはまだまだかなりの初心者なのですが、
こちらを参考に頑張ってやってみようと思います。
ありがとうございました。