Skip to content

Instantly share code, notes, and snippets.

@msubel
Created July 14, 2015 12:37
Show Gist options
  • Save msubel/9c70951a20efe5c72195 to your computer and use it in GitHub Desktop.
Save msubel/9c70951a20efe5c72195 to your computer and use it in GitHub Desktop.
An Excel Fromula to generate a UUID v4
=LOWER(CONCATENATE(DEC2HEX(RANDBETWEEN(0;POWER(16;8));8);"-";DEC2HEX(RANDBETWEEN(0;POWER(16;4));4);"-";"4";DEC2HEX(RANDBETWEEN(0;POWER(16;3));3);"-";DEC2HEX(RANDBETWEEN(8;11));DEC2HEX(RANDBETWEEN(0;POWER(16;3));3);"-";DEC2HEX(RANDBETWEEN(0;POWER(16;8));8);DEC2HEX(RANDBETWEEN(0;POWER(16;4));4)))
@vcma
Copy link

vcma commented Sep 3, 2025

Function GerarUUID() As String
Dim i As Integer
Dim s As String
Dim caracteres As String
caracteres = "0123456789abcdef"

Randomize
For i = 1 To 36
    Select Case i
        Case 9, 14, 19, 24
            s = s & "-"
        Case 15
            s = s & "4" ' versão do UUID
        Case 20
            s = s & Mid("89ab", Int(Rnd() * 4) + 1, 1) ' variante
        Case Else
            s = s & Mid(caracteres, Int(Rnd() * Len(caracteres)) + 1, 1)
    End Select
Next i

GerarUUID = s

End Function

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment