Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


11536 / 13645 ツリー ←次へ | 前へ→

【15589】オートフィルター ウシロメタさ 04/6/30(水) 10:25 質問[未読]
【15590】Re:オートフィルター Asaki 04/6/30(水) 10:40 回答[未読]
【15593】Re:オートフィルター ウシロメタさ 04/6/30(水) 11:17 発言[未読]
【15595】Re:オートフィルター Asaki 04/6/30(水) 11:29 回答[未読]
【15597】Re:オートフィルター ウシロメタさ 04/6/30(水) 12:38 発言[未読]
【15600】Re:オートフィルター Asaki 04/6/30(水) 12:52 発言[未読]
【15602】Re:オートフィルター ウシロメタさ 04/6/30(水) 13:04 発言[未読]
【15604】Re:オートフィルター IROC 04/6/30(水) 13:25 回答[未読]
【15606】Re:オートフィルター Asaki 04/6/30(水) 13:30 回答[未読]
【15612】Re:オートフィルター ウシロメタさ 04/6/30(水) 14:16 発言[未読]
【15614】Re:オートフィルター IROC 04/6/30(水) 14:21 回答[未読]
【15615】Re:オートフィルター ウシロメタさ 04/6/30(水) 14:39 発言[未読]
【15616】Re:オートフィルター IROC 04/6/30(水) 14:40 回答[未読]
【15618】Re:オートフィルター ウシロメタさ 04/6/30(水) 14:56 お礼[未読]

【15589】オートフィルター
質問  ウシロメタさ  - 04/6/30(水) 10:25 -

引用なし
パスワード
      A   B  
1  業者 納入月
2  A社  6 
3  B社  5
4  C社  6
5  B社  3
6  D社  7
7  A社  6


という表があります
これをオートフィルターをかけて抽出し、列ごとに抽出した内容を取得
したいのです
シート上にコンボボックスを設けてここから抽出条件を
選ぼうか(これだと選んだ条件がそのまま取得できる)
手動でオートフィルターをかけて
抽出内容を任意のセルに取得させようかまだ決めていません
比較的簡単な方でいきたいのですが
取得する為のコードをご伝授願いたいのですが・・

【15590】Re:オートフィルター
回答  Asaki  - 04/6/30(水) 10:40 -

引用なし
パスワード
   こんにちは。

個人的に、最近こればっかり書いてますが
オートフィルタではなく、フィルタオプションではいかがですか?

【15593】Re:オートフィルター
発言  ウシロメタさ  - 04/6/30(水) 11:17 -

引用なし
パスワード
   ▼Asaki さん:
こんにちは。

>個人的に、最近こればっかり書いてますが
>オートフィルタではなく、フィルタオプションではいかがですか?

フィルターオプションって使った事ないのですが、
どのようなメリットがあるのですか?
オートフィルターを使うにあたり、
抽出後のある種の作業をコマンドボタンで同時に実行したいので
それに支障がなければ良いのですが・・

【15595】Re:オートフィルター
回答  Asaki  - 04/6/30(水) 11:29 -

引用なし
パスワード
   他サイトの紹介で申し訳ないですが、↓こういうやつです。
http://homepage1.nifty.com/kenzo30/ex_kisotoku/ex_ks_tokubetu9_1.htm

>抽出後のある種の作業をコマンドボタンで同時に実行したいので
>それに支障がなければ良いのですが・・
それは、処理次第では?

【15597】Re:オートフィルター
発言  ウシロメタさ  - 04/6/30(水) 12:38 -

引用なし
パスワード
   ああ、なるほどです

説明が悪かったかも知れません
抽出した”レコード”を欲しいのではなく
ナニを抽出したかの取得をしたいのです
例えば
A列において 「A社」を抽出したのであれば
任意セルに「A社」と書き込みたいという事です
(今”A社”を抽出しましたよ!という意味)

【15600】Re:オートフィルター
発言  Asaki  - 04/6/30(水) 12:52 -

引用なし
パスワード
   レコードを取得しないなら、何のためにフィルタかけるんでしょう?
また、フィルタがかかった状態を見れば、何で絞り込んだか一目瞭然でしょう?

目的がよく分かりません。

【15602】Re:オートフィルター
発言  ウシロメタさ  - 04/6/30(水) 13:04 -

引用なし
パスワード
   ▼Asaki さん:
>レコードを取得しないなら、何のためにフィルタかけるんでしょう?
>また、フィルタがかかった状態を見れば、何で絞り込んだか一目瞭然でしょう?
>
>目的がよく分かりません。

これを話し出すと禅問答になってしまいます
業務においてある管理ソフトを作っています
他ブックと連動させて現場の管理、請求書発行などを
行うものです
日々の日報として入力されているデータから業者ごと、月ごとの
請求書処理の為の用紙を発行するに当たり
その途中経過として必要な処理です
このときに A社の○月の合計金額は・・・
などという処理を自動化したいのです
抽出した内容を取得したいというのは
ここでの抽出内容を他シートへ転記するためです

文章だけ読んでもおそらく何だかおわかりに
ならないかと思います 
目的はきちんとあります
これらの処理作業はエクセルを扱いなれている人間には
不必要と思われる作業です
しかし社内の事情があるのです・・

【15604】Re:オートフィルター
回答  IROC  - 04/6/30(水) 13:25 -

引用なし
パスワード
   Filterオブジェクト関連のことでしょうか?


Criteria1 プロパティ   

フィルタのセル範囲に指定した列に対する、最初の検索条件の値を返します。
値は取得のみ可能です。バリアント型 (Variant) の値を使用します。

【15606】Re:オートフィルター
回答  Asaki  - 04/6/30(水) 13:30 -

引用なし
パスワード
   ◇ オートフィルタに設定した条件の取得
http://www2.moug.net/cgi-bin/technic.cgi?exvba+TI15010044

>>目的がよく分かりません。
>これを話し出すと禅問答になってしまいます
別にそんなことないでしょう?
目的があるということですから。

>抽出した内容を取得したいというのは
>ここでの抽出内容を他シートへ転記するためです
抽出してるじゃないですか。

【15612】Re:オートフィルター
発言  ウシロメタさ  - 04/6/30(水) 14:16 -

引用なし
パスワード
   >>>目的がよく分かりません。
>>これを話し出すと禅問答になってしまいます
>別にそんなことないでしょう?
>目的があるということですから。
>
>>抽出した内容を取得したいというのは
>>ここでの抽出内容を他シートへ転記するためです
>抽出してるじゃないですか。

言葉の表現の問題になっちゃいますね、
>抽出内容
抽出条件へ訂正します

禅問答のハナシですが、この限られたスペースで
こちらの環境や、やりたい事を全て書き込む事は
非常に困難であると認識しています
ですから必要最低限の部分につき質問させて頂いています
全体からみた1部分ですので言葉の受け取り方や
その他の事情により矛盾と感じる部分があるのは仕方が無い
事と思っています しかしながら
欲しいデータが必要であるかどうかの判断は
(シートに抽出されているから意味無いとか)
あくまでもこちらサイドにあるものです
シートの実物を見れば、ああ、そういうこと!
と納得されるかも知れないでしょうし・・

お暇でしたらもう少しお付き合いお願いします

【15614】Re:オートフィルター
回答  IROC  - 04/6/30(水) 14:21 -

引用なし
パスワード
   結局、オートフィルタの抽出条件の取得方法ではないのですか?

【15615】Re:オートフィルター
発言  ウシロメタさ  - 04/6/30(水) 14:39 -

引用なし
パスワード
   ▼IROC さん:
こんにちは、
>結局、オートフィルタの抽出条件の取得方法ではないのですか?

Criteria1 プロパティ   

フィルタのセル範囲に指定した列に対する、最初の検索条件の値を返します。
値は取得のみ可能です。バリアント型 (Variant) の値を使用します。


ずばり これです
これで行きたいと思います
ご伝授願います・・

【15616】Re:オートフィルター
回答  IROC  - 04/6/30(水) 14:40 -

引用なし
パスワード
   Asakiさんの掲載して下さったリンク先にサンプルがありますよ。

【15618】Re:オートフィルター
お礼  ウシロメタさ  - 04/6/30(水) 14:56 -

引用なし
パスワード
   >Asakiさんの掲載して下さったリンク先にサンプルがありますよ。

IROC さんAsakiさん

これでばっちりでした
ありがとうございます

11536 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free