我用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)
這個問題該怎麼解決？

再設計個按鈕是回傳luckynumber結果的原先按鈕1產生的亂數看要暫存於儲存格或是變數內，變數內的話，插入個模組，public LuckyNumber() as integer和public 變數 as integer，這個變數用於按鈕2原本寫於按鈕1內宣告dim LuckyNumber() as integer就刪除按鈕2_click觸發事件，就為range("b3") = luckynumber(變數)變數=變數+1按鈕1_click方面則要在每次產生新亂數時，將上述變數設為0(變數=0)

謝謝樓上大大的說明，我有概念了！那再請教一下，如何讓按鈕1只能點擊1次呢？產生亂數後就不能再按了

按鈕1.enabled = false