お品書き
書き直し中…
とりあえず、中へどうぞ
↓↓↓
スポンサーリンク

パスワード自動生成 Ver 2.0【エクセル】

PC/ネット
前に書いたパスワード自動生成【エクセル】で省略した、生成したパスワードをマクロを使って別シートに記録していく方法を、書いてみました。

ボタンを押す度にパスワードが変更され、日時とパスワードが「記録」シートに記録されていきます。





マクロはこんな感じ
Sub Create_passwd() Dim パスワード As String '変数「パスワード」を宣言 Dim 最終行数 As Long '変数「最終行数」を宣言 Dim 日時 As Date '変数「日時」を宣言 ThisWorkbook.Application.Calculation = xlCalculationAutomatic '計算方法を自動に パスワード = Sheets("処理").Range("B8") 'パスワードを取得 Sheets("処理").Range("B15") = パスワード 'パスワードを表示 最終行数 = Sheets("記録").Cells(Rows.Count, 2).End(xlUp).Row '記録シートの最終行数を取得 Sheets("記録").Cells(最終行数 + 1, 1) = Now '日時を記録 Sheets("記録").Cells(最終行数 + 1, 2) = パスワード 'パスワードを記録 ThisWorkbook.Save 'ファイルを保存 End Sub
ファイルを見たい人はどうぞ

 ⇒ password_creat_v2

(※マクロ入りファイルなので自己責任でどうぞ)

インターフェースがダサいのはツッコミ禁止で

センス良いデザインを各自で作って下さい(^^;)

コメント