パスワード自動生成機＆管理ツールを作ろう！

この記事ではマクロ（VBA）を使用します。
マクロ初挑戦の方はこちらの記事からスタートすることをお勧めします。
Excelのマクロ初期設定ガイド

🔧テンプレートの説明

---

---

---

---

---

🔧チェックボックスを配置する

✅ VBAコード（チェックボックス一括配置）

Sub チェックボックス配置()
    Dim ws As Worksheet
    Dim rng As Range
    Dim chkBox As Object
    Dim i As Integer

    ' シートを設定
    Set ws = ThisWorkbook.Sheets("パスワード生成")
    
    ' チェックボックスを配置する範囲
    Set rng = ws.Range("K4:K7")

    ' 既存のチェックボックスを削除
    For Each chkBox In ws.CheckBoxes
        chkBox.Delete
    Next chkBox

    ' チェックボックスを配置
    For i = 1 To rng.Cells.Count
        With ws.OLEObjects.Add(ClassType:="Forms.CheckBox.1", _
                               Left:=rng.Cells(i).Left + (rng.Cells(i).Width / 4), _
                               Top:=rng.Cells(i).Top + (rng.Cells(i).Height / 4), _
                               Width:=rng.Cells(i).Width / 2, _
                               Height:=rng.Cells(i).Height / 2)
            .Object.Caption = "" ' ラベルなし
            .LinkedCell = "R" & (i + 3) ' R4:R7 にリンク
            .Object.Value = False ' 初期状態はオフ
        End With
    Next i

    MsgBox "チェックボックスを配置しました！", vbInformation, "完了"
End Sub

---

🔧 ここがポイント

✅ K4:K7 のセルの中央に配置する（セルの幅・高さを計算して調整）
✅ TRUE/FALSE の値を R4:R7 に保存する（LinkedCell を設定）
✅ 初回に既存のチェックボックスをすべて削除（重複防止）
✅ 「パスワード生成」シートでのみ動作するように設定

---

🎯 これで OK！

🔧パスワードを3つ生成する

---

🔜 次は「パスワードを3つ生成する」

---

✅ VBAコード（パスワード生成）

Sub パスワード生成()
    Dim ws参照 As Worksheet, ws生成 As Worksheet
    Dim 大文字 As String, 小文字 As String, 数字 As String, 記号 As String, 判別不可 As String
    Dim 文字セット As String
    Dim i As Integer, j As Integer
    Dim パス長 As Integer
    Dim パスワード As String
    Dim rng As Range
    Dim k4 As Boolean, k5 As Boolean, k6 As Boolean, k7 As Boolean
    Dim cell As Range
    Dim 必須数字 As Boolean, 必須記号 As Boolean

    ' シートの設定
    Set ws参照 = ThisWorkbook.Sheets("参照文字列")
    Set ws生成 = ThisWorkbook.Sheets("パスワード生成")
    
    ' 各文字列の取得
    大文字 = "": 小文字 = "": 数字 = "": 記号 = "": 判別不可 = ""

    ' A～Z, a～z の取得
    For i = 2 To 27
        大文字 = 大文字 & ws参照.Cells(2, i).Value
        小文字 = 小文字 & ws参照.Cells(3, i).Value
    Next i

    ' 数字の取得（0～9）
    For i = 2 To 11
        数字 = 数字 & ws参照.Cells(4, i).Value
    Next i

    ' 記号の取得
    For i = 2 To 22
        記号 = 記号 & ws参照.Cells(5, i).Value
    Next i

    ' 判別しづらい文字の取得
    For i = 2 To 9
        判別不可 = 判別不可 & ws参照.Cells(6, i).Value
    Next i

    ' ✅ チェックボックスの状態を取得
    k4 = (ws生成.Range("R4").Value = True) ' 大文字と小文字
    k5 = (ws生成.Range("R5").Value = True) ' 数字
    k6 = (ws生成.Range("R6").Value = True) ' 記号
    k7 = (ws生成.Range("R7").Value = True) ' 判別しづらい文字を省く

    ' パスワードの文字数取得
    パス長 = ws生成.Range("K8").Value
    If パス長 <= 0 Then
        MsgBox "パスワードの文字数を正しく入力してください。", vbExclamation, "エラー"
        Exit Sub
    End If
    
    ' 使用する文字セットを決定
    文字セット = 小文字 ' 小文字は必ず含める
    If k4 Then 文字セット = 文字セット & 大文字
    If k5 Then 文字セット = 文字セット & 数字: 必須数字 = True
    If k6 Then 文字セット = 文字セット & 記号: 必須記号 = True

    ' 判別しづらい文字を除外
    If k7 Then
        For i = 1 To Len(判別不可)
            文字セット = Replace(文字セット, Mid(判別不可, i, 1), "")
        Next i
    End If

    ' 3つのパスワードを生成
    Set rng = ws生成.Range("C10:C12")
    For Each cell In rng
        パスワード = ""

        ' まずランダムな文字を生成
        For j = 1 To パス長
            パスワード = パスワード & Mid(文字セット, Int(Rnd() * Len(文字セット)) + 1, 1)
        Next j

        ' ✅ 数字・記号を必ず含める処理
        If 必須数字 And (パスワード Like "*[0-9]*") = False Then
            Mid(パスワード, Int(Rnd() * パス長) + 1, 1) = Mid(数字, Int(Rnd() * Len(数字)) + 1, 1)
        End If
        If 必須記号 And (パスワード Like "*[!@#$%^&*()_+-=]*") = False Then
            Mid(パスワード, Int(Rnd() * パス長) + 1, 1) = Mid(記号, Int(Rnd() * Len(記号)) + 1, 1)
        End If

        ' セルにパスワードを設定
        cell.Value = パスワード
    Next cell

    MsgBox "パスワードを生成しました！", vbInformation, "完了"
End Sub

---

🔧 修正点

✅ チェックボックスのリンクセル R4:R7 を正しく参照
✅ チェックの有無に応じて 文字セット に必要な文字を追加
✅ パスワードをランダムに3つ生成し、C10:C12 に表示
✅ 「判別しづらい文字を省く」チェックがONなら、それらを除外

---

🎯 これでOK！

---

🔧パスワードを登録する

---

✅ さて、次は「3つの候補から1つを選ぶ」処理！

✅ H10:H12 のセルを選択すると「◎」がつく
✅ 選択すると他のセルの「◎」は消える（1か所のみ）
✅ 複数選択しようとすると「エラー表示」してリセット

---

💡 VBAコード（H10:H12の選択制御）

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("パスワード生成")
    
    ' 選択範囲が H10:H12 以外の場合は処理をしない
    If Intersect(Target, ws.Range("H10:H12")) Is Nothing Then Exit Sub

    ' 複数セル選択時の処理
    If Target.Cells.Count > 1 Then
        MsgBox "1つだけ選択してください！", vbExclamation, "エラー"
        Application.EnableEvents = False
        ws.Range("H10:H12").Value = "" ' ◎をリセット
        Application.EnableEvents = True
        Exit Sub
    End If

    ' ◎をリセットして、選択したセルに◎をつける
    Application.EnableEvents = False
    ws.Range("H10:H12").Value = ""
    Target.Value = "◎"
    Application.EnableEvents = True
End Sub

---

🔧 ここがポイント

✅ H10:H12 をクリックすると「◎」がつく
✅ 他の「◎」は消える（1つだけ選択可能）
✅ 複数セル選択したら「エラー表示」してリセット
✅ Application.EnableEvents = False を使って無限ループを防止！

---

🎯 これでOK！

---

🔜 次は「パスワードを管理シート＆登録リストに保存」

---

---

✅ VBAコード（パスワード登録 & 自動入力）

Sub パスワード登録()
    Dim ws生成 As Worksheet, ws管理 As Worksheet, ws素材 As Worksheet, wsリスト As Worksheet
    Dim 次の行 As Integer, 登録行 As Integer
    Dim パスワード As String, Webサービス名 As String
    Dim cell As Range

    ' シートの設定
    Set ws生成 = ThisWorkbook.Sheets("パスワード生成")
    Set ws管理 = ThisWorkbook.Sheets("パスワード管理")
    Set ws素材 = ThisWorkbook.Sheets("素材")
    Set wsリスト = ThisWorkbook.Sheets("登録リスト")

    ' 自動入力処理（パスワード生成シート → パスワード管理シート）
    ws管理.Range("A4").Value = ws生成.Range("B4").Value ' Webサービス名称
    ws管理.Range("A6").Value = ws生成.Range("B6").Value ' Web:URL
    ws管理.Range("A8").Value = ws生成.Range("B8").Value ' ID:メールアドレス
    
    ' "◎" があるH10:H12の行を検索し、対応するC列の値を取得
    For Each cell In ws生成.Range("H10:H12")
        If cell.Value = "◎" Then
            パスワード = ws生成.Cells(cell.Row, 3).Value ' C列のパスワードを取得
            Exit For
        End If
    Next cell

    ' パスワードが取得できなかった場合、処理を中断
    If パスワード = "" Then
        MsgBox "パスワードを選択してください！", vbExclamation, "エラー"
        Exit Sub
    End If

    ' 既存の登録をチェックし、次の登録位置を決定（8行ごとに追加）
    次の行 = 11 ' 最初の登録はA11（結合セル）
    Do While ws管理.Cells(次の行, 1).Value <> ""
        次の行 = 次の行 + 8 ' 8行ごとにチェック
    Loop

    ' 素材シートのA3:G10をコピーして、次の行に貼り付け
    ws素材.Range("A3:G10").Copy
    ws管理.Cells(次の行, 1).PasteSpecial Paste:=xlPasteAll

    ' Webサービス名、URL、ID、パスワードを入力
    ws管理.Cells(次の行 + 1, 1).Value = ws生成.Range("B4").Value ' Webサービス名称
    ws管理.Cells(次の行 + 3, 1).Value = ws生成.Range("B6").Value ' Web:URL
    ws管理.Cells(次の行 + 5, 1).Value = ws生成.Range("B8").Value ' ID:メールアドレス
    ws管理.Cells(次の行 + 7, 1).Value = パスワード ' パスワード

    ' Webサービス名を登録リストに追加（B列の空いているセルに順次追加）
    Webサービス名 = ws生成.Range("B4").Value
    If Webサービス名 <> "" Then
        登録行 = 1
        Do While wsリスト.Cells(登録行, 2).Value <> ""
            登録行 = 登録行 + 1
        Loop
        wsリスト.Cells(登録行, 2).Value = Webサービス名
    End If

    ' メッセージ表示
    MsgBox "パスワードを登録しました！", vbInformation, "完了"

    ' コピーの選択解除
    Application.CutCopyMode = False
End Sub

---

🔧 どんな動きをするのか？

1. 「パスワード生成」シートから必要なデータを取得
   • Webサービス名 / URL / ID / パスワード をコピー
   • パスワードは H10:H12 の「◎」を探して C列から取得
2. 「パスワード管理」シートに登録
   • 既に A10 に登録があるなら A12、A18 にもデータをずらして登録
   • 8行ごとに増やしていく（A10, A18, A26, A34,...）
3. 「登録リスト」シートにWebサービス名を追加
   • B1 → B2 → B3 ... と順番に追加
   • すでにある場合はその次の空きセルに追加

---

🎯 これで一発OK！

---

🔧登録リストから検索・ジャンプ機能

🔜 そしていよいよ最後！！

🔥 「登録リストから検索・ジャンプ機能」 🔥

---

✅ VBAコード（K3の値を検索 → ジャンプ）

Sub パスワード検索ジャンプ()
    Dim ws As Worksheet
    Dim 検索値 As String
    Dim rng As Range, foundCell As Range

    ' シートの設定（パスワード管理シート）
    Set ws = ThisWorkbook.Sheets("パスワード管理")

    ' K3（結合セル）の値を取得
    検索値 = ws.Range("K3").Value

    ' 検索値が空の場合は処理を終了
    If 検索値 = "" Then
        MsgBox "検索するWebサービス名を選択してください！", vbExclamation, "エラー"
        Exit Sub
    End If

    ' A11以降から検索
    Set rng = ws.Range("A11:A" & ws.Cells(Rows.Count, 1).End(xlUp).Row)
    Set foundCell = rng.Find(What:=検索値, LookAt:=xlWhole, MatchCase:=False)

    ' 該当データがない場合
    If foundCell Is Nothing Then
        MsgBox "該当するデータが見つかりません。", vbExclamation, "エラー"
        Exit Sub
    End If

    ' 一つ上のセルを選択
    ws.Activate
    ws.Cells(foundCell.Row - 1, foundCell.Column).Select

    ' 見出しの下に表示するためにスクロール調整
    Application.GoTo ws.Cells(foundCell.Row - 1, 1), Scroll:=True

    MsgBox "検索結果へ移動しました！", vbInformation, "完了"
End Sub

---

🔧 ここがポイント

✅ K3の値を取得し、A11以降から検索
✅ 完全一致（大文字小文字は無視）で検索
✅ 一致したセルの「一つ上」にジャンプ
✅ ジャンプ時に「見出しの下」に表示されるよう調整
✅ データが見つからなかったときはエラーメッセージ表示

---

🎯 これでOK！

---

🔍 あとは最終動作確認！

---

---

🎤 ジッピーからの締めの言葉

---

💡 こんなことを学べた！

✅ チェックボックスのVBA配置 & TRUE/FALSE のリンク設定
✅ パスワードを条件に応じてランダム生成するロジック
✅ 選択されたパスワードのみ「◎」をつけて登録できる仕組み
✅ 8行ごとに追加されるパスワード管理システム
✅ プルダウンから選択したサービスへ一発ジャンプする検索機能

---

🎯 ChatGPTをフル活用すると…

---

🙏 最後に…

おわりに