Introduction

Halaman ini dirancang khusus untuk pengguna Microsoft Excel dan VBA. Dengan fitur QR Generator ini, pembuatan kode QR dapat dilakukan langsung dari spreadsheet atau melalui skrip VBA tanpa memerlukan perangkat lunak tambahan.

Solusi ini bertujuan untuk mempermudah pekerjaan, meningkatkan efisiensi, dan memberikan fleksibilitas dalam menyajikan data secara profesional.

Basic

Untuk membuat QR code, Anda hanya perlu mengirim permintaan (request) ke URL dengan parameter qr.

Contoh URL:

https://qrmaker.vba.co.id/?qr=HaloDunia

Parameter:

qr: Konten yang ingin Anda ubah menjadi QR code. Contohnya bisa berupa teks atau URL.

Catatan: Jika warna tidak ditentukan, QR Code akan menggunakan warna default (hitam-putih).

Pengaturan Warna (Custom)

QR ini mendukung pengaturan warna untuk QR code dan warna latar belakangnya dengan menambahkan parameter color dan bgcolor.

Contoh URL dengan Warna:

https://qrmaker.vba.co.id/?qr=HaloDunia&bgcolor=FFFF00&color=567AE7

Parameter Tambahan:

color: Warna QR code dalam format hex (default: 000000, hitam).
bgcolor: Warna latar belakang dalam format hex (default: FFFFFF, putih).

Examples

Berikut ini contoh penggunaan QR Code geenrator di Spreadsheet

Formula

Bagi pengguna Microsoft Excel 365 ataupun Google Sheet yang sudah support rumus dengan fungsi IMAGE, bisa menggunakan rumus berikut :

=IMAGE("https://qrmaker.vba.co.id/?qr="&B4&"&bgcolor=FFFFFF&color=0a5aa1")

Ganti B4 dengan sel yang berisi teks atau URL yang ingin Anda ubah menjadi kode QR.

Contoh Penggunaan:

Macro VBA

Jika belum support fungsi IMAGE, bisa juga dapat menggunakan script VBA di Microsoft Excel untuk membuat QR Code dengan dibuat User Defined Function (UDF). Berikut adalah contoh penggunaannya:

Untuk penjelasan lebih detail terkait UDF silahkan kunjungi vba.co.id


Function Buat_QR(codetext As String)
Rem Author:  Andi Setiadi | https://vba.co.id
Dim URL As String, MyCell As Range
							
Set MyCell = Application.Caller
URL = "https://qrmaker.vba.co.id/?qr=" & codetext
On Error Resume Next
							
' Hapus jika sebelumnya sudah ada QRCode
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 = "" ' atau boleh masukan Text
End Function