🔧
GenerateUUID
ユーティリティUUID（汎用一意識別子）を生成する
🎬 デモGIF準備中
📖 使い方
- VBAエディタを開く（Alt + F11）
- モジュールを挿入（挿入 > モジュール）
- 下記VBAコードをコピー&ペースト
- ブック上で実行（Alt + F8 でマクロ選択）
💡 実行例： 実行するとUUIDが生成され、指定セルに書き込まれる
💻 VBAコード
' GenerateUUID
' -----------------
' Macro Name: GenerateUUID
' Description: UUID（汎用一意識別子）を生成する
' Parameters: なし
' Returns: なし
' Usage: 実行するとUUIDが生成され、指定セルに書き込まれる
' -----------------
Sub GenerateUUID()
Dim ws As Worksheet
Dim outputCell As String
Dim uuid As String
Dim i As Long
On Error GoTo ErrorHandler
uuid = ""
Randomize
For i = 1 To 32
Dim rndNum As Long
rndNum = Int(16 * Rnd)
Select Case rndNum
Case 0 To 9: uuid = uuid & CStr(rndNum)
Case 10: uuid = uuid & "a"
Case 11: uuid = uuid & "b"
Case 12: uuid = uuid & "c"
Case 13: uuid = uuid & "d"
Case 14: uuid = uuid & "e"
Case 15: uuid = uuid & "f"
End Select
If i = 8 Or i = 12 Or i = 16 Or i = 20 Then
uuid = uuid & "-"
End If
Next i
Set ws = ActiveSheet
outputCell = InputBox("出力先セルアドレスを入力:", "UUID生成", "A1")
If outputCell <> "" Then
ws.Range(outputCell).Value = uuid
ws.Range(outputCell).NumberFormat = "@"
End If
Dim clip As Object
Set clip = CreateObject("htmlfile").parentWindow.clipboardData
clip.SetData "text", uuid
MsgBox "UUID を生成しました:" & vbCrLf & uuid, vbInformation
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しました: " & Err.Description, vbCritical
End Sub