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單元格的內容生成二維碼。

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