エクセルのセル塗りつぶしについて（VBA）

質問

いつもお世話になっています。

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

画像添付します。

回答No.1

imogasi

もしグラフ的なことを考えているなら
例
Ａ列　　　　　Ｂ列
3 ■■■
5 ■■■■■
9 ■■■■■■■■■
■は文字の四角です。
Ｂ１の式は
Ｂ１をセットしてから、文字フォントを赤色にして。＋ハンドルで下に引っ張ると、コピーになるので
第２行、第３行も赤色の四角になる。
ーーーーーーーーーー
質問者は、ＶＢＡではイベント言うのを使ったことあるのかな。
下記でも完全かどうか判らないが、質問者にはイベントなどを使うのは難しいと思う。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then 'A列の変化なら
r = Target.Row
If Target = "" Then "空白の場合
Range(Cells(r, 1), Cells(r, 100)).Interior.ColorIndex = xlNone
Exit Sub
Else
Range(Cells(r, 2), Cells(r, 1 + Cells(r, "A"))).Interior.ColorIndex = 6
End If
End If
End Sub
Ａ列が数字か、限度などチェック用のコードは略