|
??? |
|
Option Explicit
Sub Macro1() Cells(1, 1).Value = 0 Cells(2, 1).Value = 0 Dim a As Integer Dim b As Integer Dim c As Integer For a = 1 To 10 - 2 For b = a + 1 To 10 - 1 If a + b <> 11 Then For c = b + 1 To 10 If a + c <> 11 And b + c <> 11 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 Cells(2, 1).Value = Cells(2, 1).Value + (a * b * c) Range("B" & Cells(1, 1).Value).Select End If Next c End If Next b Next a Range("A2").Select End Sub |
|
1月27日（木） 9:08:11
37300 |