1. 先要下載一個控制元件qrmaker,下載的檔案解壓後,將QRMaker資料夾裡的所有檔案複製到c:\windows\system32下。透過“開始→執行”,在執行窗口裡輸入regsvr32 c:\windows\system32\QRmaker.ocx註冊元件。
2. 開啟Excel,因為之後要用到VBA,進入Excel選項,勾選“在功能區顯示開發工具”,切換到開發工具選項卡,單擊Visual Basic開啟VBA編輯器,選擇“工具→引用→瀏覽”,找到c:\windows\system32\QRMaker.ocx,關閉編輯器。
5. 再次開啟VBA編輯器,在左邊找到模組1,雙擊後清空右邊所有內容,輸入以下程式碼:
Sub print2d()
Dim QRString1 As String
"定義變數
QRString1 = Sheet1.Range("A1")
"將A1單元格的值傳遞給QRString1
Sheet1.Select
Sheet1.QRmaker1.AutoRedraw = ArOn
"啟用QRmaker的自動重畫屬性
Sheet1.QRmaker1.InputData = QRString1
"將QRString1的值傳遞給QRmaker1
End Sub
1. 先要下載一個控制元件qrmaker,下載的檔案解壓後,將QRMaker資料夾裡的所有檔案複製到c:\windows\system32下。透過“開始→執行”,在執行窗口裡輸入regsvr32 c:\windows\system32\QRmaker.ocx註冊元件。
2. 開啟Excel,因為之後要用到VBA,進入Excel選項,勾選“在功能區顯示開發工具”,切換到開發工具選項卡,單擊Visual Basic開啟VBA編輯器,選擇“工具→引用→瀏覽”,找到c:\windows\system32\QRMaker.ocx,關閉編輯器。
5. 再次開啟VBA編輯器,在左邊找到模組1,雙擊後清空右邊所有內容,輸入以下程式碼:
Sub print2d()
Dim QRString1 As String
"定義變數
QRString1 = Sheet1.Range("A1")
"將A1單元格的值傳遞給QRString1
Sheet1.Select
Sheet1.QRmaker1.AutoRedraw = ArOn
"啟用QRmaker的自動重畫屬性
Sheet1.QRmaker1.InputData = QRString1
"將QRString1的值傳遞給QRmaker1
End Sub