抽選をおこない

質問

ある会の抽選を行うとき、A列に応募者数、B列に応募者数に応じてRAND関数を入力し、上位20名を当選としています。応募者数は毎回異なりますので、応募者数に応じて、RAND関数が自動的に入力されるマクロを作りたいのです。マクロに詳しい方のお答えをよろしくお願いします。

回答No.2

n-jun · ベストアンサー

Sub try()

With Range("A2", Cells(Rows.Count, 1).End(xlUp)).Offset(, 1)
.Formula = "=Rand()"
.Value = .Value
End With

End Sub

一例になれば。

お礼

短い構文でわかりやすく、行おうとすることができました。
おれいおそくなりごめんなさい

使わせていただきます。

回答No.3

jin34

RAND関数はセルに何か入力するごとに反応して戻り値を変えてしまうところが曲者だと思います。
自分ならRAND関数で値を取得してそれをセルに入れるマクロを使うかな。

セルA2以下に応募者の番号が入っていると仮定して、以下のマクロを実行。

Sub test()

Dim i As Integer
Dim myrnd As Double

For i = 2 To Range("A65536").End(xlUp).Row

Do While Range("B" & i) = ""
myrnd = Rnd
If WorksheetFunction.CountIf(Columns(2), myrnd) = 0 Then
Cells(i, 2).Value = myrnd
Exit Do
End If
Loop

Next i
End Sub

お礼

お礼遅くなり大変失礼しました。

できました！！

ありがとうございました。

マクロを勉強しておりますが、なかなか身につきません。

回答No.1

KURUMITO

例えばＡ1セルに応募者数の文字が有り、Ｂ1セルにその数を50などと入力します。
Ａ2セルには応募者番号、Ｂ2セルには乱数の文字が有るとします。
Ａ3セルから下方に1からの番号を付けるとしてＡ3セルには次の式を入力して下方にドラッグコピーします。

=IF(ROW(A1)>B$1,"",ROW(A1))

Ｂ3セルには次の式を入力して下方にドラッグコピーします。

=IF(ROW(A1)>B$1,"",RAND())

Ｃ2セルには当選者と文字を入力し、下方には20名の応募者番号を表示させることにします。
Ｃ3セルには次の式を入力して下方にドラッグコピーします。

=IF(ROW(A1)>MIN(B$1,20),"",INDEX(A$3:A$1000,MATCH(SMALL(B$3:B$1000,ROW(A1)),B$3:B$1000,0)))

お礼

マクロを使わなくてもできのですね。
　関数なら私にも何とか理解できます。
ありがとうございました。