エクセル 乱数でユーザーID

質問

エクセル２００２使用です

一定規模の人数にユーザーIDなどを割り振るような目的で使用したいのですが、エクセルのrand関数もしくはVBAのrnd関数を使って、英数字を組み合わせて乱数を発生させることは可能でしょうか？

よろしくお願いします。

回答No.1

mshr1962 · ベストアンサー

RANDで数字を作成後にDEC2HEXで16進数化（数字とABCDEF）では駄目でしょうか？
上記以外だと、マクロで有効桁数毎に、計算する方法になります。

'8桁の場合の例 IDの文字の順番はバラバラでも可
Dim USID,ID As String
Dim USNO As Integer
ID="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
USID=""
For I = 1 To 8
USNO = Int(Rnd*36+1)
USID =USID + MID(ID,USNO,1)
Next I

お礼

mshr1962 様早速のご回答ありがとうございます。

今回は、ご教授いただきましたVBAのコードの方が
使途にあっていますのでお知恵をお借りします。

完璧でした。

ありがとうございました。
今後ともよろしくお願いします。