­ã´£³¡ªL

¦X­p®æ©T©w¦b¦UªíB6
B1¿é¤J:202201
C1¿é¤J:202203
®æ¦¡³]¬°:0000¦~00¤ë

B2//°}¦C¤½¦¡(¤TÁä»ô«ö)
=SUM(iferror(N(INDIRECT(TEXT(IF(ROW(1:36)<=MOD(C1-B1,88)+1,TEXT(B1,"0-00")+ROW(1:36)*31-31),"'yyyy¦~m¤ë'\!B\6"))),0))

ROW(1:36)...³Ì¦h±qB1¤ë¥÷°_ºâ36­Ó¤ë

¦X­p¦ì¸m¤£©T©w
=SUM(iferror(SUMIF(INDIRECT(TEXT(IF(ROW(1:36)<=MOD(C1-B1,88)+1,TEXT(B1,"0-00")+ROW(1:36)*31-31),"'yyyy¦~m¤ë'\!A:A")),"¦X­p",INDIRECT(TEXT(IF(ROW(1:36)<=MOD(C1-B1,88)+1,TEXT(B1,"0-00")+ROW(1:36)*31-31),"'yyyy¦~m¤ë'\!B:B"))),0))

­ã´£³¡ªL

¦^´_ 13# gaishutsusuru


§ï¦¨¦p¤U¸Õ¸Õ//
=SUM(iferror(SUMIF(INDIRECT(TEXT(IF(ROW(1:36)<=MOD(C1-B1,88)+1,TEXT(B1,"0-00")+ROW(1:36)*31-31),"'yyyy¦~m¤ë'\!\A\:\A")),"¦X­p",INDIRECT(TEXT(IF(ROW(1:36)<=MOD(C1-B1,88)+1,TEXT(B1,"0-00")+ROW(1:36)*31-31),"'yyyy¦~m¤ë'\!\B\:\B"))),0))

©Î
=SUM(iferror(SUMIF(INDIRECT(TEXT(IF(ROW(1:36)<=MOD(C1-B1,88)+1,TEXT(B1,"0-00")+ROW(1:36)*31-31),"'yyyy¦~m¤ë")&"'!A:A"),"¦X­p",INDIRECT(TEXT(IF(ROW(1:36)<=MOD(C1-B1,88)+1,TEXT(B1,"0-00")+ROW(1:36)*31-31),"'yyyy¦~m¤ë")&"'!B:B")),0))

================================
¦A­×¤U//
=SUM(iferror(SUMIF(INDIRECT(TEXT(TEXT(B1,"0-00")+ROW(1:36)*31-31,"'yyyy¦~m¤ë")&"'!A:A"),A2,INDIRECT(TEXT(TEXT(B1,"0-00")+ROW(1:36)*31-31,"'yyyy¦~m¤ë")&"'!B:B"))/(ROW(1:36)<=MOD(C1-B1,88)+1),0))

­ã´£³¡ªL

Sub ¦X­p¶×Á`()
Dim d0, d1, d2, S
d0 = CDate(Split([·JÁ`!b1], "~")(0))
d1 = Format(Split([·JÁ`!b1], "~")(0), "YYYYMM")
d2 = Format(Split([·JÁ`!b1], "~")(1), "YYYYMM")
On Error Resume Next
For i = 0 To (d2 - d1) Mod 88
    S = S + Val(Sheets(Format(d0 + i * 31, "yyyy¦~m¤ë")).[b65536].End(3))
Next i
[·JÁ`!B2] = S
End Sub

­ã´£³¡ªL

¦^´_ 16# gaishutsusuru


vba¦³­×¥¿, d1¤£¥i¬°date, À³¬°yyyymm®æ¦¡¤~¹ï!!

­ã´£³¡ªL

¦^´_ 18# gaishutsusuru


­ì¨Óªº
d1 = CDate(Split([·JÁ`!b1], "~")(0))  > yyyy/m/d
d2 = CDate(Split([·JÁ`!b1], "~")(1))  > yyyy/m/d
¬O"¤é´Á", ­pºâ¤ë®t (d2 - d1) Mod 88 , ¬O¤£¹ïªº ,
¶·¥Îquickfixer¤j¤jªº DateDiff("m", d1, d2)