首先，要有个excel吧… 然后打开开发工具菜单.
插入 – 其他控件 – Microsoft BarCode Control 16.0 – 鼠标拉出一篇条码区域
右键二维码区域 – Microsoft BarCode Control 16.0 对象 – 属性 – 样式 – Code128
右键二维码区域 - LinKedCell 输入B1
Visual Basic 打开 Sheet1(Sheet1) 将一下代码粘贴进去保存。
至此， 已经可点宏执行了
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 |
Sub LoopAndDisplay() Dim lastRow As Long Dim i As Long Dim displayString As String ' 获取A列最后一行的行号 lastRow = Cells(Rows.Count, "A").End(xlUp).Row ' 清空B1单元格 Range("B1").ClearContents ' 设置开始行号 i = 1 ' 等待2秒后开始 Application.Wait (Now + TimeValue("0:00:02")) ' 启动循环 Do While i <= lastRow ' 获取要显示的字符串 displayString = Cells(i, "A").Value ' 在B1单元格中显示字符串 Range("B1").Value = displayString ' 等待处理未完成的事件 DoEvents ' 等待0.5秒 Application.Wait (Now + TimeValue("0:00:01")) ' 检查字符串是否已更新 If Range("B1").Value = displayString Then ' 增加行号 i = i + 1 End If Loop ' 还原B1单元格 Range("B1").Value = "https://snote.cn/" ' 清除A列 Range("A2:A9999").ClearContents End Sub |
当然了， 也可以再次插入按钮并指定宏。然后保存，数据粘贴在A列。 就可以滚动显示Code128条形码了
发表回复