GUID Oluşturma (Excel)

[TRWE_2012]

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

Kod: Tümünü seç

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.

Kod: Tümünü seç

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



Kaynak SİTE :

Kod: Tümünü seç

https://www.cozumpark.com

TRWE_MMXII
YAZILIM EDİTÖRÜ (Alaydan Yetişme...!)
REASMCODERİNG