看板 [ Visual_Basic ]
討論串[VBA ] 如何用VBA產生1-81之間的亂數?
共 3 篇文章
內容預覽： 開啟 | 關閉 | 只限未讀
首頁
上一頁
1
下一頁
尾頁
#3
Re: [VBA ] 如何用VBA產生1-81之間的亂數?
推噓0(0推 0噓 0→)留言0則，0人參與, 最新作者icene (kkk)時間20年前 (2005/11/30 23:06), 編輯資訊
0
0
0
內容預覽:
我想了另一種方法，不曉得合不合邏輯. Private Sub CommandButton1_Click(). For i = 1 To 81. Cells(i, 1) = Rnd(). Cells(i, 2) = i. Next i. Range("a1:b81").Sort Key1:=Range
(還有69個字)
#2
Re: [VBA ] 如何用VBA產生1-81之間的亂數?
推噓0(0推 0噓 0→)留言0則，0人參與, 最新作者realll (IMOK)時間20年前 (2005/11/29 22:24), 編輯資訊
0
0
0
內容預覽:
我研究出來了!!!. 分享給大家~!. Sub imok() 'Private. Dim a, i, j, z, x, y As Integer. Dim AD As Double. Dim renn(1, 90). Dim ren(1, 90) '佇列長度. Set ws1 = Worksheet
(還有268個字)
#1
[VBA ] 如何用VBA產生1-81之間的亂數?
推噓0(0推 0噓 0→)留言0則，0人參與, 最新作者realll (IMOK)時間20年前 (2005/11/29 17:44), 編輯資訊
0
0
0
內容預覽:
1-81之間~. 而且不重複出現~. 每一個數字要出現一次~. 總共81個數值~. 隨機出現~. 是用於"基因演算法"的. 可以給小弟一點方向嗎= =. 先謝了!!. --. ※ 發信站: 批踢踢實業坊(ptt.cc). ◆ From: 218.175.196.240.
首頁
上一頁
1
下一頁
尾頁