双色球摇奖器（彩票模拟摇奖器app）xcelVBAHome2017-08-18 16:01:50
本文亮点：
由于RAND函数返回的随机数，可能出现相同的情况。若仅仅用RANK函数，对随机数值按其大小排名，从而导致排名相同。所以，本文利用COUNTIF函数再减去1，以确保排名的唯一性，即：保证红球中奖号码的不重复性。
制作步骤如下：
步骤一：准备数据
?在"A2"中输入公式"=RAND()"，下拉鼠标至"A34"；
?在"B2"中输入公式"=RANK(A2,$A$2:$A$34)+COUNTIF($A$2:$A$34,A2)-1"，下拉鼠标至"A34"；
?填充红球号码数从1~33。
步骤二：对中奖的红球设置链接
难点：公式"=VLOOKUP(F$2,$B$2:$C$34,2,0)"的妙用
步骤三：对中奖的红球号码链接为红色的彩球
?依次单击【插入】-【形状】，选择“椭圆”，按住【Shift】键，拖出6个圆球；
?选中第1个圆球，然后在编辑栏中输入公式"=$F$3"，选中第2个圆球，在编辑栏中输入公式"=$G$3"....选中第6个圆球，最后在编辑栏中输入公式"=$K$3；
?全选6个圆球，右击鼠标，选择【设置形状格式】命令，填充颜色选择“红色”，线条选择“无线条”。
到此，红球的设置已完成。
恭贺你能够阅读到这里，你已掌握了99%的内容！
篮球的设置，请按照上面三个步骤进行，只是号码数从1~16而已，单元格位置变了，彩球的颜色是蓝色罢了！
温馨提示：单击工作表任一单元格，然后按【F9】键，系统会自动选号，松开此键，便会锁定一注双色球号码。
鸣谢：若喜欢本篇文章，记得点赞，评论和转发噢！
对本文涉及的公式，有疑问，请多多交流，小编有问必答！！
