ランダム数値によるセルの塗りつぶし

質問

A列のセルに1～20のランダムな数値が入っています。

この数値xに従い、右セルx個に○を入力したいのですが可能でしょうか

例：
A1セルに「3」と入っていれば
B1から右3セル(B1,C1,D1)セルに"○"を入力する

回答No.4

noname#235092 · ベストアンサー

No.3です。一ヶ所訂正します。

マクロの2行目（空白行は数えずに）
（誤）Dim i As Integer
（正）Dim y As Integer

なお"○"を入力するのではなくてセルに色を付けるときは10行目、
Cells(y, n + 1).Value = "○"
　　　　　　　　　↓
Cells(y, n + 1).Interior.ColorIndex = 4
と書き替えてください。（色番号が4のときの例です。）

回答No.3

noname#235092

マクロで。

－－－－－－－－－－－－－－－－－－－
Sub Macro1()

Dim i As Integer
y = 1
Cells(y, 1).Activate

Do While ActiveCell.Value <> ""
Dim n As Integer
n = 0
For n = 1 To 20
If Cells(y, 1) >= n Then
Cells(y, n + 1).Value = "○"
End If
Next n
y = y + 1
Cells(y, 1).Activate
Loop

End Sub
－－－－－－－－－－－－－－－－－－－

※A1から下へ数値をチェックしながら「○」をその個数分右セルに入力していきます。
※A列に空白セルがあるとそこで停止します。

回答No.2

mu2011

一例です。
B1に=IF(($A1-COLUMN(A1))>=0,"◎","")を設定、縦横に必要分コピー

回答No.1

fujillin

必ず数値が入っているのなら…

B1に
=IF(COLUMN()<$A1+2,"○","")
として、下、右にオートフィルでいかがでしょうか？