EXECLでたくさんのパスワードを一度に作成したい

質問

EXECL等を利用して、一度に１００件とかの
ランダムなパスワードを作成するような
方法って何かありませんか？
EXCELの指定した縦の列に、ずらっとパスワードが
埋まってくれるとベストです。

回答No.1

kigoshi · ベストアンサー

エクセルで、というわけではありませんが、ランダムなパスワードを生成するソフトがあります。

http://search.vector.co.jp/search?query=%83p%83X%83%8F%81%5B%83h%81@%83%89%83%93%83_%83%80%81@%90%B6%90%AC&path=%2Fwin%2F&path=

これで作って貼り付けるというのではだめでしょうか。

お礼

お礼が遅れましたが、この即答で問題が解決しました。
昨日中に作業が終わって家に帰ることが出来ました。
手作業で...と思うとゾッとします^^;

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

回答No.2

Wendy02

こんばんは。

少し、考えてみました。
まず、A列に、パスワードで使う文字を用意してください。
記号が使える場合、使えない場合などがありますから、それは、それぞれの仕様によって決めてください。

私の作った方法は、以下のとおりです。

A1～A9
　0 ～9
A11 ～A36
　A ～Z
( =CHAR(64+ROW(A1)) これをフィルダウンコピーしても得られる）

A37 ～A62
　a ～z
(=CHAR(96+ROW(A1)) これをフィルダウンコピーしても得られる）

B1 ～B62
=RAND()

C1 ～C62
=RANK(B1,$B$1:$B$62) をフィルダウンコピーする。

E1:（８桁）

=INDEX($A$1:$C$62,$C$1,1)&INDEX($A$1:$C$62,$C$2,1)&INDEX($A$1:$C$62,$C$3,1)&INDEX($A$1:$C$62,$C$4,1)&INDEX($A$1:$C$62,$C$5,1)&INDEX($A$1:$C$62,$C$6,1)&INDEX($A$1:$C$62,$C$7,1)&INDEX($A$1:$C$62,$C$8,1)

８文字取る場合

コントロールツールのコマンドボタンをシートに貼り付け、右クリック－コードの表示で、以下を貼り付ける。

'----------------------------------------
Private Sub CommandButton1_Click()
For i = 1 To 100
　Cells(i, 7).Value = Range("E1").Value
　Range("F1").Value = "" 'ダミーの空打ち
Next i
End Sub

'----------------------------------------

ところで、乱数の発生は、ほぼ、それぞれの出現回数の割合が同じのようです。つまり、100回のうち8個を取り出すわけですから、現在の組み合わせからすると、数字の数が少なく感じることがあるかもしれません。もし、数字をもう少し含ませる必要があるなら、もう一通り０～９を増やしてください。

お礼

乱数発生に、コントロールボタンまで考えてくれた、
さらに最後に数字の発生頻度調整のコツまで...
ご丁寧な回答ありがとうございます。