怎么在excel2013中制作二維碼

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

　　excel2013中制作二維碼的步驟

　　打開Excel，因?yàn)橹笠玫絍BA，進(jìn)入Excel選項(xiàng)，勾選“在功能區(qū)顯示開發(fā)工具”(圖1)，切換到開發(fā)工具選項(xiàng)卡，單擊Visual Basic打開VBA編輯器，選擇“工具→引用→瀏覽”，找到c:\windows\system32\QRMaker.ocx，關(guān)閉編輯器。

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

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

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

　　Sub print2d()

　　Dim QRString1 As String

　　'定義變量

　　QRString1 = Sheet1.Range("A1")

　　'將A1單元格的值傳遞給QRString1

　　Sheet1.Select

　　Sheet1.QRmaker1.AutoRedraw = ArOn

　　'啟用QRmaker的自動(dòng)重畫屬性

　　Sheet1.QRmaker1.InputData = QRString1

　　'將QRString1的值傳遞給QRmaker1

　　End Sub

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

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

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