-->

Cara Mudah Membuat QR Code di microsoft Excel

Cara Mudah Membuat QR Code di microsoft Excel - kali ini saya akan memberikan tutorial untuk membuat QR Code (Quick Response) Code, perlu diketahui bahwa QR Code merupakan kode batang yang bisa menyimpan sebanyak 7000 karakter. Orang akan lebih mudah scan QR ketimbang menghafal link yang panjang berikut ini

Aplikasi Inventory Stock Barang Berbasis Web dengan PHP, MySQLi dan Bootstrap 4 Free Version - Hakko Blog's (hakkoblogs.com)

nah dengan adanya QR code memudahkan anda untuk menyimpan data baik itu URL, tulisan dan angka. Kali ini kita akan membuat QR Code di microsoft excel dengan mudah dan tentunya, untuk membuat QR code di microsoft excel ada beberapa tahapan yang harus dikerjakan yang pertama adalah mengaktifkan menu deveoper di microsoft excel silahkan

klik File > Option > Customize Ribbon > centang Menu developer > Klik OK

seperti gambar di bawah ini


Langkah selanjutnya adalah mengaktifkan macro di excel, cara untuk mengkatifkan macro langkah - langkah nya adalah sebagai berikut

klik File > Options > Trust Center > Trust Center Setting > Macro Setting

pilih Enable all macros kemudian klik OK seperti gambar di bawah ini

Setelah menu developer dimunculkan dan Macro excel sudah dienable maka langkah selanjutnya adalah menyisipkan kode generator QR Code nya dengan langkah seperti berikut

Klik menu Developer > Visual Basic

seperti gambar di bawah ini


maka akan muncul tampilan menu visual basic dan lanjut klik pilih menu

Insert > Module kemudian masukkan kode di bawah ini

Function Buat_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("MyQR_" & MyCell.Address(False, False)).Delete 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 = "MyQR_" & MyCell.Address(False, False) .Left = MyCell.Left + 25 .Top = MyCell.Top + 5 End With Buat_QR = "" ' Masukkan text sebagai optional End Function

seperti gambar di bawah ini


Lanjut save file dengan extension .xlsm (Macro Enabled) 
 
langkah selanjutnya anda sudah bisa membuat QR denga  menggunan rumus =Buat_QR(Cell yang di pilih)

berikut adalah hasil generate QR Code di microsoft excel 2016, saya menggenerate link URL, Tulisan, Angka dan saya testing hasilnya sesuai dengan value masing - masing


sampai tahap ini anda sudah bisa Membuat QR Code di microsoft Excel dengan mudah dan simple tanpa harus membeli add ins QR Code maupun barcode generator yang berbayar, masih bingung dengan step - step di atas? tenang saya sudah menyiapkan video tutorial nya untuk mempermudah anda memahaminya, silahkan simak video berikut ini dan jangan lupa untuk SUBSCRIBE ya. 



Semoga tutorial ini bermanfaat untuk anda yang sedang ingin membuat QR Code di microsoft excel, jangan lupa untuk membagikan tutorial ini karena sebaik - baik ilmu adalah yang bermanfaat, silahkan dicoba dan dipraktekkan.

Selamat Belajar

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel