分享行业VBA工具：条形码生成工具

lenlydia · 发表于 2017-10-12 14:09

谢谢分享，下载学习一下

zjgzgs · 发表于 2017-10-12 14:56

ERRTTTTTTTTTTTTTTTTT

yangjian5594588 · 发表于 2017-10-19 08:22

23132123453

yejx88 · 发表于 2017-11-18 18:13

下来看一看

leoparddi · 发表于 2018-1-22 13:01

条形码生成工具 [[url=]修改[/url]]

bomod · 发表于 2018-1-30 08:12

真的是好帖子

wictilas · 发表于 2018-1-30 17:57

good dog google ggg !

18270197059 · 发表于 2018-4-1 19:55

KK

31558770 · 发表于 2018-4-9 15:12

这个不错啊

ddyy004 · 发表于 2018-6-6 15:46

Private Sub Worksheet_Change(ByVal Target As Range)
For Each barcode In ActiveSheet.OLEObjects
If LCase(barcode.Name) Like "barcodectrl*" Then
      With barcode
      m = .Height
      .Height = m - 1
      .Height = m
      End With
End If
Next
End Sub

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

[待分类] 分享行业VBA工具：条形码生成工具