我要组织一次有100多人参加的唱名表决。
接下来的 4 或 5 个名字必须显示在屏幕上,以便选民看到自己的名字并准备发言。理想情况下,这是一个可以更快/更慢或可以暂停/恢复的滚动列表。
我该怎么做?用 Impress/Powerpoint?Calc/Excel?还是其他程序?
一项要求是滚动名单的准备时间不能太长。原因如下:虽然登记了 200 个名字,但只有大约 100 人会出席。因此滚动名单可以提前准备好,但有些名字会在最后一刻被删除。
答案1
试试这个代码:
Dim iFlag As Boolean
Dim i As Integer
Sub MoveDown()
If iFlag Then
iFlag = False
Else
If i = 12 Then 'how many pages you need
i = 0
Else
i = i + 1
End If
Range("A" & i * 28 + 17).Select
Application.OnTime Now + TimeValue("0:0:2"), "movedown"
End If
End Sub
Sub StopM()
iFlag = True
End Sub