こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

【至急】VBAについて

現在エクセル2003を使用しています。
VBA初心者です。

-----エクセルの現在の状態-----

・A5からL5までに項目の名称が書いてあります。
(A5に”見積番号” B6に”件名” などと記入されています。)

・データはA6からL5まで記入され下方向にデータは増えて行きます。
(データは見積を完成させるごとに下に増えて行きます。)

・見積番号と件名で検索をかけたいので、一つ組んだものがあります。

Range("A6:L6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("A6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
End Sub

これです。所謂Ctrl+Fで使用する検索のコードとほぼ同じかと思われます。
ですが、これでは事足りないと上司に言われ質問致しました。

-----今回出来ない部分に関して-----

Range("A6:L6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("A6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
End Sub

こちらのコードを使用すると、きちんと検索はされます。
ですが、オートフィルタの様に 例えば件名のところを絞ると データも同じ件名のものだけを抽出し表示さる様にしてほしいとの事でした。

エクセル内にボタンを作成し、クリックすると検索窓を出現させ条件を記入したら
そのエクセルのシート内にその条件と合ったデータを抽出したものを作成したいのです…

※簡単に言うと Ctrl + Fの機能とオートフィルタの機能の
いいとこどりしてほしいって事なんですよね…笑

レスポンスはなるべく早く致します。
皆様の知識をお借りできればと思い 質問させて頂きました。
以上、宜しくお願い致します。

投稿日時 - 2013-11-11 11:51:59

QNo.8342931

すぐに回答ほしいです

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

 このカテゴリーではつらいので、

   学問・教育 → 情報工学

あたりで聞いてみたらいかがでしょうか。

投稿日時 - 2013-11-11 23:17:55

お礼

なるほどですね!
ご指摘有難う御座います。
では、質問の内容をコピーし再度質問させて頂きます。
有難う御座います。

投稿日時 - 2013-11-12 08:26:17

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問