| |
いつもお世話になっております。
たとえば時系列に入力された売上票
（シート名：売上票、Ａ列からＤ列の名前を 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 のような条件式で月集計をしたいのです。）
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
