前に書いたパスワード自動生成【エクセル】で省略した、生成したパスワードをマクロを使って別シートに記録していく方法を、書いてみました。
ボタンを押す度にパスワードが変更され、日時とパスワードが「記録」シートに記録されていきます。
マクロはこんな感じ
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
（※マクロ入りファイルなので自己責任でどうぞ）
インターフェースがダサいのはツッコミ禁止で
センス良いデザインを各自で作って下さい(^^;)
コメント