excel得出随机数字

来源:百度知道 编辑:UC知道 时间:2024/06/20 10:56:12
要求在a1单元格随机得出0到9,不相同的4个数字
a1单元格随机得到0到9,不相同的4个数字
a2单元格随机得到0到9,不同的4个数字
用一个按钮,点一下,就得出一次随机结果

是在每行生成4个数字,一格一个
还是两行第一格中放4个数字,空格区分开?
还是在两行第一格中放4个数字,而不用其它字符隔开?

你在工具栏空白处点右键,选择"窗体",使窗体工具栏可见,窗体工具栏上第4个为按钮,选中按钮,在表格空白处点左键,添加了一个按钮.
这时会自动弹出一个"指定宏"对话框,在宏名处输"按钮1_单击",点击新建

在弹出的窗口中输代码如下(这里的代码是我说的第二种情况):
Sub 按钮1_单击()
Randomize
Dim str1 As String
Dim str2 As String
For i = 1 To 4
str1 = str1 + Str(Int(10 * Rnd()))
str2 = str2 + Str(Int(10 * Rnd()))
Next i
Cells(1, 1) = str1
Cells(2, 1) = str2
End Sub

第一种情况的代码:
Sub 按钮1_单击()
Randomize
For i = 1 To 4
Cells(1, i) = Int(10 * Rnd())
Cells(2, i) = Int(10 * Rnd())
Next i
End Sub