如何使手机号码随机滚动和随机选定？

作者：绿色风分类：时间：2022-08-17 浏览：187

楼主
研究研究

Q:如何使手机号码随机滚动和随机选定?

A: 如A列有20个手机号码，按下按纽让号码随机滚动.但是如何让VBA的操作权再次转移。
首先我想到 Application.OnTime Now + TimeValue("00:00:01"), "sss"
但是低于一秒的不行，也就是说跳转速度太慢！放弃
经弦月老师指点用 Until和DoEvents 最后测试成功

4.rar

Option Explicit
Dim a As Boolean
Sub asa()
a = Not a
Call test1
End Sub

Sub test1()
Dim t As Single, x As Long
For x = 1 To 10
x = 2
t = Timer
If a = True Then
Do Until Timer > t + 0.1
Range("c4") = Application.Evaluate("=INDEX(A:A,ROUND(RAND()*19+1,))")
DoEvents
Loop
Else
Exit Sub
End If
Next x
End Sub

再次感谢弦月老师

2楼
海洋之星

跟抽奖有点像,哈哈

3楼
bluexuemei

学习，有点意思！

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表