AutoCode128.xlsm

首先，要有个excel吧… 然后打开开发工具菜单.

插入 – 其他控件 – Microsoft BarCode Control 16.0 – 鼠标拉出一篇条码区域
右键二维码区域 – Microsoft BarCode Control 16.0 对象 – 属性 – 样式 – Code128
右键二维码区域 - LinKedCell 输入B1
Visual Basic 打开 Sheet1(Sheet1) 将一下代码粘贴进去保存。

至此，已经可点宏执行了

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

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条形码了

山归山博主

Sub LoopAndDisplay() '定义一个名为 LoopAndDisplay 的过程
    Dim lastRow As Long '定义长整型变量用于存储 A 列最后一行行号  @获取 A 列最后一行行号
    Dim i As Long '定义长整型变量用于循环计数  @循环计数变量
    Dim displayString As String '定义字符串变量用于存储要显示的字符串  @存储要显示的字符串
    Dim waitTime As Double '定义双精度变量用于控制等待时间  @控制等待时间
    Dim e1Value As Double '定义变量用于存储 E1 单元格的值  @E1 单元格值变量

    lastRow = Cells(Rows.Count, "A").End(xlUp).Row '获取 A 列最后一行行号并赋值给 lastRow  @获取 A 列最后一行行号
    Range("B1").Value = "ready Go" '将 B1 单元格内容改为"ready Go"  @设置 B1 单元格内容
    i = 1 '设置循环起始值为 1  @设置循环起始值
    e1Value = CDbl(Range("E1").Value) '读取 E1 单元格的值并转换为双精度类型  @获取并转换 E1 单元格值
    waitTime = Timer + e1Value '设置等待时间为当前时间加上 E1 单元格的值  @设置等待时间
    Do While Timer < waitTime '当当前时间小于等待时间时执行 DoEvents 来处理未完成事件  @等待时间循环
        DoEvents
    Loop
    Do While i <= lastRow '开始循环，当 i 小于等于最后一行行号时  @循环条件
        displayString = Cells(i, "A").Value '获取当前行 A 列的字符串并赋值给 displayString  @获取当前行字符串
        Range("B1").Value = displayString '将获取到的字符串显示在 B1 单元格  @显示字符串在 B1 单元格
        waitTime = Timer + e1Value '设置新的等待时间为当前时间加上 E1 单元格的值  @更新等待时间
        Do While Timer < waitTime '当当前时间小于等待时间时执行 DoEvents 来处理未完成事件  @等待时间内循环
            DoEvents
        Loop
        If Range("B1").Value = displayString Then '如果 B1 单元格的值等于获取到的字符串  @判断条件
            Range("B1").Value = "https://snote.cn/" '将 B1 单元格的值修改为指定网址  @修改 B1 单元格值
            i = i + 1 '循环计数加 1  @更新循环计数
        End If
    Loop
    Range("A2:A9999").ClearContents '清空 A2 到 A9999 区域的内容  @清空区域内容
End Sub

Sub LoopAndDisplay() '定义一个名为 LoopAndDisplay 的过程

Dim lastRow As Long '定义长整型变量用于存储 A 列最后一行行号 @获取 A 列最后一行行号

Dim i As Long '定义长整型变量用于循环计数 @循环计数变量

Dim displayString As String '定义字符串变量用于存储要显示的字符串 @存储要显示的字符串

Dim waitTime As Double '定义双精度变量用于控制等待时间 @控制等待时间

Dim e1Value As Double '定义变量用于存储 E1 单元格的值 @E1 单元格值变量

lastRow = Cells(Rows.Count, "A").End(xlUp).Row '获取 A 列最后一行行号并赋值给 lastRow @获取 A 列最后一行行号

Range("B1").Value = "ready Go" '将 B1 单元格内容改为"ready Go" @设置 B1 单元格内容

i = 1 '设置循环起始值为 1 @设置循环起始值

e1Value = CDbl(Range("E1").Value) '读取 E1 单元格的值并转换为双精度类型 @获取并转换 E1 单元格值

waitTime = Timer + e1Value '设置等待时间为当前时间加上 E1 单元格的值 @设置等待时间

Do While Timer < waitTime '当当前时间小于等待时间时执行 DoEvents 来处理未完成事件 @等待时间循环

Do While i <= lastRow '开始循环，当 i 小于等于最后一行行号时 @循环条件

displayString = Cells(i, "A").Value '获取当前行 A 列的字符串并赋值给 displayString @获取当前行字符串

Range("B1").Value = displayString '将获取到的字符串显示在 B1 单元格 @显示字符串在 B1 单元格

waitTime = Timer + e1Value '设置新的等待时间为当前时间加上 E1 单元格的值 @更新等待时间

Do While Timer < waitTime '当当前时间小于等待时间时执行 DoEvents 来处理未完成事件 @等待时间内循环

If Range("B1").Value = displayString Then '如果 B1 单元格的值等于获取到的字符串 @判断条件

Range("B1").Value = "https://snote.cn/" '将 B1 单元格的值修改为指定网址 @修改 B1 单元格值

i = i + 1 '循环计数加 1 @更新循环计数

Range("A2:A9999").ClearContents '清空 A2 到 A9999 区域的内容 @清空区域内容

6 月前回复

发表回复 取消回复

发表回复取消回复