Cara Membuat QR Code Di Excel Dari Dapodik

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