Ada library yang tersedia pada Dapodik yang bisa kita manfaatkan yaitu salah satunya untuk membuat QR Code, dalam artikel ini kita akan menggunakan library tersebut pada Microsoft Excel.
{getToc} $title={Daftar Isi}Cara Membuat QR Code di Excel
Membuat QR Code di Excel terdapat beberapa cara, yang lebih mudah khusunya bagi pengguna Aplikasi Dapodik yaitu membuat QR Code Excel dengan menggunakan macro memasukan gambar dari URL. Karena kita akan memanfaatkan library Dapodik untuk membuat QR Code-nya, langkah pertama kita buat dahulu file PHP yang bertujuan untuk menyajikan QR Code-nya lalu kita masukan kedalam Excel.
Membuat File PHP
Pertama kita buka Notepad dan masukan kode berikut.
<?php require "../src/DataDikdas/Library/phpqrcode/qrlib.php"; QRcode::png($_GET['textqr']); ?>
Setelah itu kita simpan dengan nama qrcode.php
dan pilih Save As Type: All Files kemudian pilih Save
Langkah selanjutnya yaitu kita pindahkan file qrcode.php
tersebut ke direktori C:\Program Files (x86)\Dapodik\dataweb\apps\web
Setelah file qrcode.php
dipindahkan kemudian beralih ke Excel, kita buka VBA editor dan selanjutnya tambahkan Module.
Fungsi Activesheet
Fungsi ini adalah referensi kode yang Admin dapat dari internet, penggunaan fungsi ini hanya efektif pada sheet yang aktif. Contohnya jika kita menuliskan fungsi QR Code pada Sheet2 dan referensi datanya pada Sheet1, itu hasil QR Code-nya akan muncul di Sheet1 ketika kita melakukan perubahan data pada Sheet1, padahal fungsi QR Code-nya ditulis di Sheet2. Maka Admin simpulkan dengan nama fungsi activesheet.
Silakan salin kode dibawah lalu tempelkan pada Module.
Function BUATQR(textqr As String) Dim URL As String Dim ThisCell As Range Set ThisCell = Application.Caller URL = "http://localhost:5774/qrcode.php?textqr=" & textqr On Error Resume Next ActiveSheet.Pictures("dapoqr_" & ThisCell.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 = "dapoqr_" & ThisCell.Address(False, False) .Left = ThisCell.Left + 25 .Top = ThisCell.Top + 5 End With BUATQR = "dapoqr_" & ThisCell.Address(False, False) End Function
Fungsi Optional
Selain kita bisa gunakan fungsi diatas, kita juga bisa tambahkan opsi pada fungsi untuk bebas menggunakan data referensi di sheet manapun. Admin kembangkan lagi source code diatas dengan menambahkan opsi nama sheet jika dibutuhkan atau dalam situasi tertentu.
Untuk kodenya silakan salin dibawah ini kedalam Module.
Function BUATQR(ByVal textqr As String, Optional ByVal NamaSheet As Variant) Dim ws As Worksheet Dim URL As String Dim ThisCell As Range Dim cPicture As Picture If IsMissing(NamaSheet) = True Then Set ws = ThisWorkbook.ActiveSheet Else Set ws = ThisWorkbook.Sheets(NamaSheet) End If Set ThisCell = Application.Caller URL = "http://localhost:5774/qrcode.php?textqr=" & textqr On Error Resume Next ws.Pictures("dapoqr_" & ThisCell.Address(False, False)).Delete Set cPicture = ws.Pictures.Insert(URL) On Error GoTo 0 With cPicture.ShapeRange(1) .LockAspectRatio = msoFalse .PictureFormat.CropLeft = 5 .PictureFormat.CropRight = 5 .PictureFormat.CropTop = 5 .PictureFormat.CropBottom = 5 .Name = "dapoqr_" & ThisCell.Address(False, False) .Top = ThisCell.Top + 1.5 .Left = ThisCell.Left + 1.5 .Width = ThisCell.Width - 2 .Height = ThisCell.Height - 2 .Placement = xlMoveAndSize End With BUATQR = "dapoqr_" & ThisCell.Address(False, False) End Function
Membuat Fungsi Excel
Disini Admin akan mencontohkan menggunakan kode fungsi optional. Setelah kode sudah ditambahkan kedalam Module, sekarang kita coba tuliskan fungsinya.
Pertama tuliskan dahulu text apa yang akan kita buat QR Code-nya pada A1. Setelah itu kita buat ukuran cell B3 menjadi kotak dan sedikit besar lalu tuliskan fungsi =BUATQR(A1)
, ketika berhasil gambar QR Code akan menyesuaikan ukuran pada B3.
Selain bisa digunakan pada sheet yang sama untuk data referensinya, kita juga bisa menggunakan di sheet yang berberda dengan fungsi seperti ini =BUATQR(textqr;sheetqr)
. Dalam penambahan opsi disini adalah nama sheet yang akan menampilkan QR Code-nya. Contoh kita tuliskan text di Sheet1 [A1], jika kita akan menuliskan fungsi QR Code di Sheet2 [A1] maka tuliskan fungsinya seperti ini
=BUATQR(Sheet1!A1;"Sheet2")dan akan tampil QR Codenya di Sheet2 [A1] walaupun kita melakukan perubahan text pada Sheet1 [A1]
Perhatian: Fungsi yang Admin susun ini hanya untuk pengguna yang terdapat Aplikasi Dapodik dan telah menambahkan kode PHP yang telah kita buat tadi.{alertWarning}
Jika ingin menggunakan tanpa ada Aplikasi Dapodik, silakan ganti kode URL dengan kode dibawah ini dan tanpa perlu membuat file PHP, dengan catatan harus terkoneksi internet.
URL = "https://chart.googleapis.com/chart?chs=125x125&cht=qr&chl=" & textqr
Demikian cara untuk membuat QR Code di Microsoft Excel, Admin ucapkan terimakasih atas dukungannya dan tonton videonya Cara Membuat QR Code Di Excel Dari Dapodik