先要下載一個控制元件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單元格的值傳遞給
QRString1Sheet1.SelectSheet1.QRmaker1.AutoRedraw = ArOn"啟用QRmaker的自動重畫屬性Sheet1.QRmaker1.InputData = QRString1"將QRString1的值傳遞給QRmaker1End Sub儲存關閉VBA編輯器，回到Excel，單擊Print2D按鈕就可以將A1單元格的內容生成二維碼。
先要下載一個控制元件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單元格的值傳遞給
QRString1Sheet1.SelectSheet1.QRmaker1.AutoRedraw = ArOn"啟用QRmaker的自動重畫屬性Sheet1.QRmaker1.InputData = QRString1"將QRString1的值傳遞給QRmaker1End Sub儲存關閉VBA編輯器，回到Excel，單擊Print2D按鈕就可以將A1單元格的內容生成二維碼。