日常工作中，我们经常会使用到条形码，尤其是在仓库的库存管理，物品的SKU的保存等方面，都会使用到条形码
但是我们会使用到条形码，但是不等于我们能够生成条形码，现在你百度下，会告诉你有很多的付费软件可以生成条形码
那么获得条形码，真的有那么难吗？
其实不然，我们日常工作中常用的Excel其实就可以帮助我们生成条形码
场景说明
点击（最多18字）
这是我们今天简单模拟的数据源，我们一起来看看在Excel当中有几种方法可以实现条形码的创建
不要误会，VBA也是可以实现的，但是为了让大家能够学到更多的方法，所以今天也会将一些非VBA的方法
方法一：
利用现成的字体来实现
这个字体就是从网络下载相关的字体，然后就可以直接更换成为条形码了
这个方法操作起来也是比较方便，可以免去各种设置的麻烦。我们先来看看效果
这样是不是简单了很多，什么鬼都不用设置，就成功的实现了条形码的生成。想要这个字体的小伙伴，可以后台私信回复"zi体"，即可获得
优点：使用方便，操作简单
缺点：暂时没想到，不能设置条码底部的数字不知道算不算
方法二：
Excel自带控件实现
优点：好像没有，反正我感觉用起来也不太方便
缺点：没有优点就算是缺点吧
方法三：
vba的方法，一起来看看
代码区
Sub一维码()
Application.ScreenUpdating=False
OnErrorResumeNext
DimrngAsRange,rngDataAsRange,shtAsWorksheet
SetrngData=Application.InputBox("请选择需要生成条形码的区域",,,,,Type:=8)
Setsht=rngData.Parent
SetrngData=Intersect(rngData,sht.UsedRange)
IfrngDataIsNothingOrErrThen
MsgBox"你未选择有效的区域，程序退出"
ExitSub
EndIf
sht.Select
ForEachshpInsht.Shapes
IfInStr(shp.Name,"BarCodeCtrl")Thenshp.Delete
Next
ForEachrngInrngData
Withsht.OLEObjects.Add(classtype:="BARCODE.BarCodeCtrl.1")
.Object.Style=6
.LinkedCell=rng.Address
.Height=rng.Height-2
.Width=rng.Width-2
.Left=rng.Left
.Top=rng.Top
EndWith
Next
Application.ScreenUpdating=True
EndSub
直接来看看效果
同样也是快速的生成了条形码，并且VBA代码的亮点就是，条形码的下面还有数字！
这样的效果比单纯一个条码要好很多，有没有！
今天的代码，属于拿来即用的范畴，大家直接COPY就好。
转载请注明：http://www.0431gb208.com/sjszjzl/1255.html
