【VBA】实现批量生成二维码

系列文章

【C#】单号生成器（编号规则、固定字符、流水号、产生业务单号）
本文链接：https://blog.csdn.net/youcheng_ge/article/details/129129787

【C#】日期范围生成器（开始日期、结束日期）
本文链接：https://blog.csdn.net/youcheng_ge/article/details/129040663

【C#】组件化开发，调用dll组件方法
本文链接：https://blog.csdn.net/youcheng_ge/article/details/129492112

【C#】数据实体类使用
本文链接：https://blog.csdn.net/youcheng_ge/article/details/128816638

【C#】单据审批流方案
本文链接：https://blog.csdn.net/youcheng_ge/article/details/128972545

【C#】二维码标签制作及打印
本文链接：https://blog.csdn.net/youcheng_ge/article/details/126884228

【C#】最全单据打印源码（设计打印模板、条形码&二维码、标签、字体）
本文链接：https://blog.csdn.net/youcheng_ge/article/details/129415723

【C#】条码管理操作手册
本文链接：https://blog.csdn.net/youcheng_ge/article/details/126589496

【C#】IIS平台下，WebAPI发布及异常处理
本文链接：https://blog.csdn.net/youcheng_ge/article/details/126539836

【C#】【提高编程效率】代码模板生成工具
本文链接：https://blog.csdn.net/youcheng_ge/article/details/126890673

【C#】【提高编程效率】Excel数据批量导入数据库
本文链接：https://blog.csdn.net/youcheng_ge/article/details/126427323

【C#】Windows服务(Service)安装及启停方案
本文链接：https://blog.csdn.net/youcheng_ge/article/details/124053794

【C#】穿透Session隔离，服务调用外部程序（无窗体界面解决）
本文链接：https://blog.csdn.net/youcheng_ge/article/details/124053033

【C#】任务计划实现，使用Quartz类
本文链接：https://blog.csdn.net/youcheng_ge/article/details/123667723

【C#】《周计划管理关于产前准备模块》解决方案20200203
本文链接：https://blog.csdn.net/youcheng_ge/article/details/122919543

【C#】源码解析正则表达式
本文链接：https://blog.csdn.net/youcheng_ge/article/details/118337074

【C#】软件版本和文件MD5记录（XML操作）
本文链接：https://blog.csdn.net/youcheng_ge/article/details/112513871

【C#】测试网络是否连通
本文链接：https://blog.csdn.net/youcheng_ge/article/details/110137288

【C#】根据名称获取编码（Dictionary获取key方法）
本文链接：https://blog.csdn.net/youcheng_ge/article/details/129816701

【C#】数据建模，你是使用DataTable还是List？
本文链接：https://blog.csdn.net/youcheng_ge/article/details/129792726

【C#】GridControl控件和List数据集双向绑定
本文链接：https://blog.csdn.net/youcheng_ge/article/details/129423755

【C#】GridControl动态更换DataSource，数据查询异常处理
本文链接：https://blog.csdn.net/youcheng_ge/article/details/130305424

文章目录

• 系列文章
• 前言
• 一、问题描述
• 二、解决方案
• • 2.1 可行性分析
  • 2.2 采用方案
• 三、软件开发（源码）
• • 3.1 界面设计
  • 3.2 按钮触发事件
• 四、项目展示
• 五、资源链接

前言

我能抽象出整个世界，但是我不能抽象你。 想让你成为私有常量，这样外部函数就无法访问你。 又想让你成为全局常量，这样在我的整个生命周期都可以调用你。 可惜世上没有这样的常量，我也无法定义你，因为你在我心中是那么的具体。

哈喽大家好，本专栏为【项目实战】专栏，有别于【底层库】专栏，我们可以发现增加 了『问题描述』、『项目展示』章节，十分符合项目开发流程，让读者更加清楚项目解决的问题、以及产品能够达到的效果。本专栏收纳项目开发过程的解决方案，是我项目开发相对成熟、可靠方法的提炼，我将这些问题的解决思路梳理，撰写本文分享给大家，大家遇到类似问题，可按本文方案处理。

本专栏会持续更新，不断完善，专栏文章关联性较弱（文章之间依赖性较弱，没有阅读顺序）。大家有任何问题，可以私信我。如果您对本专栏感兴趣，欢迎关注吧，我将带你用最简洁的代码，实现复杂的功能。

·提示：本专栏为项目实战篇，未接触项目开发的同学可能理解困难，不推荐阅读。

一、问题描述

我们已经确定了大致的方向，与业务部门沟通，进一步确定标签需要支持以下目标：
①公司存在保密要求，标签不便显示产品信息，但特定人员可以看懂。
②编号要可以人工复核，双重保障，防止识别不出可以人工干预。

​

二、解决方案

2.1 可行性分析

2.2 采用方案

二维码生成很简单，使用QRCodeEncoder可以生成一个【二维码】，但是它生成的仅仅是个【二维码】，没有文字信息记录，不符合我们的需要。

其实吧，有了【二维码】让客户放文档编辑编辑，二次加工也能符合他需求。但是吧，作为软件设计师宗旨：就是解决问题，让客户操作更便捷，能节省的步骤尽可能帮其他省略。

三、软件开发（源码）

3.1 界面设计

3.2 按钮触发事件

'============================================================================================
'函数内容: 批量生成二维码
'函数版本: 0.0.0.0
'创建人: gyc
'修改时间: 2023-02-03
'============================================================================================
'注意事项
'  1.
'  2.
'============================================================================================
Private Sub CommandButton1_Click()Dim I As IntegerFor I = 2 To 100If Cells(I, "H") <> "" ThenWith ActiveSheet.OLEObjects.Add(ClassType:="BARCODE.BarCodeCtrl.1") '添加条码控件.Name = I                 '条码命名.Object.Style = 11             '“11”代表条码样式为“QR Code”.Object.ShowData = 3             '不在条码下方显示文字内容.Left = Cells(I, "I").Left + 4      '条码左侧距离单元格左侧为4磅.Top = Cells(I, "I").Top + 4       '条码上侧距离单元格上侧为4磅.Height = 19               '条码高度为30磅.Width = 150               '条码宽度为150磅.Object.Value = Cells(I, "H")       '对条码赋值End WithElseI = 100End IfNext IMsgBox "条形码生成完毕！"End Sub

四、项目展示

关闭设计模式，点击 批量生成二维码按钮，看看效果。

五、资源链接

无，请看下文。
【C#】最全单据打印源码（打印模板、条形码&二维码、字体样式、logo）
本文链接：https://blog.csdn.net/youcheng_ge/article/details/129415723

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！