Excel’de GUID Nasıl Oluşturulur?

Merhabalar;
Bu yazımda Excel’de nasıl GUID oluştururuz bunu anlatacağım, Excel bir çok konuda hızlı çözümler için hep elimizin altında, öyle yoğun ve öyle noktalarda kullanılabiliyor ki bazen hayret etmemek elimizde değil. Örneğin MRP alternatifi olarak Excel kullananlardan Muhasebesini Excel ile tutana kadar çok geniş bir alana sahip 🙂

Şimdi, bazı durumlar da Excel’de GUID oluşturarak aktarmak gerektiğin de bunu yapabilmek için biraz VB yazacağız.

Yeni bir excel sayfası açarak ALT+F11 tuşluyoruz, böylece Visual Basic for Application ekranı açılacak.

Üst menüden Insert ve Module diyerek açılan ekrana aşağıda ki kodları yazıyoruz.

Declare Function CoCreateGuid Lib "ole32" (ByRef GUID As Byte) As Long

Public Function GenerateGUID() As String
    Dim ID(0 To 15) As Byte
    Dim N As Long
    Dim GUID As String
    Dim Res As Long
    Res = CoCreateGuid(ID(0))

    For N = 0 To 15
        GUID = GUID & IIf(ID(N) < 16, "0", "") & Hex$(ID(N))
        If Len(GUID) = 8 Or Len(GUID) = 13 Or Len(GUID) = 18 Or Len(GUID) = 23 Then
            GUID = GUID & "-"
        End If
    Next N
    GenerateGUID = GUID
End Function

Dosyamızı Makro içerebilir formatta (.xlsm) kaydetmemiz gerekiyor.

Daha sonra Excel arayüzümüze gelerek =GenerateGUID() yazıyoruz

ve işte sonuç, GUID oluşturduk.