Cara membuat kode QR di Excel langkah demi langkah (tanpa program eksternal)

Apakah Anda perlu membuat? Kode QR langsung dari Excel Dan Anda tidak tahu harus mulai dari mana? Jangan khawatir, membuat kode-kode ini lebih mudah daripada yang terlihat, dan Anda dapat melakukannya tanpa menginstal program eksternal atau membuatnya terlalu rumit. Ada banyak cara untuk mencapainya, mulai dari fungsi khusus hingga menggunakan makro atau add-in.

Dalam artikel ini kami menjelaskan Cara membuat kode QR di Excel langkah demi langkah, dengan petunjuk sederhana yang berlaku untuk semua versi Excel modern. Jika Anda lebih suka mengotomatiskan tugas atau sekadar menghemat waktu, tutorial ini akan sangat cocok untuk Anda.

Apa itu kode QR dan apa kegunaannya di Excel?

Los Kode QR Dokumen tersebut merupakan representasi grafis yang dapat menyimpan data seperti teks, tautan, angka, email, dan banyak lagi. Saat dipindai dengan ponsel, konten tersebut akan ditampilkan secara otomatis. Dengan mengintegrasikannya ke Excel, Anda dapat dengan cepat berbagi informasi seperti tautan ke dokumen, formulir, catatan pelanggan, kontak, atau data relevan lainnya.

Metode 1: Buat kode QR dengan fungsi khusus di VBA

Pilihan pertama yang Anda miliki adalah menggunakan fungsi kustom yang ditulis dalam VBA. Mudah diterapkan dan memungkinkan Anda membuat kode QR langsung dari sel.

Pertama, aktifkan tab Pengembang

1. Klik kanan pada pita dan pilih “Sesuaikan pita".
2. Centang kotak "Programmer"Atau"Pengembang".
3. Klik pada menerima.

Selanjutnya, buat fungsi kustom

1. Di tab Pengembang, buka Visual Basic.
2. Sisipkan a modul baru.
3. Tempel kode berikut:

Function CrearQR(texto As String, tamano As Integer) As Variant
    Dim url As String
    Dim celda As Range
    Dim nombreImagen As String
    Dim img As Shape

    On Error GoTo ErrorHandler

    If Trim(texto) = "" Then
        CrearQR = CVErr(xlErrValue)
        Exit Function
    End If

    Set celda = Application.Caller.Cells(1, 1)
    nombreImagen = "QR_" & celda.Address(False, False)

    On Error Resume Next
    celda.Worksheet.Shapes(nombreImagen).Delete
    On Error GoTo 0

    url = "https://api.qrserver.com/v1/create-qr-code/?size=" & tamano & "x" & tamano & "&data=" & WorksheetFunction.EncodeURL(texto)

    With celda.Worksheet.Pictures.Insert(url)
        .ShapeRange.LockAspectRatio = msoFalse
        .Height = tamano
        .Width = tamano
        .Top = celda.Top
        .Left = celda.Left
        .Name = nombreImagen
    End With

    CrearQR = "QR generado"
    Exit Function

ErrorHandler:
    CrearQR = CVErr(xlErrValue)
End Function

Cara menggunakan fungsi di Excel

1. Pada sel mana saja tuliskan: =CrearQR(A1;150) untuk menghasilkan QR berdasarkan isi sel A1.
2. pers Enter dan Anda akan melihat kode QR Anda muncul pada lembar tersebut.
3. Anda dapat menyeret rumus ini ke bawah atau ke samping untuk menduplikasinya di sel lain.

Hapus kode QR yang dihasilkan

1. Pergi ke Beranda > Cari & Pilih > Buka Spesial.
2. Pilih Benda.
3. pers Hapus untuk menghapus semua kode QR yang dimasukkan secara visual.

Metode 2: Gunakan makro untuk menghasilkan beberapa kode QR

Jika Anda lebih suka mengotomatiskan lebih lanjut, Anda dapat menggunakan makro yang bekerja secara massal pada serangkaian sel. Ini ideal jika Anda memiliki daftar yang panjang dan ingin dengan cepat mengubah seluruh kolom menjadi kode QR.

Masukkan makro ini ke dalam Modul

Sub GenerarQrCode(rango As Range, tamaño As Integer)
    Dim urlQR As String, celda As Range, textoCodigo As String
    Dim img As Picture
    Dim nombreQR As String

    For Each celda In rango
        textoCodigo = Trim(celda.Value)
        If textoCodigo <> "" Then
            urlQR = "https://api.qrserver.com/v1/create-qr-code/?size=" & tamaño & "x" & tamaño & "&data=" & WorksheetFunction.EncodeURL(textoCodigo)
            nombreQR = "QR_" & celda.Address(False, False)
            On Error Resume Next
            celda.Worksheet.Pictures(nombreQR).Delete
            On Error GoTo 0
            Set img = celda.Worksheet.Pictures.Insert(urlQR)
            With img
                .ShapeRange.LockAspectRatio = msoFalse
                .Name = nombreQR
                .Left = celda.Left + 2
                .Top = celda.Top + 2
                .Height = tamaño
                .Width = tamaño
            End With
        End If
    Next celda
End Sub

Sub EjecutarGenerarQrCode()
    Dim rango As Range
    Set rango = Selection
    Dim tamaño As Variant
    tamaño = InputBox("Por favor, introduce el tamaño del código QR (ej. 150):", "Tamaño del código QR", 150)
    If Not IsNumeric(tamaño) Or tamaño <= 0 Then
        MsgBox "Tamaño inválido. Por favor ingresa un número mayor que cero.", vbExclamation
        Exit Sub
    End If
    GenerarQrCode rango, CInt(tamaño)
End Sub

Untuk menggunakan makro

1. Pilih rentang sel yang berisi teks atau tautan.
2. Jalankan makro “Jalankan GenerateQrCode".
3. Masukkan ukuran yang diinginkan untuk kode QR (misalnya 150).

Penting: Simpan file sebagai .xlsm agar makro berfungsi dengan benar.

Metode 3: Gunakan add-in Excel resmi

Jika Anda bukan penggemar kode atau makro, jangan khawatir. Anda juga dapat memilih solusi yang jauh lebih sederhana: menggunakan add-in eksternal untuk Excel.

Langkah-langkah untuk menginstal plugin

1. Dari Excel, buka Sisipkan > Add-in > Dapatkan Add-in.
2. Ketik “QR” ke mesin pencari dan pilih salah satu dengan peringkat baik (disarankan: ikon merah).
3. Klik pada menambahkan dan kemudian terus.

Hasilkan QR dengan plugin

1. Pilih sel yang berisi data yang akan dikonversi.
2. Buka plugin dan atur ukuran kode QR yang Anda inginkan (misalnya, 100×100 px).
3. pers Menghasilkan.

Metode ini ideal jika Anda tidak ingin mengacaukan kode atau jika Anda bekerja di lingkungan bisnis di mana makro diblokir.

Mengapa menggunakan kode QR di Excel?

• Otomatisasi proses: Pindai dan akses informasi secara langsung tanpa menyalin/menempel tautan.
• Kemudahan berbagi data: dari berkas karyawan hingga tautan ke dasbor atau formulir daring.
• Kompatibel dengan ponsel: apapun smartphone Anda dapat memindai kode dan mengakses konten.

Ada beberapa cara untuk membuat kode QR di Excel agar sesuai dengan gaya kerja yang berbeda. Baik menggunakan kode VBA, makro massal, atau add-in visual, selalu ada opsi yang dapat diakses untuk Anda. Semua solusi yang ditampilkan gratis, efektif, dan kompatibel dengan versi Excel terkini, jadi Anda hanya perlu sedikit latihan untuk menguasai alat ini, yang semakin berguna di kantor, sekolah, logistik, dan sektor lainnya.