I am CRAZYUCHOXS

Cara Mudah Membuat QR Code dengan Microsoft Excel

Cara Mudah Membuat QR Code dengan Microsoft Excel

Pada kesempatan kali ini saya akan berbagi tutorial tentang cara membuat QR Code menggunakan Microsoft Excel. Tutorial ini dapat digunakan pada Microsoft Excel 2016, 2019, dan Microsoft 365. Untuk versi Office di bawah 2016 belum saya coba karena sudah tidak lagi menggunakan versi tersebut.

Sebelum mulai membuat QR Code di Microsoft Excel, ada baiknya kita memahami terlebih dahulu apa itu QR Code.

Apa Itu QR Code?

QR Code atau Quick Response Code merupakan perkembangan dari kode batang (barcode). Jika barcode hanya memiliki bentuk satu dimensi, maka QR Code menggunakan sistem dua dimensi sehingga mampu menyimpan informasi lebih banyak, seperti:

  • Link website
  • Teks
  • Nomor telepon
  • Email
  • Data lainnya

Dengan menggunakan Microsoft Excel, kita dapat membuat QR Code secara otomatis menggunakan bantuan script VBA.

Langkah-Langkah Membuat QR Code di Excel

1. Buka Microsoft Excel

Pertama, buka aplikasi Microsoft Excel seperti biasa.

2. Aktifkan Menu Developer

Menu Developer digunakan untuk mengakses fitur Visual Basic.

  1. Klik menu File
  2. Pilih Options
  3. Klik Customize Ribbon
  4. Centang opsi Developer
  5. Klik OK

3. Aktifkan Macro di Excel

Macro perlu diaktifkan agar script VBA dapat berjalan.

  1. Klik File
  2. Pilih Options
  3. Klik Trust Center
  4. Pilih Trust Center Settings
  5. Masuk ke Macro Settings
  6. Pilih Enable All Macros
  7. Klik OK

4. Buka Visual Basic Editor

Selanjutnya buka editor VBA.

  1. Klik menu Developer
  2. Pilih Visual Basic
  3. Klik menu Insert
  4. Pilih Module

5. Masukkan Script VBA

Salin script berikut ke dalam module yang telah dibuat.

Function arnaim_QR(codetext As String) Dim URL As String, MyCell As Range Set MyCell = Application.Caller URL = "https://chart.googleapis.com/chart?chs=125x125&cht=qr&chl=" & codetext On Error Resume Next ActiveSheet.Pictures("My_QR_" & MyCell.Address(False, False)).Delete On Error GoTo 0 ActiveSheet.Pictures.Insert(URL).Select With Selection.ShapeRange(1) .PictureFormat.CropLeft = 15 .PictureFormat.CropRight = 15 .PictureFormat.CropTop = 15 .PictureFormat.CropBottom = 15 .Name = "My_QR_" & MyCell.Address(False, False) .Left = MyCell.Left + 5 .Top = MyCell.Top + 5 End With arnaim_QR = "" End Function

6. Simpan File Excel Sebagai Macro

Agar script dapat berjalan, file Excel harus disimpan dalam format macro.

  1. Klik File
  2. Pilih Save As
  3. Ubah tipe file menjadi Excel Macro-Enabled Workbook (*.xlsm)
  4. Simpan file

7. Membuat QR Code di Excel

Setelah semua langkah selesai, sekarang kamu bisa membuat QR Code.

  1. Buat satu kolom berisi data yang ingin dijadikan QR Code
  2. Buat satu kolom lagi untuk hasil QR Code
  3. Pada kolom QR Code gunakan rumus:
=arnaim_QR(A2)

Jika pada sel A2 terdapat teks atau link, maka Excel akan otomatis membuat QR Code pada sel yang berisi rumus tersebut.

Kesimpulan

Dengan menggunakan script VBA sederhana, Microsoft Excel dapat digunakan untuk membuat QR Code secara otomatis. Metode ini sangat berguna untuk membuat QR Code dalam jumlah banyak, misalnya untuk:

  • QR Code link website
  • QR Code data produk
  • QR Code absensi
  • QR Code inventaris barang

Tutorial ini dapat digunakan pada Microsoft Excel 2016, 2019, dan Microsoft 365.