●EXCEL・VBA質問スレ Part2●

●EXCEL・VBA質問スレ ..

840:デフォルトの名無しさん
07/09/02 18:15:15
ほら

Dim s(1 To 48) As Integer
Dim a As Integer

For i = 1 To 7
For m = 1 To 7
If Not (m = 4 And i = 4) Then
Do
a = Int(Rnd * 48 + 1)
Loop Until (s(a) = 0)
Cells(i, m) = a
s(a) = 1
End If

Next
Next

次ページ

続きを表示

1を表示