![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
No.2ベストアンサー
- 回答日時:
No.1です。
投稿後間違いに気づきました。
>Range(Cells(3, "B"), Cells(lastRow, "C")).AutoFilter field:=1, Criteria1:=Target
を
>Range(Cells(4, "B"), Cells(lastRow, "C")).AutoFilter field:=1, Criteria1:=Target
に変更してください。
画像を拝見するとB4セル以降(項目行を含む)にデータがありました。m(_ _)m
No.3
- 回答日時:
普通に、エクセルのフィルター機能を使えばよいと思いますが・・・。
4行目を選択
⇒メニュー → データ → フィルター
⇒▼マークをクリックして、表示したいものを選択します。
ご回答ありがとうございます。
複数人が使用するため、Excelのフィルター機能が使えない人でも使用できるフォーマットを作成したく投稿させていただいた次第です。
No.1
- 回答日時:
こんばんは!
>所定のセル(B1)が空白の時は全表示、入力されているときはフィルターがかかる・・・
画像を拝見するとB1ではなく、B2セルになっていますね。
とりあえずB2セルの変化でマクロが実行されるコードです。
シートモジュールにしてください。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lastRow As Long
With Target
If .Address = "$B$2" Then
If .Value <> "" Then
lastRow = Cells(Rows.Count, "B").End(xlUp).Row
Range(Cells(3, "B"), Cells(lastRow, "C")).AutoFilter field:=1, Criteria1:=Target
Else
ActiveSheet.AutoFilterMode = False
End If
End If
End With
End Sub
こんな感じではどうでしょうか?m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) エクセルマクロ オートフィルターでで選択コピー 2 2022/04/18 11:05
- Visual Basic(VBA) Excel VBA マクロ ある列の最終行迄を参照し、別の列の空白セルに値を入力したいです 2 2023/03/05 02:44
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Excel(エクセル) COUNTIFSについて 2 2022/08/30 14:48
- Visual Basic(VBA) 前回質問の続きになりますが、下記マクロでシート1からシート2の抽出項目セルB3「りんご」とセルC2「 2 2022/12/02 17:37
- Excel(エクセル) Excel(エクセル)でフィルター抽出後、非表示の行を計算しないで、合計を算出する方法 【内容】 添 4 2023/01/30 17:17
- Visual Basic(VBA) Excel VBA 書式変更で困ってます。 オートフィルターの日付フィルターを用いて データの絞り込 2 2022/07/26 22:16
- Excel(エクセル) [オートフィルター]機能について 3 2023/02/04 14:32
- Visual Basic(VBA) エクセルVBAコピー 2 2022/06/08 21:45
- Excel(エクセル) エクセル バーコード作成で他のシートを参照するには? 2 2023/05/03 16:57
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
Excelオートフィルタで複数のセルの値を参照して抽出したい
Excel(エクセル)
-
オートフィルタの検索値を、所定のセルから参照(複数条件/部分一致)
Excel(エクセル)
-
EXCELマクロでワイルドカードを使ったオートフィルタ処理の方法がわからない
Excel(エクセル)
-
-
4
excelオートフィルタの検索条件をセルに入力したい
Excel(エクセル)
-
5
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
6
【エクセルVBA】 A1セルを参照してオートフィルタを抽出するChangeイベントが連続処理できない
Excel(エクセル)
-
7
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
8
別のシートから値を取得するとき
Visual Basic(VBA)
-
9
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
10
セルの値をCriteriaに入れる
Excel(エクセル)
-
11
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
12
ExcelVBA:オートフィルタをかけたシート上でのセル内の値参照について
Visual Basic(VBA)
-
13
Excel VBAでオートフィルタで抽出した列データを別シートの最終行にコピーするには
Visual Basic(VBA)
-
14
マクロ 新しいシートにデータをコピペしてシートの名前を変更したい
Excel(エクセル)
-
15
vba フィルター 複数条件 3つ以上 完全一致除外
Visual Basic(VBA)
-
16
オートフィルターをかけ、#N/A以外で絞込みするVBA記述をご教示ください
Excel(エクセル)
-
17
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
18
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
19
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
20
エクセル イベントマクロ Changeイベントを複数作りたい
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel分数の表示について
-
Excelについての質問です。 B2...
-
EXCELの散布図で日付が1900年に...
-
文字2桁、3桁交じりの文字列...
-
【EXCEL】画像の黄色部分の抽出...
-
マクロエクセルのブロック解除
-
絶対参照
-
Excelで表を作ったところに文字...
-
Excelピボットテーブルの1行目
-
エクセルのクイックアクセスツ...
-
DATE関数で現在の年齢を出した...
-
(マクロ)vlookupの元データを同...
-
PDFの請求明細をエクセルにしたい
-
エクセルのクイックアクセスツ...
-
REGEXREPLACE関数について、
-
職場の人から聞かれており、こ...
-
エクセルの空欄をつめて、次の...
-
ユーザー定義関数をアドイン登...
-
EXCELの質問です 119から足した...
-
エクセルの問題です。絶対値の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
半角カタカナをヘボン式ローマ...
-
(マクロ)vlookupの元データを同...
-
エクセルで上位バイトのセルと...
-
exselの質問です
-
Excel 大小比較演算子による「...
-
Excel VBについての質問です。
-
エクセルの問題です。絶対値の...
-
非表示列の再表示に失敗
-
職場の人から聞かれており、こ...
-
Excel関数-文字列で自動作成さ...
-
Excelデータをコピペして、ペー...
-
ユーザー定義関数をアドイン登...
-
【マクロ】for next構文について
-
エクセルの日付を編集する
-
【マクロ】VLOOKUPにて参照元に...
-
exselで最小数で並び替える関数
-
libre 表計算ソフトの計算がう...
-
エクセルで表
-
エクセルの表で1年間の曜日を...
-
西暦和暦
おすすめ情報