|
いつもお世話になっております。
たとえば時系列に入力された売上票
(シート名:売上票、A列からD列の名前を tbl売上 と定義)があるとします。
(A列) (B列) (C列) (D列)
一連番号 年月日 担当者名 商品区分
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
上記表を別シート(シート名:月集計)に月ごとに集計(個数)したいのですが。
(たとえば下記のような様式で集計)
1月 2月 3月
01
02
03
月集計シートのA1:B2に、条件として
月 商品区分
TRUE 01
とします。( A2の条件式は、=MONTH(売上票!B2)=1 )
1月分の商品区分01をカウントする場合、
Sub syukei()
Dim kosuu As Long
kosuu = Application.WorksheetFunction _
.DCountA(Range("tbl売上"), 1, Worksheets("月集計").Range("A1:B2"))
msgbox kosuu
End Sub
とすればカウントされます。
ここで質問は、DCountAの3番目の引数の条件に、セル番地
(Worksheets("月集計").Range("A1:B2"))
ではなく、値や式を入れ指定することはできるのでしょうか。
何度がやってもうまくいきませんでした。
他に月ごとに集計する方法でベターなやり方があれば教えて下さい。
(>=2005/01/01 and <=2005/01/31 のような日付の指定だと煩雑になってしまうので、あくまでも =MONTH(売上票!B2)=1 のような条件式で月集計をしたいのです。)
|
|