Cara Membuat dan Generate QR Code Mudah di Excel

Pada tutorial kali ini saya praktekkan langsung menggunakan excel versi 2019 dengan bahasa yang terinstall bahasa inggris. Karena menurut saya, istilah bahasa Inggris lebih mudah dipahami daripada di Indonesia.

Jadi, jangan khawatir dan bingung. . . .

Simak langkah-langkahnya dengan teliti ya…

1. Buka Microsoft Excel

Ini yang paling penting ya harus buka MS Excel dulu, hehe…

2. Aktifkan Developer Mode

Secara default, fungsi membuat QR Code di Excel belum ada. Karena itu kita perlu membuat sebuah fungsi baru terlebih dahulu. Nah, untuk membuat fungsi baru, diperlukan mode developer.

3. Aktifkan All Macro

Click File > More > Options > Trust Center > Trust Center Setting .. > Macro Setting > Check Enable All Macros > OK

4. Pilih Developer dan Mode Visual Basic

Arahkan kursor ke bilah menu dan klik menu visual basic.

Ingat, menu Developer seperti gambar di bawah ini hanya akan muncul jika Kamu sudah melakukan langkah-langkah untuk memunculkan fungsi baru seperti yang sudah dijelaskan di atas.

5. Masuk ke Jendela Visual Basic

Setelah Kamu klik Visual Basic, maka Kamu akan melihat jendela baru/tampilan baru yang khusus menampilkan visual basic.

Klik Menu Insert > Pilih Module

6. Tempel kode ke dalam Module

Setelah masuk ke menu module, Kamu hanya perlu menyalin dan menempelkan kode di bawah ini.

Function Buat_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("MyQR_" & 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 = "MyQR_" & MyCell.Address(False, False)
.Left = MyCell.Left + 25
.Top = MyCell.Top + 5
End With
Buat_QR = "" ' Masukkan text sebagai optional
End Function

Contoh setelah meng-copy paste formula atau kode di atas.

7. Simpan Sebagai Excel-Makro Workbook

Langkah selanjutnya simpan dalam format “Excel-Macro Workbook”. Ingat, pastikan formatnya sesuai petunjuk. Kamu bisa menyimpannya di folder mana saja yang sudah disiapkan.

Setelah mencapai langkah ini, Kamu dapat menutup jendela visual basic, dan melanjutkan ke langkah berikutnya.

8. Membuat QR Code di Excel yang Bisa di Scan

Langkah selanjutnya adalah menerapkan fungsi yang kita buat tadi untuk membuat QR Code di Excel.

Kamu perlu membuat tabel untuk menuliskan data yang hendak dibuat QR Code, dan untuk menampilkan hasil.

Contoh Seperti ini :

Catatan:

1. Pada kolom Input data: Kamu dapat menulis apa saja, mulai dari url, huruf, angka, atau kombinasi keduanya. Kamu dapat menulis hingga 4289 karakter di kolom input data, sesuai dengan penjelasan di awal artikel.

2. Untuk menampilkan gambar QR Code seperti pada kolom hasil, Kamu hanya perlu memanggil fungsi yang telah dibuat di Visual Basic sebelumnya. Yaitu dengan mengetik ” Buat_QR(D6)” D6 itu hanya contoh saja lho, harus disesuaikan dengan sel tempat Kamu menulis data. Jika di sel A5, tulis sebagai = Buat_QR(A5).

Kamu bisa memodifikasi formula untuk memanggil QR dengan Make_QR atau Contoh_QR, dengan cara mengganti Buat_QR pada kode yang ada di langkah nomor 6.

sumber Gambar: https://hotelier.id/