|
??? |
|
Option Explicit
Dim a(10) As Integer Sub Macro1() Sheets("Sheet1").Select Cells(1, 1).Value = 0 Call saiki(1) Range("A1").Select End Sub Sub saiki(ByVal n As Integer) Dim p As Integer Dim j As Integer a(n) = 1 While a(n) <= 7 p = 0 For j = 1 To n p = (p + a(j)) Mod 8 Next j If p <> 4 And n < 10 Then Call saiki(n + 1) ElseIf p = 4 And n = 10 Then Cells(1, 1).Value = Cells(1, 1).Value + 1 For j = 0 To 10 If j = 0 Then p = 0 Else p = (p + a(j)) Mod 8 End If Cells(Cells(1, 1).Value, j + 2).Value = rest(p) Next j Range("B" & Cells(1, 1).Value).Select End If a(n) = a(n) + 6 Wend End Sub Private Function rest(ByVal n As Integer) As String Select Case n Case 0 rest = "A" Case 1 rest = "B" Case 2 rest = "C" Case 3 rest = "D" Case 4 rest = "E" Case 5 rest = "F" Case 6 rest = "G" Case Else rest = "H" End Select End Function ABCDCDCDCDE ABCDCDCBCDE ABCDCBCDCDE ABCDCBCBCDE ABCDCBABCDE ABCDCBAHGFE ABCBCDCDCDE ABCBCDCBCDE ABCBCBCDCDE ABCBCBCBCDE ABCBCBABCDE ABCBCBAHGFE ABCBABCDCDE ABCBABCBCDE ABCBABABCDE ABCBABAHGFE ABCBAHABCDE ABCBAHAHGFE ABCBAHGHGFE ABCBAHGFGFE ABABCDCDCDE ABABCDCBCDE ABABCBCDCDE ABABCBCBCDE ABABCBABCDE ABABCBAHGFE ABABABCDCDE ABABABCBCDE ABABABABCDE ABABABAHGFE ABABAHABCDE ABABAHAHGFE ABABAHGHGFE ABABAHGFGFE ABAHABCDCDE ABAHABCBCDE ABAHABABCDE ABAHABAHGFE ABAHAHABCDE ABAHAHAHGFE ABAHAHGHGFE ABAHAHGFGFE ABAHGHABCDE ABAHGHAHGFE ABAHGHGHGFE ABAHGHGFGFE ABAHGFGHGFE ABAHGFGFGFE AHABCDCDCDE AHABCDCBCDE AHABCBCDCDE AHABCBCBCDE AHABCBABCDE AHABCBAHGFE AHABABCDCDE AHABABCBCDE AHABABABCDE AHABABAHGFE AHABAHABCDE AHABAHAHGFE AHABAHGHGFE AHABAHGFGFE AHAHABCDCDE AHAHABCBCDE AHAHABABCDE AHAHABAHGFE AHAHAHABCDE AHAHAHAHGFE AHAHAHGHGFE AHAHAHGFGFE AHAHGHABCDE AHAHGHAHGFE AHAHGHGHGFE AHAHGHGFGFE AHAHGFGHGFE AHAHGFGFGFE AHGHABCDCDE AHGHABCBCDE AHGHABABCDE AHGHABAHGFE AHGHAHABCDE AHGHAHAHGFE AHGHAHGHGFE AHGHAHGFGFE AHGHGHABCDE AHGHGHAHGFE AHGHGHGHGFE AHGHGHGFGFE AHGHGFGHGFE AHGHGFGFGFE AHGFGHABCDE AHGFGHAHGFE AHGFGHGHGFE AHGFGHGFGFE AHGFGFGHGFE AHGFGFGFGFE |
|
9月10日（木） 11:36:42
35025 |