Widget HTML Atas


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






No comments for "Cara Membuar QR Code Masal Menggunakan Excel"

Gratis! Buku Pemanfaatan Teknologi Berbasis Teknologi
Cocok dimiliki oleh para pendidik yang suka berinovasi di kelas
okeguru.com marketplace

Ads by Oke Guru
Buku 68 Model Pembelajaran Inovatif
Cocok dimiliki oleh para pendidik yang suka berinovasi di kelas
http://toko.okeguru.com

Ads by Oke Guru
Buku 68 Model Pembelajaran Inovatif
Cocok dimiliki oleh para pendidik yang suka berinovasi di kelas
http://toko.okeguru.com

Ads by Oke Guru

Berlangganan via Email