excel亂數不重複 在 コバにゃんチャンネル Youtube 的最佳解答
「excel亂數不重複」的推薦目錄：
- 關於excel亂數不重複 在 コバにゃんチャンネル Youtube 的最佳解答
- 關於excel亂數不重複 在 大象中醫 Youtube 的最佳貼文
- 關於excel亂數不重複 在 大象中醫 Youtube 的最讚貼文
- 關於excel亂數不重複 在 [算表] EXCEL VBA 取不重複的亂數- 看板Office - 批踢踢實業坊 的評價
- 關於excel亂數不重複 在 使用Random方法，產生多組亂數值並不重複 - gists · GitHub 的評價
- 關於excel亂數不重複 在 #請益如果利用Excel產生不重複亂數組合 - 3C板 | Dcard 的評價
- 關於excel亂數不重複 在 隨機數字不重複2022-在Mobile01/PTT/Yahoo上的房地產討論 ... 的評價
- 關於excel亂數不重複 在 隨機數字不重複2022-在Mobile01/PTT/Yahoo上的房地產討論 ... 的評價
- 關於excel亂數不重複 在 Excel 隨機分組不重複在PTT/Dcard完整相關資訊 - 健康急診室 的評價
- 關於excel亂數不重複 在 Excel 隨機分組不重複在PTT/Dcard完整相關資訊 - 健康急診室 的評價
- 關於excel亂數不重複 在 [機統] 隨機分組不重複，分組共三次- math | PTT學習區 的評價
excel亂數不重複 在 使用Random方法，產生多組亂數值並不重複 - gists · GitHub 的推薦與評價
使用Random方法，產生多組亂數值並不重複，存到陣列中，並在控制項中顯示出來。 Raw. 【Visual C#】使用Random 方法產生不重複亂數 ... ... <看更多>
excel亂數不重複 在 #請益如果利用Excel產生不重複亂數組合 - 3C板 | Dcard 的推薦與評價
想請問聰明的大家，我想在1～12的數字中，隨機抽取6個數字，不重複並顯示出來，（類似數學C12取6 ）要怎麼利用Excel算出來呢？️️ ... <看更多>
excel亂數不重複 在 [算表] 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
... <看更多>