|
??? |
|
Option Explicit
Sub Macro1() Cells(1, 1).Value = 0 Dim money As Integer Dim day As Integer day = 0 For money = 100 To 1000 Step 10 Cells(1, 1).Value = Cells(1, 1).Value + money \ 7 day = day + 1 Cells(day, 2).Value = money \ 7 Range("B" & day).Select Next money Range("A1").Select End Sub かぶってすみません。 |
|
2月3日（木） 8:53:48
37332 |