ExcelVBYazılım

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.

Ali UYSAL

IT alanında 16 sene önce donanım ile başlayan tecrübem, network ve sonrasında iş analizi, yazılım geliştirme ve proje yöneticiliği alanlarında devam etmiştir. Endüstriyel yazılımlar, sahadan veri toplama ve analizleri, otomatik etiketleme ve barkod sistemleri, otomatik tartım ve robotik konularında tecrübe sahibiyim. Sanayi 4.0 kapsamında imalat sanayinin dijital dönüşümünde çok fazla projenin hayata geçmesini sağladım.Open Source projelerle uzun süre ilgilendim, analiz ve implementasyonu konularında tecrübe edindim. Bunlar dışında hobi amacıyla başlasam da sonradan ürüne dönüşen, geliştirme kartları ile farklı çalışmalarım olmuştur.Raspberry Pi üzerinde yaptığım donanımsal ve yazılımsal işler ile çok farklı ürünler ortaya çıkartarak tecrübe edindim.

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

Başa dön tuşu

Reklam Engelleyici Algılandı

ÇözümPark Bilişim Portalı gönüllü bir organizasyon olup tek gelir kaynağı reklamlardır. Bu nedenle siteyi gezerken lütfen reklam engelleme eklentinizi kapatın veya Çözümpark web sitesi için izin tanımı yapın. Anlayışınız için teşekkürler.