Our first baby is officially 15 today…it’s pretty startling how fast time flies by…children grow up in the blink of an eye…way too fast…it seems like it was just only yesterday when I gave birth to him…I just wish he could be my little baby forever…I kinda miss that little boy already…but above all, I thank The Almighty for turning my little man into the fine young man he is now - Alhamdulillah ♥️
Blessed,
Mrs Mom
#wisemomsays
p/s: Happy Birthday The Omar Mukhtar 🎂 I love you my #LuckyNumber1 ✨ May the blessings of Allah be with you today, tomorrow, and forever…
luckynumber1 在 [算表] EXCEL VBA 取不重複的亂數- 看板Office - 批踢踢實業坊 的推薦與評價
我用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://www.ptt.cc/bbs/Office/M.1567069883.A.C47.html
... <看更多>