Bu dosya, B7 hücresinde açılan listeden seçilen metni QR kod görseline dönüştürür. Dönüştürme işlemi VBA ile yazılmış URL_QRCode_SERIES adlı kullanıcı tanımlı fonksiyonla yapılır; oluşan kod sayfaya resim olarak eklenir. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.
Formülde sırasıyla görsel adı (qr_code_1), QR koda çevrilecek metin (B7), boyut ve hücrede görünecek metin (qrCode) verilir. Boyut boş bırakıldığı için görsel varsayılan 150 piksel boyutunda oluşturulur.
Dosyanın içeriği
Dosyada tek sayfa vardır ve veriler B2:B11 aralığında yer alır.- B sütununun ilk satırlarında metin girişi için alanlar bulunur.
- B7 hücresinde açılan liste (veri doğrulama) vardır; QR kodu yapılacak değer buradan seçilir.
- B11 hücresinde fonksiyon çağrısı bulunur; QR kod görseli bu hücrenin hemen sağındaki hücrenin üzerine yerleştirilir.
Kullanılan formüller
B11 hücresindeki formül şöyledir:=URL_QRCode_SERIES("qr_code_1";B7;;"qrCode")
Makrolar
Dosyada GoogleAPI adlı bir modül ve iki fonksiyon bulunur.- URL_QRCode_SERIES: Önce aynı adlı eski QR görselini siler, ardından seçilen metne göre bir QuickChart adresi oluşturur ve bu adresten alınan görseli çağrıldığı hücrenin sağındaki hücreye ekler. Metin boşsa #DEĞER! (#VALUE!), görsel alınamazsa #YOK (#N/A) hatası döner.
- UTF8_URL_Encode: Metindeki harf ve rakam dışındaki karakterleri adres içinde kullanılabilecek %XX biçimine çevirir.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- B sütunundaki giriş alanlarına metinleri yazın.
- B7 hücresindeki listeden QR koda çevrilecek değeri seçin.
- B11 hücresinin sağında oluşan QR kodu kontrol edin.
- Başka bir değer seçtiğinizde kod otomatik olarak yenilenir.