Cara Membuat QR Code di Microsoft Excel (Offline dan Online)

Kode QR atau QR code saat ini sudah banyak digunakan dalam berbagai keperluan. Salah satunya alasan kamu berada disini, yaitu QR Code untuk digunakan didalam Excel.

Istilah QR atau Quick Response adalah sebuah evolusi dari kode Batang yang sebelumnya hanya 1 dimensi menjadi kode 2 dimensi. Penggunaan QR ini menjadi lazim digunakan karena kemampuan QR code yang dapat menampung lebih banyak data dibanding kode batang.

Kode QR adalah suatu jenis kode matriks atau kode batang dua dimensi yang dikembangkan oleh Denso Wave. Denso Corporation merupakan sebuah perusahaan Jepang dan dipublikasikan pada tahun 1994.

Fungsionalitas utama dari QR code ini adalah dapat dengan mudah dibaca oleh pemindai QR. Kode QR sendiri merupakan singkatan dari quick response atau respons cepat. Sesuai dengan tujuannya yaitu untuk menyampaikan informasi dengan cepat dan mendapatkan respons yang cepat pula.

Penggunaan QR Code

Kode QR memiliki kapasitas tinggi dalam data pengkodean, yaitu mampu menyimpan semua jenis data. Seperti menyimpan data jenis numerik sampai dengan 7.089 karakter, data alphanumerik sampai dengan 4.296 karakter, kode binari sampai dengan 2.844 byte, dan huruf kanji sampai dengan 1.817 karakter.

Selain itu kode QR memiliki tampilan yang lebih kecil daripada kode batang. Hal ini dikarenakan kode QR mampu menampung data secara horizontal dan vertikal. Secara otomatis ukuran dari tampilannya gambar kode QR bisa hanya seperspuluh dari ukuran sebuah kode batang.

Kode QR juga tahan terhadap kerusakan, sebab kode QR mampu memperbaiki kesalahan sampai dengan 30%. Oleh karena itu, walaupun sebagian simbol kode QR kotor ataupun rusak, data tetap dapat disimpan dan dibaca.

Tiga tanda berbentuk persegi di tiga sudut memiliki fungsi agar simbol dapat dibaca dengan hasil yang sama dari sudut manapun.

Membuat QR Code di Excel (Versi Offline)

Untuk membuat QR Code di Microsoft Excel kita memerlukan sebuah bantuan dari Visual Basic For Application (VBA). Kita bisa membuatnya sendiri dengan bahasa pemrograman tersebut atau kita bisa manfaatkan addin yang sudah ada.

Sengaja Excelnoob membuat sebuah addin QR untuk memudahkan para pembaca dalam pembuatan QR Code Ini. Link download Addin bisa didownload dibawah ini.

Download Addin

Alternatif Link Download : Donwload

Jika sudah didownload dan di tambahkan ke dalam Excel, untuk cara penggunaanya bisa di lihat pada gambar dibawah ini

membuat QR Code di Excel

Parameter yg digunakan dalam fungsi Add in diatas adalah

=EncodeBarcode(CELL("SHEET");CELL("ADDRESS");A2;51;1;0;2)

' Keterangan :
' CELL("SHEET");CELL("ADDRESS") => ini biarkan seperti ini
' A2 => Cell dimana isi text yang akan diubah ke QR
' 51 => untuk QR Code 
         0-Code128,
         1-EAN,
         2-2of5I,
         3-Code39,
         50-Datamatrix,
         51-QR Code
' 1 => Output ( 1 Gambar | 0 Font)
' 0 => Parameter
' 2 => Zone ID

Selain menggunakan Add-in, kita juga bisa membuat sendiri kode QR tersebut dengan VBA dengan bantuan API agar kodenya tidak terlalu panjang.

Membuat QR Code Dengan Menggunakan API (Versi Online)

Cara kedua adalah dengan Menggunakan API ( Application Programing Interface) penyedia layanan QR Code, kekurangannya adalah dengan menggunakan API, Kita harus online untuk mendapatakn QR Code nya. sehingga Fungsi ini tidak akan berfungsi jika dalam keadaan Offline.

Ada beberapa penyedia API Gratis untuk membuat QR Code diantaranya.

1. API QR Code Dari Google Chart

Yang Pertama memanfaatkan API dari Google Chart, untuk membuat UDF QR Code dengan API Google Chart kamu bisa mulai dengan masuk ke Visual Basic Editor (Alt + F11) kemudian buat Standart Module dan Pastekan Code dibawah ini.

 Visual Basic Editor 
Function Buat_QR(codetext As String)
Rem Auth:Excelnoob.com
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

'Hapus jika sebelumnya sudah ada QRCode
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 = "" ' atau boleh masukan Text
End Function

2. API QR Code Dari QRServer

Penyedia layanan API gratis lainnya adalah dari qrserver.com. Kelebihan yang ditawarkan QRServer adalah kita bisa memberikan Warna Background dan juga warna kode QR .

Untuk cara membuatnya, sama seperti biasa, kamu bisa masuk ke Visual Basic Editor (Alt + F11) kemudian buatlah sebuah Standar Module, kemudian Pastekan Code berikut ini.

 Visual Basic Editor 
Function Buat_QR2(data As String, color As String, bgcolor As String, size As Integer)
Rem Auth : Excelnoob.com
Dim URL As String, MyCell As Range
On Error Resume Next

Set MyCell = Application.Caller
URL = "https://api.qrserver.com/v1/create-qr-code/?" + "size=" + _
    Trim(Str(size)) + "x" + Trim(Str(size)) + "&color=" + color + _
    "&bgcolor=" + bgcolor + "&data=" + data
     
'Hapus jika sebelumnya sudah ada QRCode
ActiveSheet.Pictures("MyQR_" & MyCell.Address(False, False)).Delete
On Error GoTo 0

ActiveSheet.Pictures.Insert(URL).Select
With Selection.ShapeRange(1)
    .Name = "MyQR_" & MyCell.Address(False, False)
    .Left = MyCell.Left + 25
    .Top = MyCell.Top + 5
End With
Buat_QR2 = ""
End Function

Berikut adalah contoh penggunaan untuk script diatas.

Demikianlah berbagai cara membuat QR Code di dalam Excel, bisa menggunakan versi Online maupun Offline. Silahkan sesuaikan dengan kebutuhan dan kondisi masing-masing.

Be the first to comment

Leave a Reply

Your email address will not be published.


*