EXCEL批量打印一维条码.docxVIP

EXCEL2010批量打印条码最详细教程，指天说绝对nuokin原创文档：下载以下两个字体保存到C:WINDOWS\FONT后EXCEL就能显示及打印条码了。3of9_0 code128 下图为转换成功样图： 详细方法如下： 新建任意EXCEL2010文件宏控件选项卡打开方法：如上图在任意选项卡处右击鼠标选择“自定义功能区”如右图，在弹出的对话框中勾选“开发工具”，点确定后，开发选项就加到视图后面了。如上图，单击开发工具-插入-按钮如上图，在非1、2、3列（因为1、2、3列要输入输出数据）的地方画好按钮。如上图，在弹出的对话框的宏名下面的框内输入“ZhuanTiaoMa”作为宏名称，此名称也可根据自己意愿改为其他英文字符。输完名称后点击“新建”后进入VB编辑器，将本文末3页代码输入VB程序框，“‘”后的解释程序可以不输，可以把新建宏后自动出现的如下两行删除或直接覆盖：Sub ZhuanTiaoMa()End Sub 代码拷贝成功后点击保存按钮。保存后将EXCEL文档的第一页第三列（）设为”code128”码（前提是一定将本文开始提到的两个字体考到C盘windows\font下），如下图：如下图：将按钮的文字改为“批量转条码“如下图，在EXCEL文档B3-B9单元格输入任意数字，点击按钮后自动生成条码。如想输入0开头的数字则将B3-B9单元格格式设为”TEXT” 00开头的条码生成后如下图EXCEL2003或2010中输入如下代码都能成功转条码。不想知所以然的同学输入如下两段程序代码即可（每行中，“‘”单引号后面的解释可以不输入。）想研究VB代码的同学请继续往下看解释：Sub ZhuanTiaoMa()Dim e As Integere = 3 ‘从B3单元格开始转Do While Not IsEmpty(Sheets(1).Cells(e, 2)) 只要第一页面(e, 2)单元格不为空则转码 Sheets(1).Cells(e, 3) = Code128(Sheets(1).Cells(e, 2)) Code128为下一程序框内的自定义函数，将单元格(e, 2)的字符编码后放到单元格(e, 3)中 ‘ Sheets(1)代表本工作簿第一页，(Sheets(1).Cells(e, 2))为Code128函数将要转换的单元格 e = e + 1 DO 第一次循环转B3单元格， 第二次循环转B4单元格 LoopEnd SubPublic Function Code128(Tar As String) As String 自定义Code128函数功能是给单元格加起止码和校验码。‘Tar As String 取Code128函数后面的单元格作字符 Dim s$, i%, ss$, j%, checkB%s = Tar checkB = 1 开始位（第0个字符）的码值固定为104 checkB=104mod 103 =1 整除103取余数 For i = 1 To Len(s) 对每位字符求校验码 ss = Mid(s, i, 1) j = Asc(ss) 不过滤无效字符,比如汉字.，取j的ASCii码 If j 135 Then ‘if-最近的end if 之间语句为128委员会定的求初级校验符规则，知道函数怎么运行就可以 j = j - 32 ElseIf j 134 Then j = j - 100 End If checkB = (checkB + i * j) Mod 103 此行计算单元格内所有字符初级总校验字符，整除103取余数Next If checkB 95 And checkB 0 Then ‘if-最近的end if 之间为128委员会定的求最终校验码规则，知道函数怎么运行就可以 checkB = checkB + 32 ‘根据if函数计算最终校验位ElseIf checkB 94 Then checkB = checkB + 100 ‘‘根据if函数计算最终校验位 End If Code128 = ChrW(204) s IIf(checkB, ChrW(checkB), Chr(32)) ChrW(206)End Function以下全为解释 编好的128码Code128b = ChrW(204) s IIf(checkB, ChrW(checkB), Chr(32)) ChrW(206) ChrW(204)函数功能取ASCII码为204的字符即“ì”为开始符 ‘s为输入单元格的字符串 iff(a,b,c)解释如果a=0,表达式返回b的值，如果a0,表达式返回c的值‘IIf(checkB, ChrW(checkB), Chr(32))，如果chec