1、 先要下載一個控件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單元格的值傳遞給QRString1
ct
Redraw = ArOn
'啓用QRmaker的自動重畫屬性
tData = QRString1
'將QRString1的值傳遞給QRmaker1
End Sub
儲存關閉VBA編輯器,回到Excel,單擊Print2D按鈕就可以將A1單元格的內容生成二維碼。