
いつもお世話になっております。
エクセル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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
みんなに挑戦してほしい「色彩検定」
これまで多くの方々が受検したが「色彩検定」。その目的や活用法は人それぞれ。今回は、色彩検定に影響を受けた男女3名にインタビュー。
-
マクロ オートフィルタの検索値を所定のセルから参照
Excel(エクセル)
-
Excelオートフィルタで複数のセルの値を参照して抽出したい
Excel(エクセル)
-
オートフィルタの検索値を、所定のセルから参照(複数条件/部分一致)
Excel(エクセル)
-
4
excelオートフィルタの検索条件をセルに入力したい
Excel(エクセル)
-
5
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
6
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
7
UserForm1.Showでエラーになります。
工学
-
8
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
9
VBAでのフィルタについて(空白行の削除)
Excel(エクセル)
-
10
【VBA】入力フォームを使った、フィルタについて
Visual Basic(VBA)
-
11
エクセルVBA シートモジュールにチェンジイベントを複数設定する方法を教えて下さい。 例えば、B列に
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
「パラメータが少なすぎます。3...
-
5
エクセルで色の付いたセルを抽...
-
6
【Access】条件未入力時、全件...
-
7
access クエリ yes/no型のクエ...
-
8
PDFファイル/抽出許可され...
-
9
未審査請求包袋抽出表作成とは...
-
10
エクセル関数で住所から丁目番...
-
11
ACCESSのクエリー抽出条件にIIF...
-
12
【AccessVBA】レコードセットOp...
-
13
X-Ripperというフリーウェアに...
-
14
Excel 文字列から6桁の数値の抽出
-
15
ACCESSのフォームからレポート...
-
16
Triton X-100 bufferの作り方に...
-
17
Access サブフォームでの選択行...
-
18
前のレコードの値を自動で入れたい
-
19
ACCESSでVBAから選択クエリの抽...
-
20
(ACCESS)条件に応じて、テキ...
おすすめ情報
公式facebook
公式twitter
GooUserラック様
説明不足ですみません。
一覧表の月はA列に表記されています。