提示:其它语言是由 Google 机器翻译的。 你可以访问 English 版本。
登录
x
or
x
x
马上登记
x

or

如何在Excel中生成彩票号码?

你有没有想过在Excel中生成彩票号码,或者自己在Excel中制作彩票号码生成器? 在本文中,我提供了三种方法让您轻松完成。

使用Excel函数生成彩票号码 (5步骤)

使用VBA宏生成彩票号码

使用Kutools for Excel生成彩票号码 (2步骤)

轻松列出Excel中几个系列数据的所有组合

Kutools为Excel的 列出所有组合 实用程序旨在概括来自几个给定系列数据的所有可能组合,并将这些组合列在如下所示的屏幕截图中。 全功能免费试用30天!
列出所有组合1

Office选项卡在Office中启用选项卡式编辑和浏览,使您的工作更轻松......
Kutools for Excel解决了您的大多数问题,并使您的生产率提高了80%
  • 重用任何东西: 将最常用或最复杂的公式,图表和其他任何内容添加到您的收藏夹中,并在将来快速重复使用它们。
  • 超过20文本功能: 从文本字符串中提取数字; 提取或删除部分文本; 将数字和货币转换为英语单词...
  • 合并工具:多个工作簿和表格合二为一; 合并多个单元格/行/列而不丢失数据; 合并重复行和总和...
  • 拆分工具:根据价值将数据拆分为多个表格; 一个工作簿到多个Excel,PDF或CSV文件; 一列到多列......
  • 粘贴跳过 隐藏/过滤行; 数和总和 按背景颜色; 创建邮件列表和 通过Cell的价值发送电子邮件...
  • 超级过滤器: 创建高级过滤方案并应用于任何工作表; 排序 按周,日,频率等; 筛选 通过大胆,公式,评论......
  • 超过300强大的功能; 与Office 2007-2019和365一起使用; 支持所有语言; 在您的企业或组织中轻松部署。

使用Excel函数生成彩票号码

此方法将引导您应用多个Excel函数来生成彩票号码。 你可以做如下:

1。 在空白工作表中,在范围A1:C1中键入列标题,如下所示:

2。 在列A,列B和列C中输入公式:

(1)在Cell A2中输入公式 = RAND(),然后将填充句柄拖到范围A2:A50。
(2)在单元格B2中输入公式 =RANK($A2,$A$2:$A$50)+COUNTIF(B$1:B1,B1)-1,然后将填充手柄拖到范围B2:B50。 (在公式中,A2是留给当前单元格的随机数,$ A $ 2:$ A $ 50都是我们用第一个公式得到的随机数,B $ 1是B列中的第一个单元格,B1是当前细胞上方的细胞)。
(3)在范围C2:C50中,输入从1到49的序号。

然后你会得到一个表格,如左屏幕截图所示:

注意丝带 公式太难记了? 将公式保存为自动文本条目,以便将来只需点击一下即可重复使用!
阅读全文... 免费试用

3。 找到一个空白区域,按如下所示的屏幕截图在一行中水平键入序号:

4。 在1的第一个序号下方,输入公式 = VLOOKUP(G1,$ B $ 1:$ C $ 50,2,FALSE) 进入它,然后将填充手柄拖到需要的范围。

注意:在此公式中,G1是第一个序列号为1的单元格,$ B $ 1:$ C $ 50是Unique Rank列和Ball Number列,2表示在Range $ B $ 1的第二列中查找值: $ C $ 50。

然后你会得到如下所示的彩票号码:

5。 这是可选的。 为了防止在当前工作表刷新时自动更改彩票号码,可以单击 公式 > 计算选项 > 手动.


使用VBA宏生成彩票号码

此方法将指导您应用VBA宏在Excel中生成彩票号码。 请做如下操作:

1。 按 其他 + F11 键以打开Microsoft Visual Basic for Applications窗口。

2。 点击 插页 > 模块 打开一个新的模块窗口,然后粘贴下面的VBA代码:

VBA:Excel中的彩票号码生成器

Sub LotteyCode()
Dim Rng As Range
Dim WorkRng As Range
Dim xNumbers(49) As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Out put to (single cell):", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Range("A1")
For xIndex = 1 To 49
xNumbers(xIndex) = xIndex
Next
For xIndex = 1 To 6
xNum = 1 + Application.Round(Rnd * (49 - xIndex), 0)
WorkRng.Offset(0, xIndex - 1).Value = xNumbers(xNum)
xNumbers(xNum) = xNumbers(50 - xIndex)
Next
End Sub

3。 按 F5 键或点击 按钮来运行这个VBA宏。

4。 现在在弹出的对话框中,指定一个单元格输出彩票号码,然后单击 OK 按钮。

然后你会看到6独特的彩票号码被生成并显示在指定的单元格中。


使用Kutools for Excel生成彩票号码

如果你安装了Kutools for Excel, 插入随机数据 实用程序可以帮助您一次在Excel中生成彩票号码。

1。 选择6相邻的单元格,例如A1:F1,然后单击 Kutools > 插页 > 插入随机数据.

2。 现在插入随机数据对话框出来了。 去吧 整数 标签,键入 1 in 框中键入 49 in 框,检查 独特的价值 选项,然后单击 OK 按钮。 现在您将看到6独特的彩票号码会立即生成并显示在选定的单元格中。

Kutools for Excel -包括多个用于Excel的300便捷工具。 全功能免费试用30天,无需信用卡! 现在加入


演示:使用Kutools for Excel生成彩票号码

在这个视频中, Kutools Kutools Plus 选项卡添加 Kutools for Excel。 如果需要,请点击 30天免费试用,不受限制!

相关文章:


Kutools for Excel解决了您的大多数问题,并使您的生产率提高了80%

  • 重用: 快速插入 复杂的公式,图表 以及你以前用过的任何东西; 加密单元格 密码; 创建邮件列表 并发送电子邮件...
  • 超级方程式酒吧 (轻松编辑多行文字和公式); 阅读布局 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 不丢失数据; 分裂细胞含量; 组合重复的行/列...防止重复的细胞; 比较范围...
  • 选择复制或唯一 行; 选择空行 (所有细胞都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择......
  • 精确复制 多个单元格而不更改公式参考; 自动创建参考 多张表; 插入项目符号,复选框等等......
  • 提取文本,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级过滤器 (将过滤方案保存并应用到其他工作表); 高级排序 按月/周/日,频率等; 特殊过滤器 用粗体,斜体......
  • 结合工作簿和工作表; 根据键列合并表; 将数据拆分为多个表格; 批量转换xls,xlsx和PDF...
  • 超过300强大的功能。 支持Office / Excel 2007-2019和365。 支持所有语言。 在您的企业或组织中轻松部署。 全功能30天免费试用。
kte tab 201905

Office选项卡为Office提供选项卡式界面,使您的工作更轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,Publisher,Access,Visio和Project。
  • 在同一窗口的新选项卡中打开并创建多个文档,而不是在新窗口中。
  • 通过50%提高您的工作效率,每天为您减少数百次鼠标点击!
官方底部
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.