|
??? |
|
Option Explicit
Sub Macro1() Sheets("Sheet1").Select Cells(1, 1).Value = 0 Dim a As Long Dim b As Long Dim c As Long For a = 1 To 4620 - 2 For b = a + 1 To Int(4620 / a) c = Int(4620 / (a * b)) If b < c And a * b * c = 4620 Then Cells(1, 1).Value = Cells(1, 1).Value + 1 Cells(Cells(1, 1).Value, 2).Value = a Cells(Cells(1, 1).Value, 3).Value = b Cells(Cells(1, 1).Value, 4).Value = c Range("B" & Cells(1, 1).Value).Select End If Next b Next a Range("A1").Select End Sub かぶりましたか。 |
|
5月13日（木） 8:15:27
36229 |