EXCEL做随机抽奖摇奖器
当年终时，有些企业会组织职工联欢会，可能还会搞个抽奖的小节目增添乐趣，下面就介绍一个用EXCEL做的简单的抽奖工具。
第一步：画表格假设共有30位职工，就需要30个号码，先按下图的样子把1至30个号码填列到一个工作表中。为了美观，可以把字体设成自己喜欢的颜色，加上边框，再把号码以外的网格线隐藏起来。
设置字体颜色：选中B2:F7区域，按“格式－单元格”，选“字体”选项卡，里面可设置字体颜色（也可在上面工具栏中的“字体颜色”中设置）。
加边框：选中B2:F7区域，按“格式－单元格”，选“边框”选项卡，在“颜色”中选“青色”，再从“线条样式”中选择双线，点“外边框”，设置外边框为青色双线型；同样步骤，从“边框”选项卡的“颜色”中选“兰色”，再从“线条样式”中选择细实线，点“内部”，设置单元格内部边框为兰色的细实线。
隐藏网格线：按上面菜单栏上的“工具－选项”，在“视图”选项卡中，去掉“网格线”前的勾即可。
第二步：编写代码在工作表下面的标签上点鼠标右键，选“查看代码”，调出VBA窗口，把下面代码复制进去就行了。
Dim a As Integer '定义公共变量 Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub 随机() Dim x As Integer Dim y As Integer a = 0 Randomize '初始化 10: x = Rnd() * (7 - 2) + 2 '生成2至7的随机数，代表行数 y = Rnd() * (6 - 2) + 2 '生成2至6的随机数，代表列数 Range("b2:f7").Interior.ColorIndex = xlNone '去掉填充色 Cells(x, y).Interior.ColorIndex = 3 '填充为红色 DoEvents '释放程序控制权，允许其他事件 Sleep (10) '延时ms DoEvents '释放程序控制权，允许其他事件 If a = 1 Then Exit Sub '如果按下“结束”钮则终止程序 GoTo 10 End Sub Sub 结束() a = 1 '结束标志 End Sub
第三步：添加按钮回到EXCEL窗口，按“视图－工具栏－窗体”，调出“窗体”工具栏，用上面的“按钮”工具在屏幕上添加两个按钮，在每个按钮上点右键，选“编辑文字”，一个输入“开始”，另一个输入“结束”。在两个按钮上分别按鼠标右键，指定宏。
第四步：测试以上操作完成后，就可以使用了，点击“开始”按钮，会有一个红色方块随机的在各号码上闪动，当按“结束”按钮时，红色方块会静止在某一个号码上，表示抽中此号。
绛旓細1銆侀鍏堟墦寮excel杞欢锛屽苟杈撳叆鐩稿叧鐨勪俊鎭2銆佸湪鍥剧ず鐨勫崟鍏冩牸杈撳叆鈥=rand锛堬級鈥濓紱杩欎釜鏄骇鐢熼殢鏈烘暟鐨勫嚱鏁銆3銆佹暡鍑诲洖杞﹂敭灏变細鑾峰緱璇ヤ綅鎴愬憳鐨勯殢鏈烘暟銆4銆佽繘琛屼笅鎷夊氨鑳芥妸鍏ㄩ儴鎴愬憳鐨勯殢鏈烘暟浜х敓浜嗐5銆佸湪鍥剧ず鐨勫崟鍏冩牸杈撳叆鈥=INDEX(A$3锛欰$10锛孯ANK(B3锛孊$3锛欱$10))鈥濄6銆佹暡鍑诲洖杞﹂敭锛屽氨浼氳幏寰椾竴涓...
绛旓細鎵浠ユ垜浠鍏堣鍋氱殑灏辨槸鍒╃敤RAND鍑芥暟鐢熸垚涓鍒闅忔満鏁般傚湪E2杈撳叆鍏紡鈥=RAND()鈥濓紝涓嬫媺濉厖鑷矱7锛屼负姣忎綅鍛樺伐鐢熸垚涓涓殢鏈哄垢杩愭暟瀛椼 StepC灏忎紮浼翠滑閮界煡閬擄紝INDEX鍑芥暟琛屽垪鍙傛暟鍙兘涓烘暣鏁帮紝鎵浠ユ垜浠渶瑕佸皢灏忔暟杞崲涓烘暣鏁帮紝寮虹儓鎺ㄨ崘浣跨敤RANK鎺掑悕鍑芥暟鏉ュ疄鐜帮紝鍥犱负姣忎釜鏁版嵁鏄殢鏈虹殑锛屾墍浠ユ帓鍚嶇粨鏋滃綋鐒朵篃鏄殢鏈...
绛旓細1. 棣栧厛锛屽噯澶鎶藉鍚嶅崟骞跺湪Excel閲屽垱寤轰竴涓柊鐨勫伐浣滆〃銆傚湪鍙充晶鐨勫垪涓緭鍏ュ弬涓庢娊濂栫殑浜哄憳濮撳悕锛屽苟灏嗗叾缂栧彿浠1寮濮嬫帓鍒椼2. 鍦ㄦ柊鐨勫伐浣滆〃涓紝閫夋嫨闇瑕鍒朵綔杞洏鐨勫尯鍩熴備竴鑸潵璇达紝閫夋嫨鍚堥傜殑绾垫í姣斾緥锛屽畾濂藉杞粨锛岃嚜閫傚簲瀹藉害鍜岄珮搴︾瓑鍏抽敭鍙傛暟銆3. 浣跨敤Excel鐨勨滃舰鐘垛濆伐鍏峰垱寤轰竴涓渾褰㈡垨鑰呯敤鍥剧墖鎻掑叆涓...
绛旓細鎬濊矾涓鍏鍒朵綔涓変釜灏忔帶浠讹紝銆愬紑濮嬨戞寜閽帶鍒剁▼搴忚繍琛岋紝銆愬仠姝戞寜閽帶鍒剁▼搴忔殏鍋滐紝銆愭竻闄ゃ戞寜閽竻闄ゅ凡涓鑰呭悕鍗曪紱鍦ㄧ敤涓涓崟鍏冩牸灞曠ず浜哄憳鍚嶅崟婊氬姩鏁堟灉锛涙渶鍚庨夊畾涓鍧楀尯鍩熺敤浜庡瓨鏀句腑濂栬呭悕鍗曘傚熀鏈竷灞閫変腑Excel涓涓鍧楀尯鍩燂紝绗竴绗簩琛屽悎骞跺崟鍏冩牸灞曠ず鍚嶇О锛孊4鍗曞厓鏍煎瓧浣撹皟澶х敤浜庡憳宸ュ鍚嶆粴鍔紝D4:H12鍖哄煙鐢ㄤ簬...
绛旓細鍏蜂綋濡備笅锛1. 棣栧厛鎴戜滑鎵撳紑鐢佃剳杩涘叆鍒版闈紝鐒跺悗鎵惧埌excel鍥炬爣鐐瑰嚮鎵撳紑銆傝繘鍏ュ埌杞欢鐣岄潰涔嬪悗锛屾垜浠鍏堣緭鍏ユ垜浠殑鎶藉鐨勪俊鎭傜劧鍚庢垜浠湪淇℃伅鐨勫彸渚ф柊寤轰竴涓崟鍏冩牸锛岀敤鏉ュ瓨鏀炬垜浠娊濂栫殑缁撴灉銆2.鎺ヤ笅鏉ユ垜浠変腑瀛樻斁鎶藉缁撴灉鐨勫崟鍏冩牸锛岀劧鍚庡湪鍗曞厓鏍间腑杈撳叆鍏紡=INDEX(A:A,RANDBETWEEN(1,8)) 銆傝繖涓叕寮忕殑鎰忎箟...
绛旓細4銆佹帴鐫鍦ㄥ墠闈㈣緭鍏ndex鍑芥暟锛孖ndex鍓嶄袱琛岀殑寮曠敤涓哄垪銆5銆佹渶鍚庡埌寮曠敤瀹屾垚涔嬪悗锛屽啀娣诲姞涓涓嫭鍙凤紝鐒跺悗鐐瑰嚮纭畾涔嬪悗锛屽彲浠ョ湅鍒帮紝绯荤粺灏辫嚜鍔ㄥ～鍏呬簡涓涓汉鐨勫悕瀛椼6銆佺劧鍚庢寜涓涓嬪洖杞﹂敭灏卞彲浠ュ惎鍔紝灏变細闅忔満鍑虹幇鍊欓変汉鐨勫悕瀛 浠ヤ笂灏辨槸Excel婕旂ず鍒朵綔鎶藉灏忕▼搴忕殑鎿嶄綔鏂规硶浜嗭紝Excel鏄洰鍓嶆祦琛岀殑涓汉璁＄畻鏈烘暟鎹鐞...
绛旓細鍦Excel涓埗浣滈殢鏈烘娊濂鐨勪綔鐢紝鏍稿績鏄敓鎴愪竴缁勯殢鏈轰笉閲嶅鍊笺傞鍏堬紝鍦˙4杈撳叆浠ヤ笅鍏紡锛屽悜涓嬪鍒惰嚦B53锛= RAND()RAND鍑芥暟鐨勪綔鐢ㄦ槸鐢熸垚浠嬩簬 0 鍒 1 涔嬮棿鐨勯殢鏈烘暟锛堝彉閲忥級銆***D4鍗曞厓鏍艰緭鍏ヤ互涓嬪叕寮忥紝鍚戜笅澶嶅埗锛=INDEX(A$4:A$53,RANK(B4,B$4:B$53))绠鍗曡涓涓嬪叕寮忕殑鎰忔濓細RANK(B4,B$4:B$53...
绛旓細1銆侀鍏堬紝鎵撳紑涓涓ず渚嬭〃鏍硷紝杩欓噷灏变娇鐢ㄤ互寰鐨勪緥瀛愶紝渚夸簬鐞嗚В銆2銆佹帴涓嬫潵鎴戜滑鍦ㄨ繖15涓汉涓殢鏈烘娊鍙5涓汉浣滀负骞歌繍鍛樺伐銆傜偣鍑昏〃鏍糆1鍗曞厓鏍硷紝鏂板缓鍚嶇О涓闅忔満鎶藉锛岀劧鍚庡湪E2涓緭鍏ュ叕寮=rand()3銆佸洖杞﹀悗锛屾嫋鎷藉揩閫熷鍒舵寜閽紝鍚戜笅澶嶅埗鍗曞厓鏍煎埌E15锛屽鍥俱4銆佺偣鍑婚夋嫨F1鍗曞厓鏍硷紝鏂板缓鍚嶇О涓哄垢杩愪箣鏄燂紝鐒跺悗鍦‵2鍗曞厓...
绛旓細鍦ㄦ瘡涓寜閽笂鐐瑰彸閿紝閫夆滅紪杈戞枃瀛椻濓紝涓涓緭鍏モ滃紑濮嬧濓紝鍙︿竴涓緭鍏モ滅粨鏉熲濄傚湪涓や釜鎸夐挳涓婂垎鍒寜榧犳爣鍙抽敭锛屾寚瀹氬畯銆傜鍥涙锛氭祴璇曚互涓婃搷浣滃畬鎴愬悗锛屽氨鍙互浣跨敤浜嗭紝鐐瑰嚮鈥滃紑濮嬧濇寜閽紝浼氭湁涓涓孩鑹叉柟鍧闅忔満鐨勫湪鍚勫彿鐮佷笂闂姩锛屽綋鎸夆滅粨鏉熲濇寜閽椂锛岀孩鑹叉柟鍧椾細闈欐鍦ㄦ煇涓涓彿鐮佷笂锛岃〃绀烘娊涓鍙枫
绛旓細=RAND()鈥,鎸塃NTER閿紝娉ㄦ剰鎷彿瑕佽嫳鏂囩姸鎬佷笅鐨勩備骇鐢熶竴涓殢鏈烘暟瀛椼備笅鎷夊鍒跺叕寮忓埌B22 鍦―3鍗曞厓鏍间腑杈撳叆鈥=INDEX(A$3:A$22,RANK(B3,B$3:B$22))鈥濓紝鎸塃NTER閿紝娉ㄦ剰鎷彿鍜屾爣鐐圭鍙疯鑻辨枃鐘舵佷笅鐨勩侱3鏄剧ずA鍒楀憳宸ュ悕鍗曚腑浠讳竴浜猴紝涓嬫媺澶嶅埗鍒癉5.6 鐜板湪灏辨寜浣廎9閿杩涜闅忔満鎶藉鍚с
