Re: [算表] 請問一下excel的亂數表要怎麼做(VBA)
VBA 的程式 ...
1.Alt+F11
2.左邊視窗->滑鼠右鍵->插入->模組
3.右邊視窗插數以下程式
4.關閉程式視窗
5.Alt+F8
6.執行即可
Sub Marco()
Dim a(64) As Integer
Dim ra(64) As Integer
Rem a陣列: 原始數據 ra陣列: 亂數後
N = 64
Randomize (Timer)
For i = 1 To 64
a(i) = i
Next i
For i = 1 To 64
ii = Int(Rnd * N) + 1
ra(i) = a(ii)
a(ii) = a(N)
Rem 把最後一個搬過來, 再取(N-1)個亂數順序
N = N - 1
Next i
For i = 1 To 8
For j = 1 To 8
s1 = Chr(i + 64)
s2 = Chr(j + 48)
Worksheets(1).Range(s1 + s2).Value = ra((i - 1) * 8 + j)
Next j
Next i
End Sub
※ 引述《ted382000 (阿修)》之銘言：
: 軟體:
: excel
: 版本: 2003
: 想做一個用excel亂數表做
: 8*8的賓果
: 不知道該怎麼去做
: 不知道有哪位大大可以交我一下
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.131.84.79
Office 近期熱門文章
PTT數位生活區 即時熱門文章
