作者taidocky (taidocky)
看板Office
標題[算表] EXCEL VBA 取不重複的亂數
時間Thu Aug 29 17:11:21 2019
我用EXCEL的VBA
做了一個產生不重複的亂數程式
程式碼如下
Sub 按鈕1_Click()
Dim LuckyNumber() As Integer, Upperbound As Integer, Lowerbound As Integer,
ArrayLength As Integer, RndNumber As Integer, RndNumber2 As Integer, Temp As
Integer
Lowerbound = Range("D8").Value '從儲存格D8取亂數範圍的下限值
Upperbound = Range("D7").Value '從儲存格D7取亂數範圍的上限值
ArrayLength = Upperbound - Lowerbound
ReDim LuckyNumber(ArrayLength) As Integer
For i = 0 To ArrayLength
LuckyNumber(i) = Lowerbound + i
Next
Randomize
For j = 0 To ArrayLength
RndNumber = Int((Upperbound - Lowerbound + 1) * Rnd)
RndNumber2 = Int((Upperbound - Lowerbound + 1) * Rnd)
Temp = LuckyNumber(RndNumber)
LuckyNumber(RndNumber) = LuckyNumber(RndNumbber2)
LuckyNumber(RndNumbber2) = Temp
Next
End Sub
目前程式是可以產生出不重複的亂數值
我想呈現出來的結果是
按一下按鈕1的時候
在儲存格B3的位置
就顯示出LuckyNumber(0)的亂數結果
再按一下按鈕1的時候
同樣在B3的位置顯示
LuckyNumber(1)的亂數結果
以此類推
可是現在每按一次按鈕1
亂數陣列LuckyNumber()
就再重新產生一次了....
要如何讓亂數陣列固定下來
每按一次按鈕的時候
就顯示出下一個亂數
LuckyNumber(0)->LuckyNumber(1)->...LuckyNumber(N)
這個問題該怎麼解決？
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.51.218.120 (臺灣)
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1567069883.A.C47.html
1F：→ soyoso: 再設計個按鈕是回傳luckynumber結果的 08/29 17:28
2F：→ soyoso: 原先按鈕1產生的亂數看要暫存於儲存格或是變數內，變數內 08/29 17:28
3F：→ soyoso: 的話，插入個模組，public LuckyNumber() as integer 08/29 17:30
4F：→ soyoso: 和public 變數 as integer，這個變數用於按鈕2 08/29 17:30
5F：→ soyoso: 原本寫於按鈕1內宣告dim LuckyNumber() as integer就刪除 08/29 17:31
6F：→ soyoso: 按鈕2_click觸發事件，就為range("b3") = luckynumber(變 08/29 17:32
7F：→ soyoso: 數) 08/29 17:32
8F：→ soyoso: 變數=變數+1 08/29 17:33
9F：→ soyoso: 按鈕1_click方面則要在每次產生新亂數時，將上述變數設為 08/29 17:34
10F：→ soyoso: 08/29 17:34
11F：→ soyoso: 0(變數=0) 08/29 17:34
12F：→ taidocky: 謝謝樓上大大的說明，我有概念了！那再請教一下，如何 08/29 17:57
13F：→ taidocky: 讓按鈕1只能點擊1次呢？產生亂數後就不能再按了 08/29 17:57
14F：→ soyoso: 按鈕1.enabled = false 08/29 18:13