excel如何利用vba自動生成維碼

先要下載一個控制元件qrmaker，下載的檔案解壓後，將QRMaker資料夾裡的所有檔案複製到c:windowssystem32下。通過“開始→執行”，在執行窗口裡輸入regsvr32 c:註冊元件。

2、 開啟Excel，因為之後要用到VBA，進入Excel選項，勾選“在功能區顯示開發工具”，切換到開發工具選項卡，單擊Visual Basic開啟VBA編輯器，選擇“工具→引用→瀏覽”，找到c:，關閉編輯器。

3、 回到Excel中，在空白處插入一個命令按鈕，右擊該按鈕選擇指定巨集→錄製，巨集命名為print2d，停止錄製巨集。

4、 同時插入其他控制元件中的QRMaker Control，點“確定”後滑鼠會變成十字，在空白區域畫一個二維碼控制元件。

5、 再次開啟VBA編輯器，在左邊找到模組1，雙擊後清空右邊所有內容，輸入以下程式碼：Sub print2d()Dim QRString1 As String'定義變數QRString1 = e("A1")'將A1單元格的值傳遞給

Redraw = ArOn'啟用QRmaker的自動重畫屬性tData = QRString1'將QRString1的值傳遞給QRmaker1End Sub儲存關閉VBA編輯器，回到Excel，單擊Print2D按鈕就可以將A1單元格的內容生成二維碼。

製作完畢，就可以使用這個二維碼了。