記事目次　ナンバーズ4 

ナンバーズ4ボックスペア数字集計マクロ2のように今度は直近回数で計算。
40回目の次は40回の倍数になる。

Sub Tyokkin_box_pea() 'ボックスペアを直近回数毎に計算するbox_pea_kai()で出したデータを元に

Dim Lastgyou As Long, owari As Long, kai As Variant
Dim i As Long, ii As Long
Sheets("ｽﾄﾚｰﾄﾊﾟﾀｰﾝ").Select

Lastgyou = Cells(Rows.Count, 3).End(xlUp).Row

Cells(1, 688) = Lastgyou
i = 4

kai = Application.InputBox("直近集計間隔を入力して下さい", Default:=10, Type:=1)

If StrConv(kai, vbLowerCase) = "false" Then Exit Sub

Range("zm4:abq7000").ClearContents
owari = Lastgyou + kai - 4

Cells(3, 689) = "直近" & kai
Call saikeisanoff '再計算を止めて計算を速くする・

For ii = 0 To owari Step kai

For t = 0 To 54

Cells(i, t + 690) = Application.Sum(Range(Cells(4, t + 631), Cells(ii + kai + 3, t + 631)))
Next t

Cells(i, 689) = kai

If ii > 0 Then
Cells(i - 1, 689) = ii
Cells(i - 1, 745) = ii

End If
i = i + 1

Next ii

Call saikeisanon

End Sub