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

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

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

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

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

No.2 ベストアンサー 回答者： hana-hana3 回答日時： 2004/12/06 22:29

[Σ]や[fx] ボタンでは出来ませんが、

集計セルに=sum( と入力して、集計対象のセルを　[Ctrl] キーを押しながら、クリックしていけば希望するセルだけの集計が可能です。

この回答へのお礼

おおっ？

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

お礼日時：2004/12/06 22:37

No.5 回答者： BLUEPIXY 回答日時： 2004/12/06 23:48

ユーザー関数を作ってみました。

行を１つ飛ばしで合計するには、
=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 回答日時： 2004/12/06 23:02

配列式で

奇数行の合計

=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 回答日時： 2004/12/06 22:39

奇数行の和

=SUMPRODUCT((MOD(ROW(B1:B60),2)=1)*(B1:B60))

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

No.1 回答者： coo1111 回答日時： 2004/12/06 22:27

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

この回答へのお礼

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

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

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

お礼日時：2004/12/06 22:36