excel怎么制作ph计算小程序

excel怎么制作ph计算小程序,第1张

1、首先打开Excel,以制作一个抽奖小程序为例,先输一些数据。

2、首先我们在抽奖区的单元格中输入=INDEX()。

3、然后选中数据源,也就是所有成员。

4、然后继续输入=INDEX(E:E,Randbetween())。

5、在Randbetween()这个涵数中输入1,5,也就是数据源。

6、输入完成后,回车确认,这样一个抽奖小程序就制作好了。可以按以上抽奖小程序的方法来制作ph计算小程序。

1、用随机函数rand分配给每个人一个抽签号,A1单元格里输入公式:

=int(rand()*1000)

然后下拉填充。

2、然后选中A列,设置条件格式,用公式将前三名(或自定)设置为红色,公式为:

=rank(a1,a:a)<4

(<4意思是取前3名,如果要取前5名就改为<6,以此类推)

3、每次可按F9键刷新一下结果

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

点击按钮测试,得到随机中奖编号


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/yw/7794112.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-04-09
下一篇 2023-04-09

发表评论

登录后才能评论

评论列表(0条)

保存