|
通りすがり |
|
私もExcelVBAでやってみました。
Option Explicit Public Sub test() Dim count As Integer TakeOut 0, count Cells(1, 1).Value = count End Sub Private Sub TakeOut(total As Integer, count As Integer) If total >= 7 Then count = count + 1 Else Dim i As Integer For i = 1 To 7 TakeOut total + i, count Next End If End Sub |
|
3月12日（木） 9:39:16
34087 |