麻辣家族討論版版 » Excelㄧ般區 » 如何在儲存格隨機填數字?

返回列表下一主題上一主題發帖

[發問] 如何在儲存格隨機填數字?

中學生 Rank: 2

帖子: 142
主題: 80
精華: 0
積分: 221
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2011-4-14
最後登錄: 2021-4-28

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2011-11-14 10:19 | 只看該作者

[發問] 如何在儲存格隨機填數字?

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

謝謝！

樓主熱帖

收藏

中學生 Rank: 2

帖子: 18
主題: 7
精華: 0
積分: 53
點名: 0
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
來自: 台北/台東
註冊時間: 2011-11-5
最後登錄: 2013-8-1

4^#

發表於 2011-11-15 10:50 | 只看該作者

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

李春輝

小學生 Rank: 1

帖子: 31
主題: 6
精華: 0
積分: 37
點名: 0
作業系統: Vista
軟體版本: Office 2003
閱讀權限: 10
性別: 男
來自: HK
註冊時間: 2010-10-31
最後登錄: 2017-10-26

3^#

發表於 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格

Book1.zip (6.41 KB)

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2011-11-14 11:04 | 只看該作者

Sub aa()
Dim arr(1 To 6, 1 To 6), i%, n%, b(36) As Integer
For i = 1 To 6
For j = 1 To 6
Do
n = Int(36 * Rnd + 1)
b(n) = b(n) + 1
If b(n) = 1 Then arr(i, j) = n
Loop Until b(n) = 1
Next
Next
[a1:f6] = arr
End Sub

複製代碼

靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。

返回列表下一主題上一主題