ExcelでGUIDを作成する方法は？

エクセルでセルにGUIDを追加する関数が必要です。stackoverflowのこの前の質問](https://stackoverflow.com/questions/7031347/how-can-i-generate-guids-in-excel)を見つけましたが、うまくいきません。それは次の関数を示唆している：

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

concatenateメソッドがうまくいかないので、とにかくconcatenateするために"&"という数字を使って試してみました。それでうまくいったように見えたのですが、2つ目のDEX2HEXブロックで不可解なエラーが発生します：DEX2HEX(RANDBETTOWN(0,65535),4)と表示されました。Excelの数式評価ツールは無効だと言っていますが、その理由が全く分かりません。何かいい方法はないでしょうか？

Community
編集された質問 23日 5月 2017 в 11:47
プログラミング
excel guid
20日 2月 2013 в 9:26
まだビューはありません
質問へのコメント (11)

Excelの最新バージョンでは、セミコロンではなくコンマを使用した構文があります。 他の人が都合の良いときにこの回答を投稿しているので、文字列を置き換える必要はありません。私たちは皆怠惰です。.. hrmp。.. 人間、そうです?

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

または、ギドが悲鳴を上げて叫ぶときに私が嫌いなら、私たちはこのように下層に行くことができます。

= LOWER(CONCATENATE(DEC2HEX(RANDBETWEEN(0,4294967295)、8)、 "-"、DEC2HEX(RANDBETWEEN(0,42949)、4)、 "-"、DEC2HEX(RANDBETWEEN) ( 0,4)

解説 (6)
 
=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)
)
Paul
編集した答え 10日 10月 2018 в 6:59
解説 (5)
ソリューション

v.2013 excel vbaのマクロコードで、以下の関数を使用しています。

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

これは、機能の問題では全くありません。

ちょっと調べてみましたが、問題はコピー＆ペーストにあります。これをコピーしてみてください：元の質問で投稿された RANDBETWEEN(0,65535) という文字列をコピーして、Hex Editorにペーストしてみると、65535の中に実際には2つの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)
解説 (2)
 
=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から取得。

解説 (7)

私にとっては、Excelスペイン語で正しいです。

=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)
)
解説 (0)

Dutch 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)
    )
)
Paul
編集した答え 10日 10月 2018 в 6:54
解説 (0)

いくつかのオプションを試し、Excelの新しいバージョン(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() '
解説 (0)

French 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を提供しませんが、これは私の現在のニーズにうまく機能します。

解説 (1)

ポーランド語バージョンの式:

=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)
)
Paul
編集した答え 10日 10月 2018 в 6:56
解説 (1)

German 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));
    )
)
Fredder
編集した答え 11日 10月 2018 в 4:51
解説 (2)

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)
)
Paul
編集した答え 10日 10月 2018 в 7:02
解説 (1)

イタリア語バージョン:

=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))
Paul
編集した答え 12日 10月 2018 в 8:07
解説 (1)