excel抽奖程序

excel抽奖程序

制作‌Excel抽奖程序的方法有很多种，以下是几种不同的方法：单人抽奖：准备抽奖名单：将名单放在Excel的A列。在B列输入公式=RAND()，并拖动填充至列表的底部。在抽奖的单元格位置输入公式=INDEX(A:A,RANK(B1,B:B))，按F9键开始抽奖。‌多人抽奖：准备抽奖名单放在A列。在B列输入=RAND()函数，并拖动填充至列表的底部。如果想进行多人抽奖，直接在B列拖动单元格向下填充几个即可。在抽奖的单元格位置输入公式=INDEX(A:A,SMALL(IF(B$1:B$100=B1,ROW($A$1:$A$100),""),RANK(B1,B:B))，按住F9键不放，屏幕开始滚动显示中奖者的名字。利用辅助列进行多人抽奖：在姓名右侧输入公式=RAND()并下拉填充。在单元格中输入=SMALL(IF(B$1:B$100=B1,A$1:A$100,""),RANK(B1,B:B))，然后下拉填充想要的中奖人数。按住F9键不放，开始滚动抽奖。‌制作抽奖小程序：打开Excel的开发者工具，插入按钮并选择指定宏。编写VBA程序，例如Sub ASD_Click() Dim a As Integer Randomize。‌另存为启用宏的.xlsm文件，通过按钮点击进行抽奖。随机选奖品：将奖品列在旁边。做一个大的单元格，输入公式从1到13随机选择一个数字，这个数字对应奖品列表中的一个奖品。按住F9键随机选择奖品。‌