A16 A23の解決方法

質問者が納得こんな感じで如何でしょうか。Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim Rng As RangeSet Rng = Intersect(Range("A11:A52"), Target)With ActiveSheet.Calendar1 If Not Rng Is Nothing Then .Visible = True .Value = Date .Top = Rng.Top Else .Visibl...

質問者が納得常のその行含め上方向に5つの合計ですね。作業列C列を使います。B1：=IF(C1<6,SUM($A$1:A1),SUM(INDIRECT("A"&MATCH(C1-4,C:C,0)&":A"&ROW()))) C1：=COUNT($A$1:A1)このB1C1を下方向にオートフィル式の説明は省略します。・・・