|
??? |
|
Dim a(6) As Integer
Sub Macro1() Cells(1, 1).Value = 0 Call saiki(1) End Sub Sub saiki(ByVal n As Integer) Dim dame As Integer, j As Integer a(n) = 1 While a(n) <= 3 Select Case n Case 1 : dame = 0 Case 6 : dame = -(a(5) = a(6) Or a(6) = a(1)) Case Else : dame = -(a(n - 1) = a(n)) End Select If dame = 0 Then If n < 6 Then Call saiki(n + 1) Else Cells(1, 1).Value = Cells(1, 1).Value + 1 For j = 1 To 6 Cells(Cells(1, 1).Value, j + 1).Value = iro(a(j)) Next j End If End If a(n) = a(n) + 1 Wend End Sub Private Function iro(ByVal n As Integer) As String Select Case n Case 1 : iro = "赤" Case 2 : iro = "白" Case Else : iro = "オレンジ" End Select End Function |
|
11月26日（木） 12:53:18
43947 |