怎么在excel2013中制作二維碼

　　二維碼不光是在商品消費商被越來越多采用，小公司或個人也可以用二維碼來傳遞識別特定信息。那么，怎么在excel2013中制作二維碼呢?下面小編來告訴你excel2013中制作二維碼的方法吧。希望對你有幫助！

　　excel2013中制作二維碼的步驟

　　打開Excel，因為之后要用到VBA，進入Excel選項，勾選“在功能區(qū)顯示開發(fā)工具”(圖1)，切換到開發(fā)工具選項卡，單擊Visual Basic打開VBA編輯器，選擇“工具→引用→瀏覽”，找到c:\windows\system32\QRMaker.ocx，關(guān)閉編輯器。

　　回到Excel中，在空白處插入一個命令按鈕，右擊該按鈕選擇指定宏→錄制，宏命名為print2d，停止錄制宏。

　　同時插入其他控件中的QRMaker Control，點“確定”后鼠標(biāo)會變成十字，在空白區(qū)域畫一個二維碼控件(圖2)。

　　再次打開VBA編輯器，在左邊找到模塊1，雙擊后清空右邊所有內(nèi)容，輸入以下代碼：

　　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

　　保存關(guān)閉VBA編輯器，回到Excel(圖3)，單擊Print2D按鈕就可以將A1單元格的內(nèi)容生成二維碼。

　　制作完畢，就可以使用這個二維碼了，用胸卡在掃描槍上掃描，即可對特定數(shù)據(jù)進行操作了。

　　>>>下一頁更多精彩“excel2013中制作組合圖表的方法”