Hai sobat, kali ini saya akan coba menjelaskan bagaimana membuat QR Code dengan menggunakan Microsoft Excel pada menu Developer. dengan menggunakan sedikit pengubahan setelan pada Options Microsoft Excel, sobat akan sangat dengan mudah dan simpel membuat QR Code. baik satu data maupun gabungan data yang terdapat pada cell-cell tertentu.
berikut cara nya :
1. buka Aplikasi Microsoft Excel, dan pastikan sudah ada menu DEVELOPER.
2. jika belum ada menu tersebut silahkan tampilkan dengan cara : Klik menu FILE, kemudian pilih Options lalu masuk ke Customize Ribbon. centang menu Developer dan klik Ok.
3. Klik menu Developer lalu pilih icon Visual Basic.
4. Setelah muncul tampilan Visual Basic, klik menu Insert lalu pilih Module.
5. Pada tampilan lembar kerja Module, copy dan paste script berikut :
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 '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 + 5
.Top = MyCell.Top + 5
End With
arnaim_QR = "" ' or some text to be displayed behind code
End Function
6. Simpan module, dan pilih menu Excel Macro - Enable
7. Close Visual Basic dan kembali ke Excel
8. Buat data pada Cell A1 = NAMA dan pada cell B1= Kode QR kemudian isi data nama dengan nama sembarang.
9. pada Cell Kode QR, ketik rumus =arnaim_QR(A1) lalu enter. nanti otomatis QR Code akan muncul dengan sendirinya. dengan catatan posisi komputer harus dalam keadaan terhubung ke internet.
demikian semoga bermanfaat.
Tidak ada komentar:
Posting Komentar