Cara Membuat QR Code di Excel Secara Otomatis untuk Kupon Undian

Setelah pada artikel sebelumnya kita membahas Cara Membuat Kode Unik Otomatis di Excel untuk Kupon Undian, kini kita masuk ke tahap berikutnya, yaitu cara membuat QR Code di Excel untuk setiap kode unik tersebut. Pembuatan QR Code otomatis sangat bermanfaat jika Anda ingin membuat kupon undian, kartu peserta, tiket acara, atau sistem identifikasi sederhana menggunakan Excel. Dengan bantuan sedikit VBA, Excel bisa menghasilkan ratusan bahkan ribuan QR Code tanpa harus membuatnya satu per satu secara manual.

Dalam artikel lanjutan ini, kita akan mempelajari secara lengkap cara membuat QR Code di Excel, cara kerja kode VBA yang digunakan, serta contoh hasil akhirnya.

Mengapa Perlu Membuat QR Code untuk Kupon Undian?

Sebelum masuk ke teknis, kita pahami dulu manfaatnya. QR Code pada kupon undian memberi beberapa keuntungan:

• Verifikasi kode lebih cepat dengan aplikasi pemindai.
• Meminimalkan kesalahan pembacaan kode unik.
• Dapat digunakan untuk sistem digital seperti input Google Form, website verifikasi, atau database Excel.
• Memberikan tampilan kupon yang lebih profesional.

Karena itu, mengetahui cara membuat QR Code di Excel menjadi keterampilan penting, terutama bagi admin sekolah, panitia undian, UMKM, atau penyelenggara event.

Penjelasan Kode VBA GenerateQRCode

Berikut kode VBA cara membuat QR Code di Excel yang digunakan:

Sub GenerateQRCode()
    Dim URL As String
    Dim QRLink As String
    Dim rng As Range
    Dim qrPic As Picture

    ' Loop setiap sel pada kolom C yang dipilih (mulai C3)
    For Each rng In Selection
        If rng.Column = 3 Then ' Hanya memproses kolom C
            If rng.Value <> "" Then
                URL = rng.Value
                QRLink = "https://api.qrserver.com/v1/create-qr-code/?size=200x200&data=" & URL

                ' Hapus QR Code lama di kolom D pada baris yang sama
                For Each qrPic In ActiveSheet.Pictures
                    If qrPic.Top = rng.Top And qrPic.Left = rng.Offset(0, 1).Left Then
                        qrPic.Delete
                    End If
                Next qrPic

                ' Sisipkan QR Code baru
                Set qrPic = ActiveSheet.Pictures.Insert(QRLink)
                With qrPic
                    .ShapeRange.LockAspectRatio = msoTrue
                    .ShapeRange.Height = 70
                    .ShapeRange.Width = 70
                    .Top = rng.Top
                    .Left = rng.Offset(0, 1).Left   ' Kolom D
                End With
            End If
        End If
    Next rng
End Sub

Mari kita jelaskan bagian demi bagian.

1. Bagian Deklarasi Variabel

Dim URL As String
Dim QRLink As String
Dim rng As Range
Dim qrPic As Picture

• URL → Menampung isi kode unik yang ada di sel kolom C.
• QRLink → Berisi link API generator QR Code berbasis online.
• rng → Objek sel yang sedang dibaca.
• qrPic → Objek gambar QR Code yang akan dimasukkan ke sheet.

2. Loop Setiap Sel yang Dipilih

For Each rng In Selection
    If rng.Column = 3 Then

Kode ini memastikan bahwa VBA hanya bekerja pada kolom C saja, tempat kode unik berada. Anda bisa memilih banyak baris sekaligus, dan macro akan memproses semuanya.

3. Membuat URL untuk QR Code

QRLink = "https://api.qrserver.com/v1/create-qr-code/?size=200x200&data=" & URL

Bagian inilah yang menghubungkan kode unik dengan API QR Server. API ini akan menghasilkan QR Code berbasis gambar PNG.

4. Menghapus QR Code Lama

For Each qrPic In ActiveSheet.Pictures
    If qrPic.Top = rng.Top And qrPic.Left = rng.Offset(0, 1).Left Then
        qrPic.Delete
    End If
Next qrPic

Tujuannya:

• Agar QR Code tidak menumpuk.
• Jika Anda mengubah kode unik, QR baru akan menggantikan yang lama.

5. Menyisipkan QR Code Baru

Set qrPic = ActiveSheet.Pictures.Insert(QRLink)

Excel akan mengunduh QR Code dari URL tadi lalu meletakkannya ke sheet.

Kemudian mengatur ukuran dan posisi:

.ShapeRange.LockAspectRatio = msoTrue
.ShapeRange.Height = 70
.ShapeRange.Width = 70
.Top = rng.Top
.Left = rng.Offset(0, 1).Left

• LockAspectRatio menjaga bentuk QR tetap persegi.
• Posisi ditetapkan pada kolom D (offset 1 kolom dari C).

Cara Menggunakan VBA GenerateQRCode di Excel

Anda dapat mengikuti langkah berikut untuk menerapkan cara membuat QR Code di Excel:

Langkah 1 — Siapkan Tabel Kode Unik

Contoh format tabel cara membuat QR Code di Excel:

Kode unik berada di kolom C mulai dari C3.

Langkah 2 — Aktifkan Developer Tab

Jika belum muncul:

1. File → Options
2. Customize Ribbon
3. Centang Developer
4. OK

Langkah 3 — Buka Visual Basic Editor

1. Klik Developer → Visual Basic
2. Pilih Insert → Module
3. Tempelkan kode VBA GenerateQRCode.

Langkah 4 — Pilih Area Kolom C

Blok misalnya:

C3:C100

Macro akan memproses semua kode unik dalam area tersebut.

Langkah 5 — Jalankan Macro

1. Developer → Macros
2. Pilih GenerateQRCode
3. Klik Run

Setelah macro berjalan, QR Code akan otomatis muncul pada kolom D setiap barisnya. Berikut tampilan hasil akhirnya:

Mengapa Metode Ini Adalah Cara Terbaik untuk Membuat QR Code di Excel?

Artikel ini tidak hanya mengajarkan cara membuat QR Code di Excel secara manual, tetapi memberikan solusi otomatis yang:

• Cepat untuk data banyak (ratusan kode).
• Rapi karena QR Code ditempatkan sesuai baris.
• Fleksibel menggunakan API gratis.
• Tidak memerlukan add-in tambahan.

Itulah mengapa teknik ini banyak digunakan oleh praktisi administrasi, data entry, guru, hingga pelaku bisnis kecil.

Penggunaan Lanjutan

Dengan sedikit modifikasi, metoda cara membuat QR Code di Excel ini dapat dikembangkan menjadi:

• Sistem tiket acara.
• Sistem presensi berbasis QR.
• Kupon diskon toko.
• Kartu peserta ujian.
• Kode QR untuk dokumen legalisasi.

Anda hanya perlu mengganti data pada kolom C sesuai kebutuhan.

Kesimpulan

Membuat QR Code secara otomatis di Excel ternyata sangat mudah dan efisien, terutama jika Anda sudah memiliki daftar kode unik seperti pada kupon undian, tiket, atau kartu peserta. Dengan menggunakan VBA sederhana, proses yang tadinya harus dilakukan secara manual dan memakan waktu kini dapat diselesaikan hanya dalam beberapa detik.

Melalui langkah-langkah cara membuat QR Code di Excel yang telah dijelaskan, Anda dapat menghasilkan ratusan QR Code secara otomatis, menempatkannya sesuai baris, serta memperbaruinya kapan saja tanpa kesulitan. Metode ini juga fleksibel karena memanfaatkan layanan API gratis, sehingga tidak memerlukan instalasi add-in tambahan.

Dengan kemampuan ini, Excel tidak hanya menjadi alat pengolah data, tetapi juga sebuah solusi lengkap untuk administrasi, verifikasi, dan manajemen kupon undian berbasis digital. Anda bisa mengembangkan sistem ini lebih jauh, seperti membuat tombol otomatis, membuat template kupon profesional, atau menggabungkannya dengan database peserta.

Download Template Gratis

Bagi Anda yang ingin mencoba teknik ini secara langsung, kami telah menyiapkan template gratis yang dirancang khusus untuk membantu Anda mempraktikkan Cara Membuat QR Code di Excel Secara Otomatis untuk Kupon Undian ini. File Excel bisa didownload melalui tautan berikut:

Atau juga jika ingin mempelajari langkah demi langkah secara visual, bisa kunjungi Youtube Channel Depot Excel. Di sana teman-teman akan melihat bagaimana rumusnya bekerja. Semoga bermanfaat!

—