教大家如何在EXcel中如何制作二維碼

近日有關(guān)于如何在EXcel中如何制作二維碼的問題受到了很多網(wǎng)友們的關(guān)注，大多數(shù)網(wǎng)友都想要知道如何在EXcel中如何制作二維碼的具體情況，那么關(guān)于到如何在EXcel中如何制作二維碼的相關(guān)信息，小編也是在網(wǎng)上進行了一系列的信息，那么接下來就由小編來給大家分享下小編所收集到與如何在EXcel中如何制作二維碼相關(guān)的信息吧(以下內(nèi)容來自于網(wǎng)絡非小編所寫，如有侵權(quán)請與站長聯(lián)系刪除)

二維碼在我們生活中已經(jīng)是普遍的存在那么如何在EXcel中如何制作二維碼呢?

新建一個Excel表格，在A1單元格中輸入需要生成二維碼的代碼信息。

1. 先要下載一個控件qrmaker，下載的文件解壓后，將QRMaker文件夾里的所有文件復制到c:\windows\system32下。通過“開始→運行”，在運行窗口里輸入regsvr32c:\windows\system32\QRmaker.ocx注冊組件。

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

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

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

5. 再次打開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，單擊Print2D按鈕就可以將A1單元格的內(nèi)容生成二維碼。

制作完畢，就可以使用這個二維碼了。