在EXcel中如何动态生成二维码?最好是做成名片的形式
发布网友
发布时间：2022-04-25 23:35
共3个回答
热心网友
时间：2023-01-25 12:33
新建一个Excel表格，在A1单元格中输入需要生成二维码的代码信息。
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单元格的内容生成二维码。
制作完毕，就可以使用这个二维码了。
热心网友
时间：2023-01-25 13:51
下载几个二维码字体，
IntHrP48DlTt.TTF
IntHrP60DlTt.TTF
IntHrP72DlTt.TTF
把下载下来的文件放进C:\WINDOWS\Fonts里面
然在在excel里面编辑你要的单元格，把格式里面的字体换成二维码字体就OK了
热心网友
时间：2023-01-25 15:26
每次看到这样的问题都会有人说用插件来生成二维码。插件我也懂，也会使用插件来生成二维码，但是我觉得大部分还是不会下载——》安装——》注册——》引用插件的，也不是能轻松就能搞定插件了，就算都弄好了，还是要设置插件，或者还是要用vba来调用插件的。既然这样那还不如直接就用excel表格直接生成二维码得了。只要将宏的级别设置为低级（自动级）就可以自动生成二维码了。
excel表格二维码生成下载：二维码生成Excel表格链接
