如何在Excel中基于單元格值創建二維碼？

網友投稿 535 2025-04-01

如何在Excel中基于單元格值創建二維碼？

您知道如何根據Excel中的特定單元格值創建QR碼嗎？本文將向您詳細介紹實現該方法的方法。

使用條形碼控制和VBA代碼基于單元格值創建QR碼

使用驚人的工具根據單元格值輕松批量創建多個二維碼 使用條形碼控制和VBA代碼基于單元格值創建QR碼

條形碼控件可以幫助您基于Excel中的單元格值快速創建QR碼。請執行以下操作。

1.打開工作表，其中包含您要創建QR Code的單元格值。

2。點擊 開發商 > 插頁 > 更多的控制。看截圖：

3.在 更多控件 窗口中，檢查 Microsoft條碼控制16.0 or Microsoft條碼控制15.0.

4.如果在“更多控件”窗口中找不到條形碼控件，或者條形碼控件不是16.0或15.0，則需要通過單擊以下鏈接下載條形碼控件文件： 下載條碼控制。如果“更多控件”窗口中有“條形碼控件16.0”或“ 15.0”，請跳到下面 步驟10.

下載文件后，將其解壓縮，然后使用Excel中的已下載條形碼控件更新條形碼控件，如下所示。

5.關閉所有Excel工作簿，轉到 Start 開始 部分，找到 Excel 應用并右鍵單擊它，然后選擇 以管理員身份運行“ 從上下文菜單中。看截圖：

6.在開幕 用戶帳戶控制 對話框中，單擊是按鈕。

7.然后創建一個新的工作簿。請點擊 開發商 > 插頁 > 更多的控制。看截圖：

8.在 更多控件 窗口中，單擊 注冊自定義 按鈕，找到并選擇下載的二維碼OCX文件之一，然后單擊可選按鈕。看截圖：

9。點擊 OK 按鈕，當它返回 更多控件 窗口以完成條形碼控制的更新。然后重新打開工作簿，其中包含您要創建QR Code的單元格值。

10。右鍵單擊工作表標簽，然后單擊 查看代碼 從上下文菜單中打開 Microsoft Visual Basic應用程序 窗口。然后將下面的VAB代碼復制并粘貼到“代碼”窗口中。最后按其他 + Q 退出鍵 Microsoft Visual Basic應用程序 窗口。

VBA代碼：在Excel中創建QR代碼

Sub setQR() Updated by Extendoffice 2018/8/22 Dim xSRg As Range Dim xRRg As Range Dim xObjOLE As OLEObject On Error Resume Next Set xSRg = Application.InputBox("Please select the cell you will create QR code based on", "Kutools for Excel", , , , , , 8) If xSRg Is Nothing Then Exit Sub Set xRRg = Application.InputBox("Select a cell to place the QR code", "Kutools for Excel", , , , , , 8) If xRRg Is Nothing Then Exit Sub Application.ScreenUpdating = False Set xObjOLE = ActiveSheet.OLEObjects.Add("BARCODE.BarCodeCtrl.1") xObjOLE.Object.Style = 11 xObjOLE.Object.Value = xSRg.Text ActiveSheet.Shapes.Item(xObjOLE.Name).Copy ActiveSheet.Paste xRRg xObjOLE.Delete Application.ScreenUpdating = True End Sub

Copy

11。點擊 開發商 > 插頁 > 按鈕（表單控件） 如下圖所示。

12.在當前工作表中繪制一個按鈕。在彈出 分配宏 對話框中選擇 設置二維碼 在框中，然后單擊 OK 按鈕。

13.關閉 設計模式 通過點擊 開發商 > 設計模式.

14.單擊開始中的按鈕 Kutools for Excel 對話框中，選擇要創建QR Code的單元格，然后單擊 OK.

15.在第二 Kutools for Excel 在對話框中，選擇一個單元以放置QR碼。看截圖：

然后，QR碼將立即插入指定的單元格中。重復步驟14到15，以完成所有創建的QR碼。看截圖：

使用驚人的工具根據單元格值輕松批量創建多個二維碼

老實說，上述方法并不容易處理，因為它有其自身的局限性。這里強烈推薦 插入二維碼 的特點 Kutools for Excel. 此功能可幫助您根據 Excel 中指定的單元格值，只需單擊幾下即可快速批量插入二維碼。請按以下步驟完成。