Tempatnya Download Software Gratis,Berbagi Ilmu IT,Android,Tips dan Trik Gratis

Jumat, 07 Agustus 2020

Cara Mudah Membuat QR Code dengan Microsoft Excel

 Cara Mudah Membuat Qr Code dengan Microsoft Excel 

Pada kesempatan kali ini, Assyifacomp akan berbagi tutorial cara mudah membuat Qr Code di Microsoft Excel, Versi 2010 atau yang lebih tinggi dan Office 365.
Untuk Microsoft Office versi 2010 ke bawah belum Assyifacomp coba, berhubung Office yang Assyifcomp gunakan Office 2010.

Oke, langsung saja Assyifacomp mulai.

Kode Qr atau yang biasa disebut dengan Qr Code merupakan perubahan kode batang dari 1 dimensi menjadi 2 dimensi.

Berikut ini langkah - langkahnya
Cara Mudah Membuat QR Code dengan Microsoft Excel


  • Buka Aplikasi Microsoft Excel
  • Aktifkan menu developer atau pengembang dengan klik FILE > Opsi > Custumize Riboon > Centang Developer > Ok 
  • Aktifkan All Macro dengan cara Klik File > Opsi > Trust Centern > Trust Center Setting > Macro Setting > Enable All Macro > Ok
  • Setelah stingan diatas selesai langkah selanjutnya, Pilih menu Developer / Pengembang dan Klik Visual Basic atau bisa juga langsung Shotcut Keyboard : Alt + F11
  • Setelah Visual Basic Microsoft Excel terbuka, klik Menu Insert > Modul
  • Copykan skrip modul dibawah ini, kemudian Save.
Modul
Function assyifacomp_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
assyifacomp_QR = "" ' or some text to be displayed behind code
End Function

Kemudian ikuti pembuatanya seperti gambar dibawah ini.


Tuliskan nama file dan rubah type filenya dengan Macro dengan format .xlsm masukan kolom data QR Code dan kolom untuk hasil QR Codenya. 

Format bisa dikembangkan sendiri sesuai dengan keinginan.

Untuk menghasilkan QR Code Pastikan Laptop / Komputer terkoneksi ke Internet dan rumus yang di gunakan adalah 

=assyifacomp_QR(Isikan Cell Data)

Contoh : =assyifacomp_QR(A1) dan Klik ENTER

Penasaran untuk bahan pembelajaran silakan Dwonload File :

Dwonload File Ms Excel

Dwonload Modul Visual Basic

Terima kasih telah mampir, jika ada pertayaan silakan komentar 


Tidak ada komentar:

Posting Komentar