|
??? |
|
エクセルのマクロ
Option Explicit Sub Macro1() Cells(1, 1).Value = 0 Dim a As Integer Dim b As Integer Dim c As Integer Dim p As Integer For a = 1 To 6 For b = 1 To 6 For c = 1 To 6 p = a - b * (a <> b) - c * (a <> c And b <> c) If p * 2 > a + b + c 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(Cells(1, 1).Value, 5).Value = p Cells(Cells(1, 1).Value, 6).Value = (a + b + c) / 2 End If Next c Next b Next a End Sub |
|
4月18日（木） 9:33:37
40472 |