VBA에서 UUID 만드는 코드

excel vba generate guid uuid Code Example (codegrepper.com)

excel vba generate guid uuid Code Example

위 사이트 내용입니다.

 

Test코드만 추가해서 올렸습니다.

 

Sub Test()

Debug.Print GUID

end sub


Function GUID$(Optional lowercase As Boolean, Optional parens As Boolean)

    Dim k&, h$

    GUID = Space(36)

    For k = 1 To Len(GUID)

        Randomize

        Select Case k

            Case 9, 14, 19, 24: h = "-"

            Case 15:            h = "4"

            Case 20:            h = Hex(Rnd * 3 + 8)

            Case Else:          h = Hex(Rnd * 15)

        End Select

        Mid$(GUID, k, 1) = h

    Next

    If lowercase Then GUID = LCase$(GUID)

    If parens Then GUID = "{" & GUID & "}"

End Function