Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11823 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【13933】フィルタ時のリスト もも 04/5/17(月) 16:06 質問[未読]
【13934】Re:フィルタ時のリスト Asaki 04/5/17(月) 16:17 回答[未読]
【13965】Re:フィルタ時のリスト もも 04/5/18(火) 10:07 質問[未読]
【13966】Re:フィルタ時のリスト Asaki 04/5/18(火) 10:10 回答[未読]
【13971】Re:フィルタ時のリスト もも 04/5/18(火) 10:23 質問[未読]
【13973】Re:フィルタ時のリスト Asaki 04/5/18(火) 10:34 回答[未読]
【13977】Re:フィルタ時のリスト もも 04/5/18(火) 11:01 質問[未読]
【13979】Re:フィルタ時のリスト Asaki 04/5/18(火) 11:09 回答[未読]
【13984】Re:フィルタ時のリスト もも 04/5/18(火) 11:24 お礼[未読]
【13976】Re:フィルタ時のリスト Asaki 04/5/18(火) 10:52 回答[未読]
【13933】フィルタ時のリスト
質問  もも  - 04/5/17(月) 16:06 -
引用なし
パスワード
   ヘッダーにフィルタをかけた場合、
コンボボックスから選択し、絞り込むことが出来ますよね？
その絞り込むための一覧をマクロ内で取得することが出来ますか？
あと、複数回貼り付けを行う時に、前回貼り付けた場所の直下から
貼り付けをしたいのですがこれも教えていただきたいのですが。
よろしくお願いします。

イメージ：
*------データは全部で10件とします。
　　for i = 0 to list.count
　　 　Selection.AutoFilter field:=1, criteria1:=list.text(list.count)
　　　 ActiveSheet.Range("A1:E10").Select
　　　 Selection.Copy
　　　 Sheets("Sheet3").Activate
*------貼り付け時に、前回貼り付けた場所の次から
　　　 ActiveSheet.Range(？？？).Select
　　　 ActiveSheet.Paste
　　next i
【13934】Re:フィルタ時のリスト
回答  Asaki  - 04/5/17(月) 16:17 -
引用なし
パスワード
   こんにちは。

オートフィルタ
ではなく、
フィルタオプション
をお使いになるのでは如何でしょうか？
【13965】Re:フィルタ時のリスト
質問  もも  - 04/5/18(火) 10:07 -
引用なし
パスワード
   早速の回答をありがとうございます。

>オートフィルタではなく、フィルタオプション
>をお使いになるのでは如何でしょうか？
　オートフィルタしか使用したことがありませんので
　できたら使用例などをお伺いしたいのですが。

基本的には、リスト内の内容を全て処理します。
　例：フィールド１（出身地）、フィールド２（性別）、
　　　フィールド３（年齢層）、フィールド４（お金）。

　　　フィールド１「東京」（固定）、フィールド２「男」（固定）、
　　　フィールド３「１０代、２０代、３０代、４０代」

　　　取得結果（別シートに貼り付け。小計・合計は別途計算、貼り付け）
　　　　東京　男　１０代　１００円
　　　　東京　男　１０代　２００円
　　　　　小計　　　　　　３００円
　　　　東京　男　２０代　２００円
　　　　　小計　　　　　　２００円
　　　　東京　男　３０代　５００円
　　　　　小計　　　　　　５００円
　　　　東京　男　４０代　１００円
　　　　東京　男　４０代　３００円
　　　　　小計　　　　　　４００円
　　　　　合計　　　　　１４００円
【13966】Re:フィルタ時のリスト
回答  Asaki  - 04/5/18(火) 10:10 -
引用なし
パスワード
   ん〜。。。
1つのシートに、ご提示のような集計表を作成するのですか？

ソートして、集計
とかでは？
【13971】Re:フィルタ時のリスト
質問  もも  - 04/5/18(火) 10:23 -
引用なし
パスワード
   >1つのシートに、ご提示のような集計表を作成するのですか？
>
>ソートして、集計
>とかでは？
　もしかして私の説明が足りないみたいですね。すみません。
　結果は別シートに貼り付けします。
　（データの存在するシートと、結果を貼り付けるシート。）
　　・データの存在するシート側で１０代でフィルタリング。
　　・結果をコピーして、結果シートに貼り付け。
　　・小計を計算して貼り付け。
　　・データの存在するシート側で２０代でフィルタリング。
　　・結果をコピーして、結果シートに貼り付け。
　　・小計を計算して貼り付け。
　　　　　・
　　　　　・

で、この時の貼り付けで前回の次に貼り付ける方法も
できたらご教授お願いしたいのですが。　
よろしくお願いします。
【13973】Re:フィルタ時のリスト
回答  Asaki  - 04/5/18(火) 10:34 -
引用なし
パスワード
   1) 結果表示シート1行目にタイトル追加
2) 結果表示シートの2行目以降に全データコピー
3) 性別をキーにソート
4) お金のフィールドをキーに集計

では？
【13976】Re:フィルタ時のリスト
回答  Asaki  - 04/5/18(火) 10:52 -
引用なし
パスワード
   A列最終行の次の行を選択します。
Cells(65536, 1).End(xlUp).Offset(1).Select
【13977】Re:フィルタ時のリスト
質問  もも  - 04/5/18(火) 11:01 -
引用なし
パスワード
   >1) 結果表示シート1行目にタイトル追加
>2) 結果表示シートの2行目以降に全データコピー
>3) 性別をキーにソート
>4) お金のフィールドをキーに集計
>
>では？
　何度も回答を頂いて申し訳ありません。ありがとうございます。

　追記で、データ件数がかなりものと考慮してください。（５〜６万件を想定）

　3)は、出身、性別、年齢層をキーにしてソートですよね？
　4)の集計結果は、並び順の行間に挿入できるのですか？
　　（ソートしながら集計するのですか？）

>A列最終行の次の行を選択します。
>Cells(65536, 1).End(xlUp).Offset(1).Select
　試してみます。ありがとうございます。
【13979】Re:フィルタ時のリスト
回答  Asaki  - 04/5/18(火) 11:09 -
引用なし
パスワード
   >　3)は、出身、性別、年齢層をキーにしてソートですよね？
そうです。

>　4)の集計結果は、並び順の行間に挿入できるのですか？
>　　（ソートしながら集計するのですか？）
一般の集計機能を想定しています。
現在の表と置き換えるのがデフォルト設定です。
ただ、
>　追記で、データ件数がかなりものと考慮してください。（５〜６万件を想定）
とのことなので、ちょっと使えないかも、です。
【13984】Re:フィルタ時のリスト
お礼  もも  - 04/5/18(火) 11:24 -
引用なし
パスワード
   >>　3)は、出身、性別、年齢層をキーにしてソートですよね？
>そうです。
>
>>　4)の集計結果は、並び順の行間に挿入できるのですか？
>>　　（ソートしながら集計するのですか？）
>一般の集計機能を想定しています。
>現在の表と置き換えるのがデフォルト設定です。
>ただ、
>>　追記で、データ件数がかなりものと考慮してください。（５〜６万件を想定）
>とのことなので、ちょっと使えないかも、です。
　そうですか・・。
　やはりACCESSなどを経由してやるのがいいのかなぁ・・

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