Question

用Excel随机点名程序，能否自动定位到被点中的那一项上？

http://www.qiexing.com/upload/2009/7/%E9%9A%8F%E6%9C%BA%E5%88%86%E7%BB%84%E7%A8%8B%E5%BA%8F.xls

我从上面的网址下载了个自动点名程序，用Excel做的，基本满足我的需求，除了一点问题：
目前随机点中者产生后，Excel不能自动定位到该人名上，而得靠你自己手动去找到它。这样一来，倘若名单含30个人以上，手动去找将十分困难。
能否修改成自动定位到该被点中者上？
谢谢。

Answer 1

Sub PickSomebody()
Dim class As Range
Set class = Range("A2", Range("A2").End(xlDown))
n = class.Rows.Count
' get a random seed first,to get the random number
Randomize
s = (Int(n * Rnd + 1))
MsgBox class(s)
Cells(s + 1, 1).Select
End Sub

Answer 2

新鲜，比我用的好多了！