|
??? |
|
Option Explicit
Dim keta As Integer Dim a(10) As Integer Sub Macro1() Cells(1, 1).Value = 0 For keta = Application.RoundUp(10 / 4, 0) To 10 Call saiki(1) Next keta Range("A1").Select End Sub Sub saiki(ByVal n As Integer) Dim j As Integer a(n) = 1 While a(n) <= 4 If n < keta - 1 Then Call saiki(n + 1) Else a(keta) = 10 For j = 1 To keta - 1 a(keta) = a(keta) - a(j) Next j If 1 <= a(keta) And a(keta) <= 4 Then Cells(1, 1).Value = Cells(1, 1).Value + 1 For j = 1 To keta Cells(Cells(1, 1).Value, j + 1).Value = a(j) Next j Range("B" & Cells(1, 1).Value).Select End If End If a(n) = a(n) + 1 Wend End Sub |
|
11月10日（木） 13:29:06
38565 |