標題: [發問] 如何在儲存格隨機填數字? [打印本頁]

---

作者: q1a2z5    時間: 2011-11-14 10:19     標題: 如何在儲存格隨機填數字?

如何在６＊６的儲存格中，隨機填１至３６的數字呢？

謝謝！

---

作者: oobird    時間: 2011-11-14 11:04

1. Sub aa()
   
2.     Dim arr(1 To 6, 1 To 6), i%, n%, b(36) As Integer
   
3.     For i = 1 To 6
   
4.     For j = 1 To 6
   
5.         Do
   
6.             n = Int(36 * Rnd + 1)
   
7.             b(n) = b(n) + 1
   
8.             If b(n) = 1 Then arr(i, j) = n
   
9.         Loop Until b(n) = 1
   
10.     Next
    
11.     Next
    
12.     [a1:f6] = arr
    
13. End Sub

複製代碼

---

作者: ricky8751    時間: 2011-11-14 11:20

本帖最後由 ricky8751 於 2011-11-14 11:30 編輯

上網找了一下! 自己也在分析中

G1=RAND()  - 下拉至G36
A1=RANK(INDIRECT("G"&(COLUMN()+ROW()*6-6)),$G$1:$G$36)  - 右拉6格及下拉6格

---

作者: 李春輝    時間: 2011-11-15 10:50

可以在 資料 /驗證/設定裡   
設定 它只能輸入 1~36:)

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)