Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

58116 / 76738

←次へ　｜　前へ→


	【23354】月ごとの集計方法について

furuya - 05/3/19(土) 10:29 -


	引用なし

	パスワード

いつもお世話になっております。
たとえば時系列に入力された売上票
（シート名：売上票、Ａ列からＤ列の名前を tbl売上と定義）があるとします。

（Ａ列）（Ｂ列）（Ｃ列）（Ｄ列）
一連番号　　　　年月日　　　　担当者名　　　　商品区分
1　　　　2005/1/5　　　　鈴木　　　　01
2　　　　2005/1/18　　　　佐藤　　　　02
3　　　　2005/2/1　　　　鈴木　　　　03
4　　　　2005/2/14　　　　高橋　　　　03
5　　　　2005/2/16　　　　佐藤　　　　02
6　　　　2005/2/28　　　　山田　　　　01
7　　　　2005/3/3　　　　山田　　　　02
8　　　　2005/3/14　　　　佐藤　　　　01
9　　　　2005/3/15　　　　高橋　　　　03
10　　　　2005/3/18　　　　鈴木　　　　01

上記表を別シート（シート名：月集計）に月ごとに集計（個数）したいのですが。

（たとえば下記のような様式で集計）
　　　　１月　　　　２月　　　　３月
01　　　　　　　　　　　　
02　　　　　　　　　　　　
03　　　　　　　　　　　　

月集計シートのA1:B2に、条件として

月　　　　商品区分
TRUE　　　　01

とします。（　A2の条件式は、=MONTH(売上票!B2)=1　）

１月分の商品区分01をカウントする場合、

Sub syukei()
Dim kosuu As Long
kosuu = Application.WorksheetFunction _
.DCountA(Range("tbl売上"), 1, Worksheets("月集計").Range("A1:B2"))
msgbox kosuu
End Sub

とすればカウントされます。
ここで質問は、DCountAの３番目の引数の条件に、セル番地
（Worksheets("月集計").Range("A1:B2")）
ではなく、値や式を入れ指定することはできるのでしょうか。
何度がやってもうまくいきませんでした。
他に月ごとに集計する方法でベターなやり方があれば教えて下さい。
（>=2005/01/01 and <=2005/01/31 のような日付の指定だと煩雑になってしまうので、あくまでも =MONTH(売上票!B2)=1　のような条件式で月集計をしたいのです。）

0 hits

▼

【23354】月ごとの集計方法について furuya 05/3/19(土) 10:29

≪