作者:乔山办公网日期:
返回目录:excel表格制作
右击工具栏,选择“控件工具箱百”,然后在工作表中画一度个按钮,双击按钮输入以下代码:
Option Base 1
Const M As Integer = 40
Const N As Integer = 7
Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer, a(M) As Integer, x As Integer, k As Integer
k = Val(InputBox("请输入组知数"))
For j = 1 To k
Erase a
i = 0
Do While i < N
x = Int(Rnd * (40 - 1) + 1)
If a(x) = 0 Then
a(x) = 1
i = i + 1
Cells(j, i) = x
End If
Loop
Next j
End Sub
然后在控件工具栏中选择“道退出设计模式”,以后每回次单击按钮,弹出一个对话框,输入组数,再按确定结果就出答来了。
你说的第二个按copy钮没什么作知用,只设一个按钮就可道以。按钮代码如下: Private Sub CommandButton1_Click() Dim arr(1 To 5) For i = 1 To 5 arr(i) = Cells(i, 1) Next i For j = 1 To [B1] x = Int(5 * Rnd()) + 1 y = Int(5 * Rnd()) + 1 Cells(...
假设你的数字在A列 对应值在B列 C1生成随机数字
C2输入公式 =VLOOKUP(C1,A:B,2,0)
你说的第二个按钮zd没什么作用,只设一版个按钮就可权以。按钮代码如下:
Private Sub CommandButton1_Click()
Dim arr(1 To 5)
For i = 1 To 5
arr(i) = Cells(i, 1)
Next i
For j = 1 To [B1]
x = Int(5 * Rnd()) + 1
y = Int(5 * Rnd()) + 1
Cells(y, 1) = arr(y) - x
Do
z = Int(5 * Rnd()) + 1
Loop While z = y
Cells(z, 1) = arr(z) + x + 5
Next j
End Sub