Bagaimana untuk menjana kod QR dalam Excel

Cara menjana kod QR dalam Excel: 1. Gunakan makro VBA untuk menjana kod QR, buka editor VBA, klik menu "Sisipkan", pilih "Modul", masukkan kod VBA dalam modul baharu, klik Jalankan, dan laksanakan Makro VBA, hanya pilih julat sel untuk menjana kod QR 2. Pemalam pihak ketiga menjana kod QR, klik menu "Fail", pilih "Pilihan", dalam kotak dialog, pilih "Tambah-; ins" untuk membuka tambahan COM Dalam kotak dialog, pilih fail pemalam kod QR untuk dipasang, pasang pemalam, pilih sel untuk menjana kod QR dan jana kod QR.

Excel ialah perisian hamparan berkuasa yang bukan sahaja boleh melakukan analisis dan pengiraan data, tetapi juga membuat carta dan visualisasi data. Walaupun Excel sendiri tidak menyokong penjanaan kod QR secara langsung, kami boleh menggunakan beberapa pemalam atau makro untuk mencapai fungsi menjana kod QR dalam Excel.

Di bawah ini saya akan memperkenalkan dua kaedah yang biasa digunakan untuk menjana kod QR.

Kaedah 1: Gunakan makro VBA untuk menjana kod QR

Langkah 1: Buka Excel dan tekan kombinasi kekunci "Alt + F11" untuk membuka editor VBA.

Langkah 2: Dalam editor VBA, klik menu "Sisipkan" dan pilih "Modul".

Langkah 3: Dalam modul yang baru dibuat, masukkan kod VBA berikut:

Sub GenerateQRCode()
    Dim qrCode As Object
    Dim rangeToEncode As Range
    Dim cell As Range
    
    ' 设置二维码生成器对象
    Set qrCode = CreateObject("WScript.Shell")
    
    ' 获取要生成二维码的单元格范围
    Set rangeToEncode = Application.InputBox("请选择要生成二维码的单元格范围：", Type:=8)
    
    ' 循环生成二维码
    For Each cell In rangeToEncode
        ' 调用二维码生成器生成二维码图片
        qrCode.Run "cmd /c qrencode -o " & cell.Address & ".png " & cell.Value
        
        ' 将生成的二维码图片插入到单元格中
        cell.Select
        ActiveSheet.Pictures.Insert(cell.Address & ".png").Select
        Selection.ShapeRange.LockAspectRatio = msoFalse
        Selection.ShapeRange.Height = cell.RowHeight
        Selection.ShapeRange.Width = cell.Width
        Selection.ShapeRange.Top = cell.Top
        Selection.ShapeRange.Left = cell.Left
        Selection.ShapeRange.Placement = xlMoveAndSize
        
        ' 删除生成的二维码图片
        Kill cell.Address & ".png"
    Next cell
    
    ' 清理对象
    Set qrCode = Nothing
End Sub

Langkah 4: Tekan kekunci "F5" atau klik butang Jalankan untuk melaksanakan makro VBA. Kotak dialog akan muncul, sila pilih julat sel untuk menjana kod QR.

Langkah 5: Selepas menunggu tempoh masa, Excel akan menjana kod QR yang sepadan dalam sel yang dipilih.

Kaedah 2: Gunakan pemalam pihak ketiga untuk menjana kod QR

Langkah 1: Buka Excel, klik menu "Fail" dan pilih "Pilihan".

Langkah 2: Dalam kotak dialog Excel Options, pilih "Add-in".

Langkah 3: Klik butang "Pergi" untuk membuka kotak dialog tambahan COM.

Langkah 4: Klik butang "Semak imbas" dan pilih fail pemalam kod QR untuk dipasang.

Langkah 5: Klik butang "OK" untuk memasang pemalam.

Langkah 6: Dalam Excel, pilih sel tempat anda ingin menjana kod QR.

Langkah 7: Klik menu "Plug-in", pilih pemalam kod QR dan jana kod QR.

Ringkasan:

Melalui dua kaedah di atas, kita boleh menjana kod QR dalam Excel. Kaedah menggunakan makro VBA memerlukan pengetahuan pengaturcaraan tertentu, tetapi gaya dan kedudukan kod QR yang dihasilkan boleh disesuaikan. Kaedah menggunakan pemalam pihak ketiga adalah lebih mudah, tetapi mungkin dihadkan oleh fungsi dan tetapan pemalam. Pilih kaedah yang sesuai untuk menjana kod QR berdasarkan keperluan peribadi dan keadaan sebenar.

Atas ialah kandungan terperinci Bagaimana untuk menjana kod QR dalam Excel. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!