|
??? |
|
Option Explicit
Dim a(5) As Integer, n As Integer Sub Macro1() Cells(1, 1).Value = 1 For n = 1 To 5 Call saiki(1) Next n End Sub Sub saiki(ByVal m As Integer) Dim j As Integer If m = 1 Then a(1) = 1 Else a(m) = a(m - 1) + 2 End If While a(m) <= 9 If m < n Then Call saiki(m + 1) Else Cells(1, 1).Value = Cells(1, 1).Value + 1 For j = 1 To n Cells(Cells(1, 1).Value, j + 1).Value = sembun(a(j)) Next j End If a(m) = a(m) + 1 Wend End Sub Private Function sembun(ByVal m As Integer) As String Select Case m Case 1 : sembun = "アイ" Case 2 : sembun = "イウ" Case 3 : sembun = "ウエ" Case 4 : sembun = "エオ" Case 5 : sembun = "オカ" Case 6 : sembun = "カキ" Case 7 : sembun = "キク" Case 8 : sembun = "クケ" Case Else : sembun = "ケコ" End Select End Function |
|
12月10日（木） 9:00:45
43966 |