二維碼不光是在商品消費商被越來越多采用，小公司或個人也可以用二維碼來傳遞識別特定信息。那么，怎么在excel2013中制作二維碼呢?下面小編來告訴你excel2013中制作二維碼的方法吧。希望對你有幫助！
excel2013中制作二維碼的步驟
打開Excel，因為之后要用到VBA，進入Excel選項，勾選“在功能區顯示開發工具”(圖1)，切換到開發工具選項卡，單擊Visual Basic打開VBA編輯器，選擇“工具→引用→瀏覽”，找到c:\windows\system32\QRMaker.ocx，關閉編輯器。
excel2013中制作二維碼的步驟圖1
回到Excel中，在空白處插入一個命令按鈕，右擊該按鈕選擇指定宏→錄制，宏命名為print2d，停止錄制宏。
同時插入其他控件中的QRMaker Control，點“確定”后鼠標會變成十字，在空白區域畫一個二維碼控件(圖2)。
excel2013中制作二維碼的步驟圖2
再次打開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
保存關閉VBA編輯器，回到Excel(圖3)，單擊Print2D按鈕就可以將A1單元格的內容生成二維碼。
excel2013中制作二維碼的步驟圖3
制作完畢，就可以使用這個二維碼了，用胸卡在掃描槍上掃描，即可對特定數據進行操作了。
>>>下一頁更多精彩“excel2013中制作組合圖表的方法”
共2頁: 上一頁
