抽奖号码生成器（抽奖是屏幕上可以滚动数字的软件叫什么啊可以输入人名来滚动人名么）
本文目录
- 抽奖是屏幕上可以滚动数字的软件叫什么啊可以输入人名来滚动人名么
- 求高手啊！！EXCEL抽奖器怎么做特定的结果，就是不管电脑怎么随机，最后出现的都是特定的那个数字
- 大神帮我在PPT中制作一款抽奖软件，就是在1---120数字之间进行滚动，并且随时可以抽出任意数字
- excel表格抽奖如何做
抽奖是屏幕上可以滚动数字的软件叫什么啊可以输入人名来滚动人名么
推荐你使用全能抽奖软件 我们公司之前活动就是用的他们家的软件 可以Excel表格 记事本导入名单 生成名单 导入图片滚动抽奖 操作非常简单 界面也非常高端大气 淘宝销量第一哦 你可以去下载一个试试 试试不花钱的
求高手啊！！EXCEL抽奖器怎么做特定的结果，就是不管电脑怎么随机，最后出现的都是特定的那个数字
=INT(RAND()*9000)+1000&"68"
无论怎么随机，尾号都是68
笑望采纳，谢谢！
大神帮我在PPT中制作一款抽奖软件，就是在1---120数字之间进行滚动，并且随时可以抽出任意数字
步骤就是这样：
1、新建ppt.
2、打开“控件工具箱”， 步骤：菜单 视图》工具栏》控件工具箱。
3、点击控件箱上控件“命令按钮”， 在幻灯片1上画一个命令按钮CommandButton1,
4、点击控件箱上控件“标签”，在幻灯片1上画一个一个标签Label。
5、点击“命令按钮CommandButton1”右击鼠标，选“属性”，将CommandButton1的Caption属性设置为"抽奖开始",再如此方法，将Label1的Caption属性设置为空白。当然在属性中还可以设置字体、颜色等等。
6、点击在CommandButton1控件上右击，选“查看代码”，进入Visual Basic界面，编写代码：
Private Sub CommandButton1_Click()
Slide1.Label1.Caption = Int(Rnd * 120 + 1)
End Sub
这句代码可以意思是“点击命令按钮CommandButton1生成一个1到120之间的随机整数，并把它输出到标签label1”上。”
还要注意一点，这里编写的VB程序实际上就是“宏”。很多人把病毒编写为宏，随着用户打开ppt文档，病毒就进入了你的电脑。所以为了安全，很多人都把宏禁用了。
但是宏如果被禁用了，那么我们刚才编写的程序就不起作用了。所以我们还应该启用宏，方法是ppt中的工具》选项菜单，“安全性”选项卡，“宏安全性”按钮，在弹出的“安全性”窗口中就可以设置宏的安全级别。
当然这个最好做一个flash 软件 插入ppt.
excel表格抽奖如何做
01打开excel，并点击excel的最左上角的图标，找到“Excel 选项”。

02
找到“常用”点击，然后在右侧找到“在功能区显示‘开发工具’选项卡”复选框打钩，按确定。

03
点击开发工具，调出开发控件

04
利用调出的开发控件，2个Label，2个TextBox，1个按钮。结合Excel知识，制作如下界面。



05
可以在视图中找到宏，也可以在开发工具中找到宏。然后打开宏。

06
添加VBA代码：
Option Base 1
Dim t1 As Long ’范围1
Dim t2 As Long ’范围2
Dim czh As Integer ’抽奖号码
Dim num As Integer
Sub auto_open()
Application.OnKey "{ENTER}", "cj"
Application.OnKey "~", "cj"
End Sub
Public Function tj(lb) As Integer
Dim k As Integer
k = 2
Do
Set myR = Sheets(lb).Cells(k, 1)
If Trim(myR.Value) = "" Then ’出现空记录
Exit Do
End If
k = k + 1
Loop Until False
tj = k - 1
End Function
Public Function csf()
num = tj("temp")
With Worksheets("temp")
t1 = .Cells(num, 3).Value
t2 = .Cells(num, 4).Value
End With
Worksheets("抽奖程序").TextBox1.Text = t1
Worksheets("抽奖程序").TextBox2.Text = t2
End Function
Public Function cj()
num = tj("temp")
Call csf
Call cjsz
End Function
Public Function cjsz()
Dim r(10)
For i = 1 To 10
xh = False
Do
d = Int((t2 - t1 + 1) * Rnd + t1)
j = 0
Do
j = j + 1
If r(j) = d Then
xh = False
Exit Do
Else
xh = True
End If
Loop Until j 》= i
Loop Until xh = True
r(i) = d
Next i
Dim b(1 To 10)
For i = 1 To 10
b(i) = Application.WorksheetFunction.Small(r, i)
Worksheets("抽奖程序").Label1.Caption = ""
Next
For j = 1 To 10
For i = 1 To 2000
If i Mod 100 = 0 Then
DoEvents
End If
m = Int((t2 - t1 + 1) * Rnd + t1)
Worksheets("抽奖程序").Label2.Caption = Format(m, "00000")
Next i
d = b(j)
Worksheets("抽奖程序").Label2.Caption = Format(d, "00000")
Worksheets("抽奖程序").Label1.Caption = Worksheets("抽奖程序").Label1.Caption & " " & Worksheets("抽奖程序").Label2.Caption
Next j
nn = tj("数据统计")
With Worksheets("数据统计")
.Cells(nn + 1, 1).Value = nn
.Cells(nn + 1, 2).Value = Date
.Cells(nn + 1, 3).Value = Worksheets("抽奖程序").Label1.Caption
End With
For i = 1 To 14
j = nn + 2 - i
If j 》 1 Then
With Worksheets("数据统计")
a = .Cells(nn + 2 - i, 2).Value
c = .Cells(nn + 2 - i, 3).Value
End With
With Worksheets("抽奖程序")
.Cells(i + 1, 14).Value = a
.Cells(i + 1, 15).Value = c
End With
Else
Exit For
End If
Next i
End Function

07
点击按钮测试，得到随机中奖编号
更多文章：
2026年9月7日 12:40
display flex 自动换行（overflow-y:hidden;overflow-x:auto;无效解决方法）
2026年9月7日 11:00
2026年9月7日 10:50
timestamp without time zone（Postgresql中to_date（）函数使用问题）
2026年9月7日 09:40
2026年9月7日 04:20
下载mysql的步骤（win10安装mysql的步骤和方法）
2026年9月7日 04:10
2026年9月7日 03:50
2026年9月7日 03:40
checked in（check in和check out的区别）
2026年9月7日 01:20
java经典上机编程题（java上机题 请问这道题应该怎么写）
2026年9月7日 01:10
