• ベストアンサー

トグルボタンの使い方教えて

10列、2000行のリストがあります。 これにトグルで 一回押したら フィルターオプションの設定、もう一回押したらすべて表示、という風に使用したいと思っています。 リスト範囲 A5:J2000 ,検索条件範囲 A1:J2 とした時、プロシージャをどう書いたらいいでしょうか。お教えください。Excel2002

質問者が選んだベストアンサー

  • ベストアンサー
  • nishi6
  • ベストアンサー率67% (869/1280)
回答No.1

Sheet1の1~3行目くらいにToggleButton1を貼り付けました。 下のコードくらいでどうでしょうか。(当方、Excel2000です) トグルボタンを再度押すと、フィルタを解除しています。 フィルタを有効にするなら、Selection.AutoFilterを1つにして下さい。 ご参考に。 Sheet1のコードウインドウに貼り付けます。 ↓ Private Sub ToggleButton1_Click()   If ToggleButton1 = True Then     Range("A5:J2000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _     Range("A1:J2"), Unique:=False   Else     ActiveSheet.ShowAllData     Range("A5").Select     Selection.AutoFilter     Selection.AutoFilter   End If End Sub

shonenA
質問者

お礼

いつもご教示いただき感謝申し上げます。 自力で If ~ Else End If までは思いついたのですが再表示がうまく行きませんでした。 ActiveSheet.ShowAllData     Range("A5").Select なんですね。まだまだ勉強が足りません。今後ともよろしくお願いします。

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • excel2007 フィルタオプションがおかしい?

    excel2007にて、1800行ほどの企業リストAと、400行ほどの企業リストBを照らし合わせ、電話番号が重複している企業を削除したいと思い、フィルタオプション(詳細設定)を実行しましたが、重複しているものがあるにも関わらず、「1800レコードのうち0レコードが見つかりました」となります。 操作方法は以下の通りです。 ・企業リストAにてフィルタ→詳細設定→リスト範囲($A$1:$P$1800)→検索条件範囲(Sheet1 (2)'!$A$1:$A$494)→実行 企業リストAのA列、リストBのA列は共に「電話」というタイトル、それぞれの列は昇順で並び替えをしています。 何がおかしいのでしょうか。

  • 重複したデータを除き、別セルに表示したい。

    EXCEL初心者です、教えてください。 セルB2から列方向に、 品名・A・B・A・B・B・Cと入力しフィルタオプションを使って  指定した範囲、リスト範囲、検索条件、抽出範囲、重複するレコードは無視、を指定 そうしますと セルD2に 品名・A・B・Cと絞込みができました。 しかし列Bの品名は毎日変わるので、品名以下(設定範囲)と列D(抽出範囲)をDeleteで削除 翌日のデータを入れたところ抽出範囲である列Dは動かず 毎回あらためて設定しなくてはならず大変です。 1度設定したら何回も使える方法はないでしょうか?                                                             

  • エクセル フィルタオプションで 特定の文字列を含む行を全て抽出する方法がわかりません

    エクセル2002を使用しています。 エクセルフィルタオプション設定で、特定の文字列を含む行を全て抽出する方法がわかりません。 たとえば sheet1    A    B    C    1 項目1 項目2 項目3  2  あ   い    う    3  う        あ    4  え        い 5      う       Sheet2   A         B         1 抽出文字列 2 あ  3   4 (計算式) 5 (以下抽出結果)   上記のようなデータがあり、sheet2!a5以降に「あ」が該当する行を全て抽出するといった式を組みたいのですが、 Sheet2 a2に抽出文字を入力し、a4に「=or(sheet1!a2=a2,sheet1!=a2,sheet1!=a2)」といった検索条件式を組み、フィルタオプションで、 ・リスト範囲 Sheet1!$a$1:$c$5 ・検索条件範囲 $a$3:$a$4 ・抽出範囲 $a$5  と指定するのですが、うまく抽出できません。 ちなみに抽出対象が文字列でなく数字なら(たとえばSheet1のデータの文字をあ→1 い→2のように全て数字に置き換えてSheet2!a2に1を入力)抽出できるのですが・・・ 文字列をセル参照して条件式を組む場合に何か気をつけることがあるのでしょうか?文章が長くなってしまい申し訳ありません。良い方法があればご教授お願いします。

  • エクセルのフィルタオプションエラー解除方法

    エクセルのフィルタオプションに関する質問です。 リスト範囲、検索条件範囲とも正しく選択しているのですが コマンドにはデータソースが2行以上必要です。選択したセル範囲が1行だけの場合はコマンドを実行できません。エラーがでます。 このエラーは1行だけデータがある行を選択して行うとでるようなのですが、リスト範囲内のセルを1つ選択して作業に入っているのでそれでもないようです。 解除方法がわかる方、教えてください。

  • excel 2003 オートフィルタ!

    excel 2003で、オートフィルタがうまくいきません。 A列の2行目から、1~5までの数字がランダムに並んでいるとします。 A1セルをオートフィルタし、 条件を、オプション>3を含む で指定すると、3がフィルタされてほしいのですが 1つも抽出されません。 3で始まるもだめでした・・ フィルタで抽出するマクロをくんでいて 列は、20列以上あり、 列によって、文字や数値があります。 フォームで列を選び、検索文字を入力して Criteria1:="=*" & 検索文字 & "*", Operator:=xlAnd と言う感じでフィルタしています。 文字はできますが、数値ができないのは、なぜでしょうか・・・

  • エクセルの抽出技

    エクセルで2000行×30列の表を操作しています。 フィルタオプションを使い100行の条件式で抽出し各結果をカウントしていますが条件式もデータ数も膨大の為問題点があります。 ファイルサイズが重くなる 条件式の変更や追加が大変。 VBAのプロシージャを使うとフィルタオプションは使用しないで済む方法はありますか? VBAは初級です。 お知恵を貸してくださいませんか。

  • フィルタオプション AND条件で抽出が出来ない

    Excel Version:2000 0~Zで始まる部品コードの管理を行っています。 とあるリストがあり、そのなかで0,A,B,Cから始まる部品コードを対象外とする必要があります。 4つの条件が必要なので、下記のような条件を作成し、 フィルタオプションにて抽出を行おうとしました。 品目コード <>0* <>A* <>B* <>C* しかし、実際に抽出してみると、フィルタリングが行われません(行が青くならない)。 検索条件範囲を2行目まで(<>0*)にすると、フィルタリングは行われます。 何か間違った設定を行っているのでしょうか?

  • エクセル(フィルタオプションの設定について教えてください!!!)

    現在エクセルを教科書片手に勉強中です。 オートフィルタ・オプションを利用して、2つの検索条件で抽出をしたいのですが一向に抽出先のリストから抜き出されません。 教科書の手順通りやっているつもりですが全くダメです。 フィルタオプションの設定で ●抽出先→「指定した範囲」を選択 ●リスト範囲→対象リストの範囲を設定 ●検索条件範囲→作成済の検索条件のリストの範囲を設定 ●抽出範囲→作成済の抽出先リストの範囲を設定            ↓ OK ボタンをクリック と、言う様な具合でやってますが どこかいけないのか分かりますでしょうか。 もしくは原因が何なのか分かる方いたら教えてください!!!!!

  • Excelで特定のセルのみ表示させる

    Excel2010です。 「A列内に何らかのデータが入っている」 かつ 「B列内に何もデータが入っていない」 という条件の行のみを表示することはできるでしょうか。 フィルターが複数列設定できれば可能だと思いますができないようですので、他に方法がないでしょうか。

  • エクセルのシートの保護について

    win2000、エクセル2000を使用しています。 新しいマクロの記録でフィルタオプションの設定とフィルタの全て表示の設定をしました。フィルタオプションの設定は以下の通りです。   リスト範囲→A10~P500   検索条件範囲→A1~P2 そしてボタンをそれぞれ作成してマクロの登録をしました。 この状態では、なんの問題もなく動くのですが、検索条件範囲だけロックのチェックをはずしてシートの保護をかけると、検索は出来るんですが、解除の時にエラーがでます。   実行時エラー'1004':   WorksheetクラスのShowAllDataメソッドが失敗しました。 というエラーです。 エラーが出ず、マクロが動くにはどうしたらよいのでしょうか? おわかりになる方がいましたら、よろしくお願いいたします。

専門家に質問してみよう