Excel中，如何用VBA自动记录中奖工号，如图？

Question

Excel中，如何点击开始抽奖后，对于刷新出来的工号，用VBA自动记录，如图

Answer 1

要在Excel中实现点击开始抽奖后，自动记录刷新出来的工号，你可以使用VBA（Visual Basic for Applications）编写一个宏。下面是一个简单的步骤指南，帮助你实现这个功能：

步骤 1: 打开Excel并打开你的工作簿

打开Excel应用程序。

打开包含你想要自动记录数据的工作簿。

步骤 2: 插入VBA代码

按下 Alt + F11 键，打开VBA编辑器。

在VBA编辑器中，选择你的工作簿。

在工作簿中，右击你想要放置代码的工作表，选择“插入” -> “模块”。

在新模块的代码窗口中，粘贴以下代码：

vba复制代码

Sub RecordLuckyNumbers()    

' 定义变量    

Dim rng As Range    

Dim cell As Range    

Dim luckyNumber As String    

Dim lastRow As Long    

' 设置要检查的区域，例如A列    

Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1:A100") ' 根据实际情况修改范围    

' 检查区域中的每个单元格    

For Each cell In rng    

' 如果单元格的值是刷新出来的工号（例如"20230101"），则记录下来    

If cell.Value = "刷新出来的工号" Then ' 根据实际情况修改匹配的值或条件    

luckyNumber = cell.Value    

Exit For    

End If    

Next cell    

' 找到要记录的行（例如B列）的最后一行    

lastRow = ThisWorkbook.Sheets("Sheet1").Cells(Rows.Count, "B").End(xlUp).Row + 1    

' 将记录的工号写入B列的下一行    

ThisWorkbook.Sheets("Sheet1").Cells(lastRow, "B").Value = luckyNumber    

End Sub    

保存并关闭VBA编辑器。

步骤 3: 测试宏

在Excel中，点击“开发工具”选项卡（如果没有显示，请按下 Alt + F11 键打开VBA编辑器，然后选择“视图” -> “选项卡” -> “开发工具”）。

在“开发工具”选项卡中，点击“宏”按钮。

在弹出的宏列表中，选择你刚刚创建的宏（例如“RecordLuckyNumbers”），然后点击“运行”。

此时，如果A列中有匹配的值出现，它应该会记录到B列的下一行。

注意事项：

根据你的具体需求调整代码中的单元格范围、匹配值等。

如果宏没有按预期工作，请确保Excel的安全性设置允许运行宏。你可以在“文件” -> “选项” -> “信任中心” -> “信任中心设置” -> “宏设置”中进行检查和调整。

Answer 2

使用VBA的随机函数RANDBETWEEN()来抽取数字，并将未被抽中的数字随机在A1单元格快速滚动出现。

点击“停止”按钮，数字停止滚动，当前数字即为抽中的数字，并且数字会自动记录到“中奖号码区域”中。

点击“复位”按钮，可清除所有中奖号码，重新开始。