前一段时间，有朋友问，用Excel可以干什么？我想了想，可以说可以干的事那可多了，有大神用Excel制作游戏，比如象棋，俄罗斯方块，超级玛丽，日本一个牛人用Excel作画。
很多人看到都惊掉了下巴，可以说Excel只有想不到，没有做不到。
对我们大部分人来说，学好Excel主要用来做报表，或者利用经验技巧，以提高工作效率；另外学习VBA以后，可以进行程序的二次开发，可以自动执行重复的操作。
比如在Excel中，我们要格式化月报表，格式化表格，设置字体、添加边框等等。
这些重复的操作，如果使用VBA代码的话，我们可以让过程自动化，为我们节省很多时间。
对大量数据处理或者用时比较长的工作而言，效果尤为明显。
就我本人来说，也用VBA编程制作了很多实用的程序，大大的提高了工作效率，甚至让人感觉，Excel真厉害，竟然这也可以。

本文就给大家介绍一个比赛程序，这里面的功能之强大，使用之方便，也让人眼前一亮，具体如下：由于程序采用VBA编程完成的比赛抽签、分组对阵、以及战绩统计的自动化处理，在使用前，请在excel或者WPS excel中启用宏，正确启用宏以后，关闭excel软件，重新打开程序，就可以正常使用了。
一、 本程序共分三个部分：自动分组，排赛程和积分计算（如上图）二、 在使用时，注意以下使用要求。
1、 在开始前，先进行必要的设置，表格中绿色单元格内，都需要确认填写。
2、 自动分组先输入动动员姓名，或者队伍姓名，点击”自动分组”，将按照分组要求进行分组。
注意:①、分组时序号是自动生成的，如果需要按照抽签产生的序号，进行分组，则需要在点击”自动分组”，前，手动输入每个人或者队伍的序号。
②、队伍名称或人员姓名不能出现重复，否则在计算时会出现错误。
③、每组人数最多最好不要超过68人，当然超过也不会出现错误，只是运行速度变慢，若人数过多，可采用分组方式。
④、分组时，如果不能均分，则先平均分好后，剩余补前的原则，比如：共32人，分3组，则1-10分A组，11-20分B组，21-30分C组，31分A组，32分B组。
⑤、若想领导排第一场比赛出场，分组时可以将序号放到第一个或者最后一个，排赛程时，如果没有轮空，则原则是第一轮排第一个和最后一个第一场比赛，如果有轮空，则第一轮第一个轮空，排第二个和最后一个打第一场比赛。
点击"自动分组"后，结果如上图。
3、 排赛程①、分组后，点击“排赛程”按钮，则会先删除后面所有工作表，然后为每组新建3个工作表，分别为组对阵表，组积分表和组排名表。
②、在排对阵表时，采用目前国际流行的”贝格尔”编排法，避免第二轮的轮空队在赛程过半后每场都与前一轮的轮空队比赛的不合理现象。
③、在组对阵表内，将自动排出每组全循环的对阵情况，如果本组数量为单数，则每轮有1个选手轮空。
注意：如果是篮球比赛或其它高强度对抗比赛，并且人员较少，排完赛程后，需要检查一下对阵情况，避免出现一个队伍一天内出现2场比赛的情况。
点击"排赛程"后，结果如下图：A组赛程表部分截图B组赛程表部分截图A组积分表截图B组积分表截图4、输入比赛结果比赛开始后，将比分如实输入到对阵表中，即可点击"积分计算"。
注意：①、在对阵表中填写比分时，要看清前后顺序，A—B，填写21：15则代表A是21，B是15，不能颠倒。
②、如果弃权得分为0分，则输入0：21或者21：0。
③比分根据实际比赛结果输入就行，比值大的获胜。
5、 积分计算点击“积分计算”按钮后，程序将会进行以下工作：（1） 抽取对阵表中的选手和比分，填写获胜者（2） 将对阵表中的选手和比分填写到每组积分表和每组的排名表中，并计算出每个选手的胜负场，积分，排名等情况（3） 对于相同比分的选手，有两种计算方式：①、按相互间的胜负关系计算排名，如超过2名选手，且互有胜负，则计算这几个选手相互间的净胜分并进行排名。
②、按全局总净胜分计算，谁的总净胜分高，则排名靠前。
具体按哪种方式计算，可以在设置中填写。
注意：①、比赛没有完全结束，也可以进行计算，也就是说可以进行多次中间计算，直到最终比赛结束，也可以先输入比分，到最后一起计算。
②、一旦输入比分，则不可以再点“排赛程”按钮，否则将会删除已经输入的数据。
③如果计算完了，发现同分计算规则错了，可以在设置中修改计算规则，重新点击“积分计算”按钮即可。
输入比赛比分，点击"积分计算"得到如下图结果：