ＳＵＭ関数を1つ飛ばしで計算したい

質問

現在、関数を勉強中なので、自分の出退勤表を作ってみようと思いました。で、シフト制の仕事なので午前の勤務時間と午後の勤務時間を分けて計算が出るようにしたいと思いましたが合計の関数に来たところで立ち止まっています。

午前の時間合計と午後の時間合計という風にしたいのですが、ＳＵＭ関数では、セルを一つ飛ばししていく計算はできないのでしょうか。

例えば、Ｂ１～Ｂ６０まで使用していて、２マスで1日にしています。ですので、Ｂの奇数のみを累計したいということなんですが・・・（意味が通じる説明になってますでしょうか。）

分かりにくければ、補足説明いたしますので、ご存知の方、もしくは「他にもっといい方法があるわよ～」と言う方がいらっしゃればよろしくお願い致します。

回答No.2

hana-hana3 · ベストアンサー

[Σ]や[fx] ボタンでは出来ませんが、
集計セルに=sum( と入力して、集計対象のセルを　[Ctrl] キーを押しながら、クリックしていけば希望するセルだけの集計が可能です。

お礼

おおっ？

やってみます！ありがとうございました！

回答No.5

BLUEPIXY

ユーザー関数を作ってみました。
行を１つ飛ばしで合計するには、
=sumstep(0,1,"B1:B60")
とします。
Public Function sumstep(c As Integer, r As Integer, range As range)
Dim s

s = 0
For i = 1 To range.Rows.Count Step r + 1
For j = 1 To range.Columns.Count Step c + 1
s = s + range.Cells(i, j)
Next j
Next i
sumstep = s
End Function

回答No.4

jindon

配列式で

奇数行の合計

=SUM(IF(MOD(ROW(B1:B60),2)=1,B1:B60))

偶数行の合計

=SUM(IF(MOD(ROW(B1:B60),2)=0,B1:B60))

として、Ctrl + Shift + Enter で確定

回答No.3

moon_piyo

奇数行の和
=SUMPRODUCT((MOD(ROW(B1:B60),2)=1)*(B1:B60))

偶数行の和
=SUMPRODUCT((MOD(ROW(B1:B60),2)=0)*(B1:B60))

回答No.1

coo1111

B列を午前、C列を午後にして作るということじゃだめでしょうか？？

お礼

できれば同じ行で・・・すみません。

この先、私の手に追えない技であればその方法でやってみます。

すばやいご回答ありがとうございます（＾ｕ＾）