网站首页 / 育儿 / 正文

怎么用字符串生成二维码(二维码制作小程序)

时间:2022-04-14 15:25:04 浏览:6910次 作者:用户投稿 【我要投诉/侵权/举报 删除信息】

多条告白如次剧本只需引入一次

消费企业大概物流特快专递须要用到洪量的二维码和线形码,然而要自行编写代码批量天生二维码大概线形码并不简单,波及的常识面很广。

Excel插件《E灵》供给了二维码接口和线形码接口,您只须要一句代码挪用接口就不妨天生二维码,一句代码挪用线形码接口就不妨天生线形码。共同轮回语句就不妨批量天生二维码大概线形码了。简直操纵如次:

一:载入并安置插件 E灵。不妨百度探求、载入

二:安置胜利此后翻开Excel不妨看到“E灵”选项卡。

E灵的操纵界面

三:运用VBA挪用二维码接口天生二维码

挪用E灵的二维码接书面语法如次:

Application.COMAddIns.Item(“Eling”).Object.ma “二维码实质”,莫大(单元:厘米) , 单位格, 边距(单元:磅)

参数证明

1.进程称呼 Ma,完备抄写办法是:Application.COMAddIns.Item(“Eling”).Object.ma

2.它有四个参数,第一参数是天生二维码的值,文本方法,比方“中华群众民主国”大概Range(“a1”).value

3.第二参数是二维码的寄存场所,用单位格表白,比方Range(“b2”).

4.第三参数是二维码的莫大,以厘米为单元

5.第四参数是二维码的边距,值为0时表白靠边,值为2表白上边距为2(单元是磅)。

代码举例

1.用”20190325-24″ 天生3厘米高的二维码,放在C3单位格中

Sub 天生单个二维码()

Application.COMAddIns.Item(“Eling”).Object.ma “20190325-24”, 3, Range(“c3”), 2

End Sub

2.用订单号子、型体称呼、单元和数目批量天生二码

Sub 批量天生二维码()

Dim cell As Range, RowItem As Integer, Mysrt As String, Eling As Object

Set Eling = Application.COMAddIns.Item(“Eling”).Object

Application.ScreenUpdating = False

With Range(“a2:d10”) ‘按照本人的情景窜改范畴

For RowItem = 1 To .Rows.Count

Mysrt = “”

For Each cell In .Rows(RowItem).Cells

If Len(cell.Value) > 0 Then Mysrt = Mysrt & “,” & cell.Value

Next cell

Eling.ma Mid(Mysrt, 2, 999), 1.5, Cells(RowItem + 1, “E”), 2

Next RowItem

Application.ScreenUpdating = True

MsgBox “天生结束,所有” & .Rows.Count & “个二维码”, vbOKOnly, “提醒”

End With

End Sub

3.用订单号子、型体称呼、单元和数目批量天生二维码

Sub 批量天生含题目的二维码()

Dim cell As Range, RowItem As Integer, ColCount As Byte, Mysrt As String, Eling As Object

Set Eling = Application.COMAddIns.Item(“Eling”).Object

Application.ScreenUpdating = False

With Range(“a2:d10”) ‘按照本人的情景窜改范畴

For RowItem = 1 To .Rows.Count

Mysrt = “”: ColCount = 0

For Each cell In .Rows(RowItem).Cells

ColCount = ColCount + 1

Mysrt = Mysrt & vbCrLf & Cells(1, ColCount) & “:” & cell.Value

Next cell

Eling.ma Mid(Mysrt, 3, 999), 1.5, Cells(RowItem + 1, “E”), 2

Next RowItem

Application.ScreenUpdating = True

MsgBox “天生结束,所有” & .Rows.Count & “个二维码”, vbOKOnly, “提醒”

End With

End Sub

动画演练一下

动画演练 天生二维码

四:用VBA天生线形码熏陶

挪用E灵的线形码接书面语法如次:

TXM(“线形码实质”, “源代码”, 莫大, 单位格东西, “字体”, 牌号, 加宽倍数)

参数证明

1.进程称呼 Ma,完备抄写办法是:Application.COMAddIns.Item(“Eling”).Object.ma

2.第一参数是线形码的实质,不许含有华文

3.第二参数是线形码的源代码,可选值是”Code128A”,“Code128B”和”Code128C”,个中Code128C天生的图片更窄,但它不扶助假名,只扶助数值。

4.第三参数是莫大,单元为磅,常常在40-60之间,不宜过高大概过低。

5.第四参数是单位格东西,线形码须要放在哪个单位格,就用哪个单位格东西

6.第六参数是字体称呼,不妨是”宋体”、“黑体”、“Impact”、”Arial”之类

7.第六参数是牌号,即线形码下方的字符巨细,常常用10即可,不宜太大。

8.第七参数是加宽倍数,0表白不加宽,1表白加宽一倍,不扶助少量

9.请尽管用10号字体,要不大概不居中。

代码举例

1.用“3265798487”天生Code128C典型的莫大为50磅的线形码,寄存在A1单位格中。线形码的字符沿用10号老宋体。

Sub 天生单个线形码()

Application.COMAddIns.Item(“Eling”).Object.tiaoma “3265798487”, “Code128C”, 50, Range(“a1”), “黑体”, 10, 0

End Sub

2.用B2:B7地区的值天生线形码,寄存在D2:D7地区中:

Sub 批量天生()

Dim cell As Excel.Range ‘证明变量

WithApplication.COMAddIns.Item(“Eling”).Object ‘挪用E灵插件接口

For Each cell In Range(“b2:b7”) ‘遍历b2:b7地区的每一个单位格

‘调用功具TiaoMa来天生线形码,插入线形码时会机动安排单位格的莫大

.tiaoma cell.Value, “Code128B”, 50, cell.Offset(0, 2), “黑体”, 10, 0

Next

End With

End Sub

动画演练一下

演练线形码的天生办法

内置的二维码批量天生办法

固然,您也不妨不经过代码操控二维码与线形码,径直挪用E灵内置的东西也不妨实行。简直的操纵办法请看以次视频讲义:

版权声明:
本文内容由互联网用户自发贡献,该文观点仅代表作者本人,因此内容不代表本站观点、本站不对文章中的任何观点负责,内容版权归原作者所有、内容只用于提供信息阅读,无任何商业用途。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站(文章、内容、图片、音频、视频)有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至353049283@qq.com举报,一经查实,本站将立刻删除、维护您的正当权益。