いつもお世話になっております。
エクセルVBAのChangeイベントについてご教授いただきたいと思います。
VBA初心者です。
【やりたいこと】
日付の入った一覧表があります。
これを、A1セルに入力した月の数字で自動で抽出できるようにしたいのです。
(A1に「11」月と入力すると、一覧表の11月分が自動で抽出)
抽出したい月は何度も変わるので、A1セルの入力値が変更される度に動かしたいのですが、
一回目は実行できても二回目以降が動きません。
考え方が違うのか、コードが足りないのかも分からない状態です。
何とぞご教授のほど、お願いいたします。
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then
Exit Sub
Else
Range("A1").Select
Selection.AutoFilter field:=1, Criteria1:=Range("A1").Value, Operator:=xlAnd
End If
End Sub
No.2ベストアンサー
- 回答日時:
もしかしたら以下のような事ですか?
--------------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "A1" Then
Cells.AutoFilter Field:=1, Criteria1:=Target.Text
End If
End Sub
--------------------------------------------------------------------------------
出来ました!
早速のご回答、ありがとうございます!
本当に助かりました。
また分からないことがありましたらご教授いただけると嬉しいです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Visual Basic(VBA) Sheet2の日付をキーにオートフィルターで2023年1月のデータを抽出し、Sheet3へ書き出すた 2 2023/03/06 23:57
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Excel(エクセル) 並べ替え、ソートの構文がわからない。 お世話になります。VBA超初心者です。 エクセルでワークシート 2 2023/06/28 21:00
- Visual Basic(VBA) エクセルで、1つのセルで上書き足し算して セルの範囲を指定できますか? パソコン初心者です。 お時間 3 2023/07/05 06:13
- Visual Basic(VBA) [Excel VBA] このコードでは行の挿入や行の消去をすると13のエラーが出てしまう。 3 2022/12/09 00:29
- Excel(エクセル) エクセルのイベントプロシージャーでF列の最終行のセルの入力をトリガーにしたいのですが 1 2022/10/14 09:36
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) エクセル VBAで複数セル選択時エラーになる問題 3 2022/10/04 02:40
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
マクロ オートフィルタの検索値を所定のセルから参照
Excel(エクセル)
-
Excelオートフィルタで複数のセルの値を参照して抽出したい
Excel(エクセル)
-
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
-
4
オートフィルターとExcelマクロの連動方法について
Visual Basic(VBA)
-
5
エクセルのオートフィルタで抽出できない
Excel(エクセル)
-
6
セルの値をCriteriaに入れる
Excel(エクセル)
-
7
Excel VBAでのWorksheet_Changeが動作しない原因
Excel(エクセル)
-
8
【VBA】指定した検索条件に一致したら別シートに転記したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで、抽出したデータだ...
-
ACCESSのクエリー抽出条件にIIF...
-
access クエリ yes/no型のクエ...
-
「パラメータが少なすぎます。3...
-
AccessのWHERE句において、変数...
-
エクセルで色の付いたセルを抽...
-
アクセス 同じフィールド(テキ...
-
【AccessVBA】レコードセットOp...
-
PDFファイル/抽出許可され...
-
PDFファイルから特定の文字を検...
-
文章から12桁数値(完全一致...
-
未審査請求包袋抽出表作成とは...
-
PCゲーム 音声 画像 抽出方法
-
エクセル関数で住所から丁目番...
-
Access2016でのfilter後に並べ...
-
Access の SQL で、Aがなかっ...
-
Excel 文字列から6桁の数値の抽出
-
Access クエリとテーブルの合計...
-
EXCEL関数 MAX関数と複合的に...
-
Access クエリ抽出条件の「Bet...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで、抽出したデータだ...
-
PDFファイルから特定の文字を検...
-
「パラメータが少なすぎます。3...
-
未審査請求包袋抽出表作成とは...
-
PDFファイル/抽出許可され...
-
Excel 文字列から6桁の数値の抽出
-
ACCESSのクエリー抽出条件にIIF...
-
X-Ripperというフリーウェアに...
-
エクセルで色の付いたセルを抽...
-
Accessの選択クエリの抽出条件...
-
AccessのWHERE句において、変数...
-
アクセス 同じフィールド(テキ...
-
エクセル関数で住所から丁目番...
-
ACCESS クエリ 条件以外のレ...
-
access クエリ yes/no型のクエ...
-
エクセル VBA メール本文に指定...
-
【AccessVBA】レコードセットOp...
-
Access チェックボックスを利用...
-
Accessで○ヶ月前以前を抽出する...
-
Access フォームコンボボック...
おすすめ情報
GooUserラック様
説明不足ですみません。
一覧表の月はA列に表記されています。