Cara Mudah Membuat QR Code dengan Microsoft Excel

Cara Mudah Membuat QR Code dengan Microsoft Excel - Pada kesempatan kali ini, saya akan berbagi tutorial bagaimana cara mudah membuat Microsoft Excel, versi 2016, 2019 dan 365. Untuk Office versi dibawah 2016 belum saya coba krena udh gk makai office dibawah 2016.  Sebelum kita membuat QR Code dengan MIcrosoft Excel, perlu kita ketahui dulu tentang Kode QR. 
Kode QR atau yang biasanya disebut QR Code merupakan perubahan kode batang dari 1 dimensi menjadi 2 dimensi.
Cara Mudah Membuat QR Code dengan Microsoft Excel
Cara Mudah Membuat QR Code dengan Microsoft Excel

  1. Buka Aplikasi Microsoft Excel
  2. Aktifkan menu developer atau pengembang, dengan cara klik File > Opsi > Costumize Ribbon > Centang Developer. > Ok
    Cara Mudah Membuat QR Code dengan Microsoft Excel
    Cara Mudah Membuat QR Code dengan Microsoft Excel
  3. Aktifkan All Macro dengan cara klik File > Opsi > Trust Centern > Trust Center Setting > Macro Setting > Enable All Macros. OK.
    Cara Mudah Membuat QR Code dengan Microsoft Excel
    Cara Mudah Membuat QR Code dengan Microsoft Excel
  4. Kemudian plih menu Developer / Pengembang dan klik Visual Basic.
    Cara Mudah Membuat QR Code dengan Microsoft Excel
    Cara Mudah Membuat QR Code dengan Microsoft Excel
  5. Setelah Visual Basic Excel muncul, klik menu Insert > Modul. >
  6. Copikan skrip dibawah ini, kedalam module kemudian SAVE.
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

Kemudian ikuti pembuatan seperti gambar dibawah ini
Cara Mudah Membuat QR Code dengan Microsoft Excel
Cara Mudah Membuat QR Code dengan Microsoft Excel



Tuliskan Nama File dan rubah tipe filenya dengan sebagai macro dengan format .xlsm Masukkan kolom data yang mau dibuat Qode QR dan kolom untuk hasil Code QR.

Untuk lebih jelas simak video Cara Mudah Membuat QR Code dengan Microsoft Excel :


File Excel : UNDUH

Source Script : UNDUH


Demikain tadi Tutorial Cara Mudah Membuat QR Code dengan Microsoft Excel, semoga bermanfaat.