Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11537 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   >>>目的がよく分かりません。
>>これを話し出すと禅問答になってしまいます
>別にそんなことないでしょう？
>目的があるということですから。
>
>>抽出した内容を取得したいというのは
>>ここでの抽出内容を他シートへ転記するためです
>抽出してるじゃないですか。

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

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

お暇でしたらもう少しお付き合いお願いします
【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さん

これでばっちりでした
ありがとうございます
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11537 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free