二维码ean13码改成批量生成

林程乐 · 发表于 2024-11-28 10:45

各位老师，这个表格的ean13码只能生成一个，改成批量生成会出错。请帮忙改一下。

3190496160 · 发表于 2024-11-28 11:06

这个附件生成条形码的思路就是非常不合理，也是不够高效的

林程乐 · 发表于 2024-11-29 10:35

3190496160 发表于 2024-11-28 11:06
这个附件生成条形码的思路就是非常不合理，也是不够高效的

老大，有何办法能改一下。

opiona · 发表于 2024-11-30 10:36

Rem 声明一个引用
Set QR = CreateObject("GTDQRcodeZX.QRcode")
Rem 条形码字符串
StrCode = Format(Now, "yyyyMMdd") & Format(I, "00000")
StrCode = "6972252751389"
BOOL = QR.TXCodeToClipboard(StrCode:=StrCode, IType:="EAN-13", PWidth:=300, PHeight:=0, ZCM:="QQ14885553")

复制代码

林程乐 · 发表于 2024-11-30 15:07

opiona 发表于 2024-11-30 10:36
https://club.excelhome.net/thread-1535960-1-1.html

谢谢。我上传那个是纯代码的，我不知道好何改。你可下载附件。帮忙改一下。

opiona · 发表于 2024-11-30 19:46

本帖最后由 opiona 于 2024-11-30 22:36 编辑

调用类每生成一个之前重新调用一下

代码借用了一下详见: 40楼 https://club.excelhome.net/thread-1535960-1-1.html

林程乐 · 发表于 2024-12-1 15:33

opiona 发表于 2024-11-30 19:46
调用类每生成一个之前重新调用一下

谢谢老师。问题解决了。

林程乐 · 发表于 2024-12-4 14:10

opiona楼主你好，这个代码不知道是那位高手发的。很有意思。A1单元格加了公式，改变A1单元格能生成不同二维码和条形码。你研究一下。能不能改成批量生成。

林程乐 · 发表于 2024-12-4 14:11

opiona 发表于 2024-11-30 19:46
调用类每生成一个之前重新调用一下

opiona楼主你好，这个代码不知道是那位高手发的。很有意思。A1单元格加了公式，改变A1单元格能生成不同二维码和条形码。你研究一下。能不能改成批量生成。

opiona · 发表于 2024-12-4 16:49

没研究明白
其实二维码有纯血VBA的实现方式
条形码有时一个控件, 或者字体就能解决的

		自动登录	找回密码
密码			免费注册

[求助] 二维码ean13码改成批量生成