作者：乔山办公网日期：
返回目录：excel表格制作
什么样的号码是相生，什么是相克，给出解释来。
不懂双色球的 路过
函数：RAND（）用于生成0到1之间的随机数。
2） 编写号码。在C1单元格输入“球号”，紧接着在C2：C50单元格输入1-49的整数序列，最后在E1：J1单元格里输入1-6的整数数列作为号码生成的顺序序列。
3） 唯一排名。在B1单元格输入“唯一排名”，然后选中B2：B50单元格，并输入公式=rank(A2,$A$2:$A$50)+COUNTIF($A$2:$A$50,A2)-1，然后按Ctrl+Enter得到一组生成概率的唯一排名。结果如图。
函数：rank（值，区域）用于对值在某一区域进行排名；countif（区域，值）用于计算在该区域范围内该值出现的次数。
提示：由于A列rand函数生成的概率可能出现完全相同的情况，因此在B列仅用rank函数进行排名，可能出现两个排名相同，再利用countif函数-1确保排e79fa5e98193e78988e69d83366名的唯一性。
4） 生成球号。在E2单元格输入公式=vlookup(E$1,$B:$C,2,0)，然后向右拖至J2列，即可得到6个双色球的号码，结果如图。
函数：vlookup（查找值，查找区域，返回值，查找类型），即在区域内查找某值，精确/模糊返回该值在区域内对应的其他值。
5） 绘制彩球。插入形状，选中椭圆，然后按住Shift键用鼠标在excel表格中画出6个圆形，然后在格式工具栏里去除表框，颜色填充为红色，形状效果改为预设2。然后选中第1个球，在公式编辑栏里输入=E2，再选中第2个球，在公式编辑栏里输入公式=F2，以此类推，最后将球中的号码进行居中和着色美化，最终结果如下图。
提示：按F9键则自动生成不同的双色球号码。
有个王八犊子攻击老子嫌老子用vba了，但是你们看嘛
有些问题不用vba解决不了呀！
'用VBA代码实现！
'按alt+f11进入VBE编辑窗口，然后选择插入----模块----会打开一个模
'块窗口，把下面的代码复制进去--保存，再次按alt+f11返回excel窗口
'按alt+f8打开运行宏窗口，会看到lotto宏，运行它就可以了！
'（代码亲测，希望对你7a64e59b9ee7ad94332有用）
'-------------以下代码部分，可全部复制我的答案到模块窗口---------------
Sub lotto()
Const spins = 6
Const min = 1
Const max = 33
Dim t As Integer
Dim i As Integer
Dim lucky(spins) As String
For t = 1 To spins
Randomize
lucky(t) = Int((max - min + 1) * Rnd) + min
For i = 1 To (t - 1)
If lucky(t) = lucky(i) Then
lucky(t) = Int((max - min + 1) * Rnd) + min
i = 0
End If
Next i
ActiveSheet.Cells(1, t) = lucky(t)
Next t
Dim blue As Integer
Randomize
blue = Int((16 - 1 + 1) * Rnd) + 1
ActiveSheet.Cells(1, 8) = blue
End Sub