excel怎么制作ph计算小程序

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

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

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

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

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

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

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

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

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

=int(rand()*1000)

然后下拉填充。

2、然后选中A列，设置条件格式，用公式将前三名（或自定）设置为红色，公式为：

=rank(a1,a:a)<4

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

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

---