回数券の枚数を計算したいのです

質問

エクセルで交通費と通信費の計算をするファイルを作りたいのですが、回数券の枚数を計算したいのですが、回数券はA１～A１１までB1～B11までという感じでJぐらいまで使います。エクセルではどの関数を使って、やればうまくできますか？例えば、４月１日はA１とB1を使って、次の４月２日はC1とD1を使うというような感じです。それで月末の合計をA～Jまで何枚使ったかを自動計算できるようにしたいです。わかる方、よろしくお願いします。
回答、アドバイスお待ちしています。

回答No.2

mu2011 · ベストアンサー

一例です。
A1:J11には使用した日付（シリアル値）が入力される事とする。
A12に=SUMPRODUCT((MONTH(A1:J11)=MONTH(TODAY()))*1)で日々表示できますが如何でしょうか。

回答No.4

imogasi

・使用した日
・使用したというマーク（サイン）を
どう入力するか、ぼやかして書いてない。
そのやり方で関数もがラッと変わる恐れがあるのだ。
＞わかる方、よろしくお願いします。
といわれてもね。あんまり考えずに質問してるね。
エクセルを使うなら、既回答のように１行１枚とか１月１シートなどの基本原則があるのだが聞く耳を持たないようだ。
ーーー
セルのダブルクリックだけで出来るだけやりたい方針で。
こういうのもあるという例
例データ　初めは１ばかり。ダブルクリックすると済みに変わる
Ａ１５に使用済み枚数が出る。
A B C D E
1 1 1 1 1
済み 済み 1 1 1
1 済み 1 1 1
1 済み 1 1 済み
1 1 1 1 済み
1 済み 1 1 1
1 1 済み 1 1
済み 1 済み 1 1
済み 1 1 1 1
1 1 1 1 1
1 1 済み 1 1
A15に　１２（合計枚数）
ＶＢＥのＳｈｅｅｔ１の標準モジュールに
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A2:J12")) Is Nothing _
And Target = 1 Then
Target = "済み"
Range("A15") = WorksheetFunction.CountIf(Range("a2:j12"), "済み")
End If
End Sub
ーーー
もうひとつ
例データ　初めは１ばかり
Ａ列Ａ１５以下に順に回数券交付日付を入れて、該当のセルを
ダブルクリック
Ａ１５から下の日付のＢ列に日別枚数が出る。

A B C D E
1 1 1 1 1
1 1 1 1 1
2008/4/1 2008/4/2 1 1 1
1 1 1 1 1
1 2008/4/1 1 1 1
1 1 1 1 1
2008/4/2 1 1 1 1
1 2008/4/3 2008/4/1 1 1
2008/4/3 1 1 1 1
1 1 1 1 1
1 1 1 1 1

4月1日 3
4月2日 2
4月3日 2

ＶＢＡコードはＳｈｅｅｔ１のシートモジュールに
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
dt = Cells(12, "A")
If Not Intersect(Target, Range("A2:J12")) Is Nothing _
And Target = 1 Then
d = Range("A30").End(xlUp).Row
dt = Range("A" & d)
Target = dt
Range("B" & d) = WorksheetFunction.CountIf(Range("a2:j12"), dt)
End If
End Sub

回答No.3

koko88okok

例えば、A1セルに「日付」B1セルに「回数券A」、C1セルに「回数券B」などと入力し、

A　　B　　　　C　　　　D　　　　E
1 日付 回数券A 回数券B 回数券C 回数券D
2 4/1 1000/11　1200/11
3 4/2　　　　　　　　　　　　　1500/11　1800/11
4 4/3　　　　　　　1200/11　　　　　　　1800/11
5 ・

などと入力し、月末にSUM関数で合計すればいのでは？
ただし、1000/11は、11枚綴りが1,000円の回数券のつもりです。

金額の入力は、コピペやリストから入力するとよいでしょう。

回答No.1

DIooggooID

一日に一シートを使って、実績を入力します。

最後のシートには、一ヶ月分の全ての合計値を集計する関数を設定します。
設定方法に関しては、次の URL の【串刺し集計の方法】を参考にしてください。

http://www.eurus.dti.ne.jp/~yoneyama/Excel/ex-q-a/q_keisan.html

お礼

すいませんが、もうすこしわかりやすくお願いします。後、シートは一枚だけを使います。アドバイス、ありがとうございます。