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.
