|
??? |
|
Option Explicit
Sub Macro1() Cells(1, 1).Value = 0 Dim n As Long Dim a As Long Dim b As Long Dim c As Long Dim d As Long Dim e As Long For n = 10000 To 99999 e = n Mod 10 d = (n \ 10) Mod 10 c = (n \ 100) Mod 10 b = (n \ 1000) Mod 10 a = n \ 10000 If a + b + c + d + e = a * b * c * d * e Then Cells(1, 1).Value = Cells(1, 1).Value + 1 Cells(Cells(1, 1).Value, 2).Value = n Range("B" & Cells(1, 1).Value).Select End If Next n Range("A1").Select End Sub |
|
10月27日（木） 13:21:43
38528 |