[[20040701100746]]　『オートフィルター列内の任意項目の自動検出』（すぎ）　ページの最後に飛ぶ

『オートフィルター列内の任意項目の自動検出』（すぎ）

数列（A～C)にオートフィルターがかかっている時、特定列（A）内の任意の項目を
他のセル（オートフィルーターは掛かっていない別シート）で指定して
当該特定列（A)を自動でセレクトしたいと考えていますが、方法をご教示願います。

 ＜sheet1>　　　　　　　　　　　＊例
　　A　　　B　　　C　　　　　　　　sheet2から「A社」と指定したら、sheet1の
１　A社　＊＊　　＋＋　　　　　　　A列を自動で「A社」のみをセレクト表示させたい。
２　B社
３　C社
４　A社
・
<sheet2>
A1 A社

 sheet2 A1 を オートフィルタのキーワード欄として
 代用したいということでしょうか？

 フィルタの条件は、「完全一致」で良いですか？

 >セレクト表示させたい
 フィルタ状態でふつうに表示？　それとも、さらに選択状態にするということですか？

  (INA)

 そのまま、解釈したとして、、、
 Sheet1のコードに貼り付けます。
 Sheet2のA1をキーに抽出します。
 でどうでしょう？
（夏目雅子似）

 Private Sub Worksheet_Activate()
 Dim jyoukenn As Variant
 Application.ScreenUpdating = False

    If AutoFilterMode = True Then
        AutoFilterMode = False
    End If

        jyoukenn = Sheets("Sheet2").Range("A1").Value

    With Range("A1")
        .AutoFilter Field:=1, Criteria1:="=" & jyoukenn
    End With

 Application.ScreenUpdating = True
 End Sub

早速のレスありがとうございます。
（外出しており返信が遅れて申訳ございません）
TO:INAさん
・フィルタ条件は「完全一致」を希望です。
・セレクト表示は「フィルタ状態」です。
なお、sheet2からの項目指示（マニュアル指示）はフィルタ列A内の各項目（各社）に
ついて順番に表示させることを考えています。

TO;夏目雅子似さん
・ニュアンスは判りますが、VBAトーシロの私のレベルでは難解すぎます。
申訳ありません・・・
もう少し具体的にご教示いただければ幸いですので宜しくおねがいします。
（たけ）

 シート1の見出しを右クリック
 コードの表示をクリック
 真っ白なところに
 ↑をコピーして貼り付ける。
 普通のエクセルに戻って
 シート2のA1に抽出条件　例：A社　と入力する。
 後は、シート1の見出しをクリックして内容を見に行くだけ。。。
 で、どうでしょう？
（夏目雅子似）

TO:夏目雅子似さん
できました。
ありがとうございました。（今後の業務で大変助かります）
ところで、このようなプログラムはどんなところで勉強できるのでしょうか？
お手数でなければあわせてご紹介願います。
（すぎ）

 お薦めサイトです。

http://www.sanynet.ne.jp/~awa/excelvba/kouza.html

http://www6.plala.or.jp/MilkHouse/menu.html

http://www.asahi-net.or.jp/~ef2o-inue/vba_k/sub04_010.html

http://t_shun.at.infoseek.co.jp/My_Page/Excel-VBA/vba_menu.htm

  (INA)

 >ところで、このようなプログラムはどんなところで勉強できるのでしょうか？
 この学校がいいと思いまぁ～～～～～～っす>^_^<
 （夏目雅子似）

コメント返信：

[ 一覧(最新更新順) ]

[[20040701100746]] 『オートフィルター列内の任意項目の自動検出』（すぎ） ページの最後に飛ぶ

[[20040701100746]]　『オートフィルター列内の任意項目の自動検出』（すぎ）　ページの最後に飛ぶ