Excel自动生成条码工具

如果需要在Excel制作条码，大家一般会想到Microsoft Barcode控件，但是这个控件使用起来并不是很方便。其实不少网站都可以产生条码，利用Excel中的选择性粘贴可以轻松实现在工作表中插入条码图片。
示例代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)Dim objDO As ObjectDim objPic As ObjectDim strHTML As StringApplication.EnableEvents = FalseWith TargetIf .Count = 1 ThenIf Len(.Value) > 0 And .Column = 1 ThenSet objDO = New MSForms.DataObjectstrHTML = "<html><img src=""http://apps.99wed.com/360app/barcode/barcode.php?codebar=BCGcode128&text="strHTML = strHTML & .Value & "&resolution=5&thickness=30"" > " & Chr(10)Debug.Print strHTMLWith .Offset(0, 1).SelectobjDO.SetText strHTMLobjDO.PutInClipboardActiveSheet.PasteSpecial Format:="Unicode 文本", Link:=False, DisplayAsIcon:=FalseSet objPic = Selection.ColumnWidth = objPic.Width / 6.8.RowHeight = objPic.HeightEnd WithEnd IfEnd IfEnd WithSet objDO = NothingSet objPic = NothingApplication.EnableEvents = True
End Sub

【代码解析】
第5行代码禁止系统事件激活，避免重复激活可能引起的死循环。
第7行代码判断发现变化的单元格是否为单个单元格。
第8行代码判断如果发现变化的单元格在第一列，并且单元格内容为非空，那么执行后续操作。
第9行创建DataObject对象。
第10~11行代码创建HTML代码，调整其中的codebar、resolution和thickness参数值可以获得不同类型和风格的条码。
第14行代码选择右侧单元格。
第16行代码将HTML代码放置到剪贴板。
第17行代码进行选择性粘贴。
第19~20行代码设置行高和列宽。
第25~26行代码是否对象变量占用的系统资源。
第27行代码恢复系统事件的机制。

在示例工作表第1列输入条码数字，在第二列将自动产生条码，如下图所示。

Excel自动生成条码工具相关推荐

php生成表格和读取,phpexcelreader读取excel自动生成表跟字段
phpexcelreader读取excel自动生成表和字段这个主要是采用phpexcelreader的功能实现,根据excel的文件名和excel第一行生成表名及字段,数据从第二行开始依次导入. p ...
excel计算式自动计算_45套电气自动计算表格+计算软件！EXCEL自动生成版分享
45套电气自动计算表格+计算软件!EXCEL自动生成版分享! 做电气工程都知道计算表格计算量有多大,不仅计算量大,而且还容易出错!因为计算细节是很多的,一不留神就有可能出错! 最重要的是,数据出错了会 ...
自动生成代码工具模板工具类
自动生成代码工具模板工具类 import java.io.BufferedWriter; import java.io.FileOutputStream; import java.io.Output ...
Excel 自动生成序号公式
excel 自动生成序号的问题 excel 自动生成序号的问题(有些行是多行合并的) 方法是:在a1中填1 从上往下选中下面需填充的单元格,输入公式 =MAX(INDIRECT("A$ ...
用Excel自动生成工作表目录
用Excel自动生成工作表目录,挺好的,不会的童鞋看看哦~也许能用上的~ Alt+F11---------插入--------模块--------把下面的代码拷贝到模块中,直接将程序复制过去,运行-- ...
（Java程序）Excel自动生成mysql表
读取excel生成字段最近项目中遇到了一个费时间的事,就花了点时间写了一个小程序来做这件事. description:现在在项目的前期设计阶段,需要从excel的数据库表格字段生成数据库,开始是手动 ...
Simulink 从Excel自动生成数据字典
Simulink中从Excel自动生成数据字典 1. Excel文件定义 2. 源码分析 2.1 概述 2.2 确定Excel和m文件名 2.2 读取excel文件 2.3 逐行提取excel数据 2 ...
excel自动生成UUID
excel自动生成UUID公式 =CONCATENATE(IF(RANDBETWEEN(1,2)=1,CHAR(RANDBETWEEN(0,9)+48),CHAR(RANDBETWEEN(0,5)+9 ...
又一个Jupyter神器，操作Excel自动生成Python代码
来源 | Python数据科学(ID: PyDataScience) 不得不说,Jupyter对于表的处理真的是越来越方便了,很多库可以直接实现可视化操作,无需写代码.但是这还不够,最近看到一个神器叫 ...

Excel自动生成条码工具

Excel自动生成条码工具相关推荐

最新文章

热门文章