二維碼不光是在商品消費(fèi)商被越來越多采用，小公司或個(gè)人也可以用二維碼來傳遞識(shí)別特定信息。那么，怎么在excel2013中制作二維碼呢?下面小編來告訴你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)閉編輯器。
excel2013中制作二維碼的步驟圖1
回到Excel中，在空白處插入一個(gè)命令按鈕，右擊該按鈕選擇指定宏→錄制，宏命名為print2d，停止錄制宏。
同時(shí)插入其他控件中的QRMaker Control，點(diǎn)“確定”后鼠標(biāo)會(huì)變成十字，在空白區(qū)域畫一個(gè)二維碼控件(圖2)。
excel2013中制作二維碼的步驟圖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)容生成二維碼。
excel2013中制作二維碼的步驟圖3
制作完畢，就可以使用這個(gè)二維碼了，用胸卡在掃描槍上掃描，即可對(duì)特定數(shù)據(jù)進(jìn)行操作了。
>>>下一頁更多精彩“excel2013中制作組合圖表的方法”
共2頁: 上一頁
