隨機生成的數就可能有重復.
隨機排列是可以的.
提供以下方法看妳能否接受:
請按步驟操作:
1. 打開控制工具箱. 位置"菜單"->"檢視"->"工具列"->"控制工具箱"
2. 在"控制工具箱"點取"指令按鈕"
3. 在Excel的適當位置畫壹按鈕
4. 雙激按鈕,進入代碼編輯,在Private Sub CommandButton1_Click()與End Sub之間輸入以下內容:
Private Sub CommandButton1_Click() '註意不要重復
Dim a As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
For i = 0 To 9
For j = 0 To 9
Loop1:
a = Int(Rnd() * 100 + 1)
For k = 0 To 9
For l = 0 To 9
If k = i And l = j Then GoTo Loop2
If Cells(Selection.Row + k, Selection.Column + l) = a Then GoTo Loop1
Next l, k
Loop2:
Cells(Selection.Row + i, Selection.Column + j) = a
Next j, i
End Sub '註意不要重復
5. 點激"控制工具箱"的第壹個按鈕(圖標為三角板和鉛筆),結束設計模式
6. 將要產生數據的10X10區域的左上方的第壹個單元格選中
7. 點剛才創建的按鈕.10X10的格子中就隨機產生了妳所要的數據.