- ©«¤l
- 146
- ¥DÃD
- 46
- ºëµØ
- 0
- ¿n¤À
- 220
- ÂI¦W
- 0
- §@·~¨t²Î
- 7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-2-19
- ³Ì«áµn¿ý
- 2023-8-31
|
¦^´_ 17# ã´£³¡ªL
±z¦n¡A쥻YYYYMM´ú¸Õ«á¬O¥i¥H¥Îªº¡CY§Ú±NYYYYMM§ï¬°yyyymm¡A¤]¬O¥i¥H¥Îªº¡G
Sub ¦Xp¶×Á`()
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
½Ð°Ý쥻ªº(YYYYMM)·|³y¦¨þÓ¦a¤è¥X¿ù©O? ÁÂÁ±z¡C |
|