excel随机点名表制作,看是否使用辅助列

excel随机点名表制作,看是否使用辅助列，具体步骤是：

第一步、新建一个Excel表格，把学生名单复制到第一列（A列）。

随机点名器布局

第二步、在旁边的绿色背景的表格中输入公式：=INDIRECT("A"&RANDBETWEEN(3,21)) ，表示从A列的第3~21行随机取值，您可以根据自己情况修改。

第三步、调整点名单元格文字大小，可以设置为72或者更大，设置21行辅助列。

第四步、长按F9，随时停下来，达到随机点名的效果。

思路：1、定义一个字典，把名字和数字对应起来；2、引用随机模块；3、输入要点名的个数，通过循环输出名字。

具体代码如下：

# -*- coding:utf-8 -*-

from random import randint

DictName = {1: 'Aaron',

2: 'Abel',

3: 'Abraham',

4: 'Adam',

5: 'Adrian',

6: 'Alva',

7: 'Alex',

8: 'Alexander',

9: 'Alan',

10: 'Albert',

11: 'Alfred',

12: 'Andrew',

13: 'Andy',

14: 'Angus',

15: 'Anthony',

16: 'Arthur',

17: 'Austin',

18: 'Ben',

19: 'Benson',

20: 'Bill',

21: 'Bob',

22: 'Brandon',

23: 'Brant',

24: 'Brent',

25: 'Brian',

26: 'Bruce',

27: 'Carl',

28: 'Cary',

29: 'Caspar',

30: 'Charles',

31: 'Cheney',

32: 'Chris',

33: 'Christian',

34: 'Christopher',

35: 'Colin',

36: 'Cosmo',

37: 'Daniel',

38: 'Dennis',

39: 'Derek',

40: 'Donald',

41: 'Douglas',

42: 'David',

43: 'Denny',

44: 'Edgar',

45: 'Edward',

46: 'Edwin',

47: 'Elliott',

48: 'Elvis',

49: 'Eric',

50: 'Evan',

51: 'Francis',

52: 'Frank',

53: 'Franklin',

54: 'Fred',

55: 'Gabriel',

56: 'Gaby',

57: 'Garfield',

58: 'Gary'}

Num = raw_input('请输入需要点名个数:')

flag = True

while flag:

    if Num.isdigit():

        Ind = int(Num)

        flag = False

    else:

        print '输入错误,请确认'

else:

    for i in range(Ind):

        print DictName[randint(1,58)]

运行结果：

请输入需要点名个数:4

Brant

Cheney

David

Alan

1. 新建一个Excel文件，命名为“随机点名”后保存。在A1中输入姓名，在B1中输入“每组人数”，在C1中输入“分组”，在A2、A3……中输入学员名子。

2. 单击“工具”宏Visual Basic，后进入编辑窗口。

3. 右击“Microsoft Excel对象”，选择“插入”“模块”。

4. 双击“模块1”，将以下代码输入右侧的代码编辑区：Sub rollcall()Dim class As RangeSet class = Range("A2", Range("A2").End(xlDown))n = class.Rows.CountRandomizeMsgBox class(Int((n + 1) * Rnd + lowerbound), 1)End Sub

5. 关闭Visual Basic编辑器，回到Excel窗口。6. 单击“视图”工具栏窗体，d出“窗体工具箱”。7. 在窗体工具箱中单击“按钮”，在Excel中拖拉出一个按钮，松开鼠标后，d出“指定宏”对话框，从中选择rollcall后单击“确定”按钮。

8. 再次保存Excel文件，并关闭“窗体工具箱”。至此，该程序就可以使用了。

---