excel二维码控件怎么解决？

1. 先要下载一个控件qrmaker，下载的文件解压后，将QRMaker文件夹里的所有文件复制到c:\windows\system32下。通过“开始→运行”，在运行窗口里输入regsvr32 c:\windows\system32\QRmaker.ocx注册组件。

2. 打开Excel，因为之后要用到VBA，进入Excel选项，勾选“在功能区显示开发工具”，切换到开发工具选项卡，单击Visual Basic打开VBA编辑器，选择“工具→引用→浏览”，找到c:\windows\system32\QRMaker.ocx，关闭编辑器。

3. 回到Excel中，在空白处插入一个命令按钮，右击该按钮选择指定宏→录制，宏命名为print2d，停止录制宏。

4. 同时插入其他控件中的QRMaker Control，点“确定”后鼠标会变成十字，在空白区域画一个二维码控件。

5. 再次打开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，单击Print2D按钮就可以将A1单元格的内容生成二维码。

顶一下

(0)

0%

踩一下

(0)

0%