Cara Membuar QR Code Masal Menggunakan Excel

Serba simpel dan mudah inginnya mudah jadi trendi masa kini. Banyak proses verifikasi dipermudah dengan cukup satu kali klik. Bahkan tanpa klik. Kode akses yang unik akirnya berkembang, termasuk pada QR Code atau Quick Respons Code.

Nah, kali ini saya ingin membedah cara membuat QR Code secara masal dan mudah, hanya menggunakan Excel aja.

Biar cepet liat aja tayangannya di bawah ini :

Kodenya silahkan copas di bawah sini.

Function Insert_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 'delete if there is prevoius one
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 + 25
 .Top = MyCell.Top + 5
End With
Insert_QR = "" ' or some text to be displayed behind code
End Function

Jika bermanfaan, jangan lupa tinggalkan komentar positifnya dan share yaa.

Selamat mecoba. :-)

Salam Inovasi Salam Implementasi

Sumber kode : http://tips-rumus-excel.blogspot.com/2018/11/membuat-qr-code-dan-barcode.html