
No.1ベストアンサー
- 回答日時:
メッセージボックスに表示させる方法が分かれば、その値をセルに設定するだけな気がしますが・・・
操作としてはどのタイミングでどの分を設定するのでしょうか?
VBAでオートフィルタとありますが、フィルタ必須ですか?
単純にデータを頭からなめて、月ごとの個数を表示するというわけではないのでしょうか?
どちらにしてもデータを順番に判定し対象月ならカウンタをカウントアップしていき、最終結果をセルに設定する方法でいけますが、そもそもSheet2の方にCOUNTIF関数で自動集計にしておけば結果の設定をコードで書く必要もない気がしますが(笑)
一応コードは記載しておきます
Public Sub Sample
Dim intR As Integer
Dim intS As Integer
Sheet1.Range("$A:$B").AutoFilter Field:=1, Criteria1:="4月"
intR = 2
intS = 0
Do Until Sheet1.Cells(intR, 1).Value = ""
If Sheet1.Cells(intR, 1).Value = "4月" Then
intS = intS + 1
End If
intR = intR + 1
Loop
Sheet2.Cells(2, 3).Value = intS
End Sub
上記は「4月」に固定した場合なので、フィルタ項目が変動する場合にはもう少し手間が必要です
No.4
- 回答日時:
こんにちは
>A列に月名、B列に個数
だけであるなら、わざわざマクロで算出しなくてもCOUNTIF的な算出で良いのでは?
例えば4月の個数を求めるなら
=SUMPRODUCT((MONTH(日付のセル範囲)=4)*1)
みたいな感じで、個数を求めることが可能です。
月数の部分をA列の値を参照するようにしておけば、あとはフィルコピーで1~12月分求められるかと・・・
No.3
- 回答日時:
ブック2に、「ブック1のシートをのぞきにいったピボットテーブル」を作って、
以下のような感じでやっても目的のことができるのではないでしょうか?
・日付をもとに「年」と「月」でグループ化
・集計の方法を「個数」などにしてみる
・ピボットテーブル側のフィルタ機能で、目的の「年」と「月」に絞り込む
・その結果をコピーして、ブック2の他のシートに値の貼り付けをし、
必要な情報だけを残してあとは削除。
そういう意味ではなかったのでしたら本当にごめんなさい・・・。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
エクセルマクロで、他ブックからオートフィルタ抽出
Visual Basic(VBA)
-
エクセルVBAでフィルタ抽出部分のみのコピー
Excel(エクセル)
-
Exel VBA 別ブックから該当データを検索し、必要なデータを取得する方法について
Visual Basic(VBA)
-
4
マクロ オートフィルタの検索値を所定のセルから参照
Excel(エクセル)
-
5
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
6
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
7
VBAで条件が一致する行のデータを別シートに抽出
Excel(エクセル)
-
8
Excelでフィルターのかかっているときの最終行の取り方。
Excel(エクセル)
-
9
エクセルで、抽出したデータだけを別ファイルにしたい
Excel(エクセル)
-
10
VBA 見つからなかった時の処理
Excel(エクセル)
-
11
特定の行を選択して別のシートにコピーするマクロ
Excel(エクセル)
-
12
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
13
オートフィルタの検索値を、所定のセルから参照(複数条件/部分一致)
Excel(エクセル)
-
14
Sub ***( ) と Private Sub ***( ) の違い
Visual Basic(VBA)
-
15
エクセルのセルに「=A13」と表示されて、困っています。。。
Excel(エクセル)
-
16
別のシートから値を取得するとき
Visual Basic(VBA)
-
17
参照先のブックを開かずに内容をコピーしたい
Excel(エクセル)
-
18
マクロ セルに入力されたシートを選択する
Excel(エクセル)
-
19
Excelマクロ:オートフィルタ3つ以上の条件
Excel(エクセル)
-
20
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
関連するQ&A
- 1 エクセルVBA オートフィルタについて教えてください。 オートフィルタの結果の個数を同じブックの別シ
- 2 エクセルVBAでオートフィルタの結果をコピーして別シートに貼り付け
- 3 EXCEL:オートフィルタの抽出結果を反映させる
- 4 オートフィルタで選択した項目を別セルにて反映 [EXCEL]
- 5 Excel2003でシート保護(オートフィルタ使用にはチェック)するとマクロのオートフィルタでエラーになる
- 6 Exceldで、ブックから別ブックの行と列の交わった条件へ転記するVBAコードをご教授願います
- 7 エクセルで、オートフィルタ実行後のステータスバーにデータ個数表示がされなくなった
- 8 エクセルのステータスバーにオートフィルタ時の抽出個数が出なくなった
- 9 Excel:オートフィルタの抽出個数カウント方法について
- 10 結果はそのままで、別の部分にソートした結果を反映させるには
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
【Excel】 可視セルへの貼り付...
-
5
Excel マクロ オートフ...
-
6
エクセルのフィルタをかけると...
-
7
=SUBTOTAL に =COUNTIF の機能...
-
8
Excel2010 フィルタで抽出できない
-
9
エクセルオートフィルタで余計...
-
10
5の倍数の日付だけを抽出したい
-
11
n次のフィルタについて
-
12
エクセルのSUMIFができない
-
13
エクセルで、桁数の異なるデー...
-
14
エクセル:色の付いたデータを...
-
15
エクセル 最新データのみを表...
-
16
オートフィルタで抽出したデー...
-
17
色フィルターをかけた状態で、...
-
18
EXCELで、空白セルを除いて別シ...
-
19
オートフィルタの表示、非表示...
-
20
オートフィルタについて(再)
おすすめ情報