Excel에서 GUID를 만드는 방법은 무엇입니까?

programing

Excel에서 GUID를 만드는 방법은 무엇입니까?

bestprogram 2023. 5. 2. 23:03

Excel에서 GUID를 만드는 방법은 무엇입니까?

엑셀의 셀에 GUID를 추가하는 기능이 필요합니다.스택 오버플로에 대한 이전 질문을 찾았지만 작동하지 않습니다.다음 기능을 제안합니다.

=CONCATENATE(DEC2HEX(RANDBETWEEN(0,4294967295),8),"-",DEC2HEX(RANDBETWEEN(0,6553‌5),4),"-"
    ,DEC2HEX(RANDBETWEEN(16384,20479),4),"-",DEC2HEX(RANDBETWEEN(32768,49151‌),4),"-"
    ,DEC2HEX(RANDBETWEEN(0,65535),4),DEC2HEX(RANDBETWEEN(0,4294967295),8))

저는 연결 방법을 사용할 수 없었기 때문에 "&" 그림을 사용하여 연결을 시도했습니다.효과가 있는 것 같았지만 두 번째는 설명할 수 없는 오류가 발생합니다.DEX2HEX블록:DEC2HEX(RANDBETWEEN(0,6553‌5),4)엑셀 공식 평가자가 무효라고 하는데, 이유를 전혀 알 수가 없는 것 같습니다.아이디어 있어요?

현대 버전의 Excel에는 세미콜론이 아닌 쉼표로 된 구문이 있습니다.저는 다른 사람들의 편의를 위해 이 답변을 게시합니다. 그래서 그들이 줄을 바꿀 필요가 없기 때문입니다. 우리는 모두 게으릅니다...hrmp...인간, 맞죠?

= 연결(DEC2HEX(RAND BETHINE(0,4294967295),8),-,DEC2HEX(RAND BETHINE(0,65535),4),-,DEC2HEX(RAND BETHINE(0,65535),4),-,-,DEC2HEX(DEC2HINE(0,294,65549),0655(0655),0),0),8(DEC2HINE),8(DEC2HINE),DEC2

아니면, 가이드가 소리지르고 소리지르고 당신이 싫다면, 우리는 이렇게 낮은 케이스로 갈 수 있습니다.

= 하부(DEC2HEX(RAND BETHINE(0,4294967295),8),-,DEC2HEX(RAND BETHINE(0,65535),4),-,DEC2HEX(RAND BETHINE(0,65535),4),-,-,DEC2HEX(DEC2HEX(0,294),0294(0654),8HINE(0654),8HINE),DEC2HINE(DEC2HINE),DEC2

v.2013 excel vba 매크로 코드에서 다음 기능을 사용하고 있습니다.

Public Function GetGUID() As String 
    GetGUID = Mid$(CreateObject("Scriptlet.TypeLib").GUID, 2, 36) 
End Function

=CONCATENATE(
    DEC2HEX(RANDBETWEEN(0;4294967295);8);"-";
    DEC2HEX(RANDBETWEEN(0;42949);4);"-";
    DEC2HEX(RANDBETWEEN(0;42949);4);"-";
    DEC2HEX(RANDBETWEEN(0;42949);4);"-";
    DEC2HEX(RANDBETWEEN(0;4294967295);8);
    DEC2HEX(RANDBETWEEN(0;42949);4)
)

=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)
    )
)

git@mobilitymaster에서 가져왔습니다.

이것은 기능에 전혀 문제가 되지 않습니다.

조금 파는데 시간이 걸렸지만 복사해서 붙여넣기가 문제입니다.복사해 보십시오.RANDBETWEEN(0,6553‌5)원래 질문에 게시된 문자열을 16진수 편집기에 붙여넣으면 실제로 65535에 두 개의 null 문자가 있음을 알 수 있습니다.

00000000  52 41 4E 44 42 45 54 57 45 45 4E 28 30 2C 36 35  RANDBETWEEN(0,65
00000010  35 33 00 00 35 29                                53‌..5)

저는 엑셀 스페인어로 맞습니다.

=CONCATENAR(
DEC.A.HEX(ALEATORIO.ENTRE(0,4294967295),8),"-",
DEC.A.HEX(ALEATORIO.ENTRE(0,65535),4),"-",
DEC.A.HEX(ALEATORIO.ENTRE(16384,20479),4),"-",
DEC.A.HEX(ALEATORIO.ENTRE(32768,49151),4),"-",
DEC.A.HEX(ALEATORIO.ENTRE(0,65535),4),
DEC.A.HEX(ALEATORIO.ENTRE(0,4294967295),8)
)

네덜란드어 Excel 공식:

=KLEINE.LETTERS(
    TEKST.SAMENVOEGEN(
        DEC.N.HEX(ASELECTTUSSEN(0;MACHT(16;8));8);"-";
        DEC.N.HEX(ASELECTTUSSEN(0;MACHT(16;4));4);"-";"4";
        DEC.N.HEX(ASELECTTUSSEN(0;MACHT(16;3));3);"-";
        DEC.N.HEX(ASELECTTUSSEN(8;11));
        DEC.N.HEX(ASELECTTUSSEN(0;MACHT(16;3));3);"-";
        DEC.N.HEX(ASELECTTUSSEN(0;MACHT(16;8));8);
        DEC.N.HEX(ASELECTTUSSEN(0;MACHT(16;4));4)
    )
)

프랑스어 Excel 공식:

=CONCATENER(
DECHEX(ALEA.ENTRE.BORNES(0;4294967295);8);"-";
DECHEX(ALEA.ENTRE.BORNES(0;42949);4);"-";
DECHEX(ALEA.ENTRE.BORNES(0;42949);4);"-";
DECHEX(ALEA.ENTRE.BORNES(0;42949);4);"-";
DECHEX(ALEA.ENTRE.BORNES(0;4294967295);8);
DECHEX(ALEA.ENTRE.BORNES(0;42949);4))

Josh M이 언급한 바와 같이, 이것은 호환되는 GUID를 제공하지 않지만, 이것은 나의 현재 요구에 잘 맞습니다.

폴란드어 버전의 공식:

=ZŁĄCZ.TEKSTY(
    DZIES.NA.SZESN(LOS.ZAKR(0;4294967295);8);"-";
    DZIES.NA.SZESN(LOS.ZAKR(0;42949);4);"-";
    DZIES.NA.SZESN(LOS.ZAKR(0;42949);4);"-";
    DZIES.NA.SZESN(LOS.ZAKR(0;42949);4);"-";
    DZIES.NA.SZESN(LOS.ZAKR(0;4294967295);8);
    DZIES.NA.SZESN(LOS.ZAKR(0;42949);4)
)

독일어 Excel 공식:

=KLEIN(
    VERKETTEN(
        DEZINHEX(ZUFALLSBEREICH(0;POTENZ(16;8));8);"-";
        DEZINHEX(ZUFALLSBEREICH(0;POTENZ(16;4));4);"-";"4";
        DEZINHEX(ZUFALLSBEREICH(0;POTENZ(16;3));3);"-";
        DEZINHEX(ZUFALLSBEREICH(8;11));
        DEZINHEX(ZUFALLSBEREICH(0;POTENZ(16;3));3);"-";
        DEZINHEX(ZUFALLSBEREICH(0;POTENZ(16;8));8);
        DEZINHEX(ZUFALLSBEREICH(0;POTENZ(16;4));
    )
)

여러 옵션을 시도하고 엑셀의 새로운 버전(2016)으로 다양한 문제에 부딪힌 후 MS에서 매력적으로 작동하는 이 게시물을 우연히 발견했습니다.danwagner.co 의 게시물에 있는 코드를 사용하여 비트를 향상시켰습니다.

Private Declare PtrSafe Function CoCreateGuid Lib "ole32.dll" (Guid As GUID_TYPE) As LongPtr

Private Declare PtrSafe Function StringFromGUID2 Lib "ole32.dll" (Guid As GUID_TYPE, ByVal lpStrGuid As LongPtr, ByVal cbMax As Long) As LongPtr

Function CreateGuidString(Optional IncludeHyphens As Boolean = True, Optional IncludeBraces As Boolean = False)
    Dim Guid As GUID_TYPE
    Dim strGuid As String
    Dim retValue As LongPtr

    Const guidLength As Long = 39 'registry GUID format with null terminator {xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx}

    retValue = CoCreateGuid(Guid)

    If retValue = 0 Then
        strGuid = String$(guidLength, vbNullChar)
        retValue = StringFromGUID2(Guid, StrPtr(strGuid), guidLength)

        If retValue = guidLength Then
            '   valid GUID as a string
            '   remove them from the GUID
            If Not IncludeHyphens Then
                strGuid = Replace(strGuid, "-", vbNullString, Compare:=vbTextCompare)
            End If

            '   If IncludeBraces is switched from the default False to True,
            '   leave those curly braces be!
            If Not IncludeBraces Then
                strGuid = Replace(strGuid, "{", vbNullString, Compare:=vbTextCompare)
                strGuid = Replace(strGuid, "}", vbNullString, Compare:=vbTextCompare)
            End If


            CreateGuidString = strGuid
        End If
    End If

End Function


Public Sub TestCreateGUID()
    Dim Guid As String
    Guid = CreateGuidString() '<~ default
    Debug.Print Guid
End Sub

원본 MS 게시물에는 다음과 같은 추가 옵션이 있습니다. https://answers.microsoft.com/en-us/msoffice/forum/msoffice_excel-msoffice_custom-mso_2010/guid-run-time-error-70-permission-denied/c9ee4076-98af-4032-bc87-40ad7aa7cb38

Ken Thompson이 맞아요! - 저도 이 방법으로 작동하지만(2016년 제외), 유형 정의 GUID_TYPE은 건너뛰기 때문에 전체 스크립트는 다음과 같습니다.

Private Type GUID_TYPE
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(7) As Byte
End Type

Private Declare PtrSafe Function CoCreateGuid Lib "ole32.dll" (Guid As GUID_TYPE) As LongPtr

Private Declare PtrSafe Function StringFromGUID2 Lib "ole32.dll" (Guid As GUID_TYPE, ByVal lpStrGuid As LongPtr, ByVal cbMax As Long) As LongPtr

Function CreateGuidString(Optional IncludeHyphens As Boolean = True, Optional IncludeBraces As Boolean = False)
    Dim Guid As GUID_TYPE
    Dim strGuid As String
    Dim retValue As LongPtr

    Const guidLength As Long = 39 'registry GUID format with null terminator {xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx}

    retValue = CoCreateGuid(Guid)

    If retValue = 0 Then
        strGuid = String$(guidLength, vbNullChar)
        retValue = StringFromGUID2(Guid, StrPtr(strGuid), guidLength)

        If retValue = guidLength Then
            '   valid GUID as a string
            '   remove them from the GUID
            If Not IncludeHyphens Then
                strGuid = Replace(strGuid, "-", vbNullString, Compare:=vbTextCompare)
            End If

            '   If IncludeBraces is switched from the default False to True,
            '   leave those curly braces be!
            If Not IncludeBraces Then
                strGuid = Replace(strGuid, "{", vbNullString, Compare:=vbTextCompare)
                strGuid = Replace(strGuid, "}", vbNullString, Compare:=vbTextCompare)
            End If


            CreateGuidString = strGuid
        End If
    End If

End Function

ESP:

=CONCATENAR(
    DEC.A.HEX(ALEATORIO.ENTRE(0;4294967295);8);"-"; 
    DEC.A.HEX(ALEATORIO.ENTRE(0;42949);4);"-"; 
    DEC.A.HEX(ALEATORIO.ENTRE(0;42949);4);"-"; 
    DEC.A.HEX(ALEATORIO.ENTRE(0;42949);4);"-"; 
    DEC.A.HEX(ALEATORIO.ENTRE(0;4294967295);8); 
    DEC.A.HEX(ALEATORIO.ENTRE(0;42949);4)
)

이탈리아어 버전:

=CONCATENA(
    DECIMALE.HEX(CASUALE.TRA(0;4294967295);8);"-";
    DECIMALE.HEX(CASUALE.TRA(0;42949);4);"-";
    DECIMALE.HEX(CASUALE.TRA(0;42949);4);"-";
    DECIMALE.HEX(CASUALE.TRA(0;42949);4);"-";
    DECIMALE.HEX(CASUALE.TRA(0;4294967295);8);
    DECIMALE.HEX(CASUALE.TRA(0;42949);4))

언급URL : https://stackoverflow.com/questions/14990236/how-to-create-a-guid-in-excel

'programing' 카테고리의 다른 글

여러 개의 키로 "구별"을 효율적으로 수행하는 방법은 무엇입니까? (0)	2023.05.02
중첩된 딕트의 Python 데이터 클래스 (0)	2023.05.02
SQL 서버 백업을 Azure SQL 데이터베이스로 복원 (0)	2023.05.02
다차원 배열에서 Ubound를 사용한 VBA (0)	2023.05.02
Mac OS X에서 프로젝트를 컴파일할 때 시스템 키체인을 사용하려고 합니다. (0)	2023.05.02

현재글Excel에서 GUID를 만드는 방법은 무엇입니까?

각종 프로그래밍 정보를 다루는 블로그입니다.

sql-server, mariadb, Excel, mongodb, jquery, Angular, ASP.NET, Oracle, angularJS, Android, json, reactjs, python, spring-boot, MYSQL, c, bash, Wordpress, git, ajax,

Today :
Yesterday :

bestprogram

Excel에서 GUID를 만드는 방법은 무엇입니까?

Excel에서 GUID를 만드는 방법은 무엇입니까?

'programing' 카테고리의 다른 글

'programing'의 다른글

티스토리툴바

« 2024/11 »
일	월	화	수	목	금	토
					1	2
3	4	5	6	7	8	9
10	11	12	13	14	15	16
17	18	19	20	21	22	23
24	25	26	27	28	29	30

Excel에서 GUID를 만드는 방법은 무엇입니까?

Excel에서 GUID를 만드는 방법은 무엇입니까?

'programing' 카테고리의 다른 글

'programing'의 다른글

관련글

티스토리툴바