14.Excel vba开发-随机点名

最新推荐文章于 2023-07-02 16:06:09 发布

牛code

最新推荐文章于 2023-07-02 16:06:09 发布

阅读量1k

点赞数 3

分类专栏： excel vba开发

本文链接：https://blog.csdn.net/qq_25064691/article/details/126136470

版权

vba

excel vba开发专栏收录该内容

18 篇文章 5 订阅

订阅专栏

1.需求：进行学生点名

2.代码：

Sub 随机点名()
 Dim rng As Range
 Set rng = Range("B:B").Find("姓名")
 start_row = rng(2, 1).Row
 end_row = rng.End(xlDown).Row
 i = Int(Rnd * (end_row - start_row + 1))
 If i < 1 Then
 rng(3, 3) = "轮空"
 Else
   rng(3, 3) = Cells(i, 2)
 ssr = "请" & rng(3, 3).Value & "同学回答问题"
 Application.Speech.Speak ssr
 End If
 
End Sub

Private Sub 开始_Click()
 Call 随机点名
End Sub