Excel:vba实现生成随机数

复制代码
Sub 生成随机数字()
    Dim randomNumber As Integer
    Dim minValue As Integer
    Dim maxValue As Integer
    
    ' 设置随机数的范围(假入班级里面有43个学生,学号是从1→43)
    minValue = 1
    maxValue = 43
    
    ' 生成随机数(在1到43之间生成随机数)
    randomNumber = Application.WorksheetFunction.RandBetween(minValue, maxValue)
    
    ' 显示结果
    MsgBox "生成的随机数字是: " & randomNumber
End Sub

随机点名:(可能会出现重复的)

复制代码
Sub 随机点名()
    Dim randomIndex As Integer
    Dim selectedName As String
    Dim lastrow As Integer
    
    '获取最后一行
    lastrow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 生成随机索引,即名字前面的行号(在第一行到最后一行之间进行选择)
    randomIndex = Application.WorksheetFunction.RandBetween(1, lastrow)
    
    ' 获取选中的名字
    selectedName = Cells(randomIndex, 1).value
    
    ' 显示结果
    MsgBox "选中的名字是: " & selectedName
End Sub
相关推荐
UrbanJazzerati3 小时前
使用Excel制作多类别占比分析字母饼图
excel
The Future is mine6 小时前
Python实现文件夹中文件名与Excel中存在的文件名进行对比,并进行删除操作
excel
Tomorrow'sThinker13 小时前
[特殊字符] Excel 读取收件人 + Outlook 批量发送带附件邮件 —— Python 自动化实战
python·excel·outlook
盛夏绽放15 小时前
ExcelJS 完全指南:专业级Excel导出解决方案
excel·有问必答
bing_15819 小时前
Excel 如何进行多条件查找或求和?
excel
秀儿还能再秀19 小时前
基于Excel的数据分析思维与分析方法
数据分析·excel
bing_15819 小时前
Excel 如何处理更复杂的嵌套逻辑判断?
excel
weixin_4723394619 小时前
高效处理大体积Excel文件的Java技术方案解析
java·开发语言·excel
灵犀学长19 小时前
EasyExcel之SheetWriteHandler:解锁Excel写入的高阶玩法
spring boot·excel
全干engineer1 天前
Spring Boot 实现主表+明细表 Excel 导出(EasyPOI 实战)
java·spring boot·后端·excel·easypoi·excel导出