Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12196 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【11830】ｷｰによって、sheetを分割する方法 入門者 04/3/17(水) 11:04 質問
【11835】Re:ｷｰによって、sheetを分割する方法 Asaki 04/3/17(水) 11:28 回答
【11836】Re:ｷｰによって、sheetを分割する方法 入門者 04/3/17(水) 11:33 お礼
【11841】Re:ｷｰによって、sheetを分割する方法 Asaki 04/3/17(水) 12:49 回答
【11843】Re:ｷｰによって、sheetを分割する方法 入門者 04/3/17(水) 13:06 お礼
【11830】ｷｰによって、sheetを分割する方法
質問  入門者  - 04/3/17(水) 11:04 -
引用なし
パスワード
   次のようなsheetがあるとします。
+------+------+------+------+
| 卸　 | 客CD | 客名 |納品日|
+------+------+------+------+
| K社　| 0001 | 東京 | 0310 |
+------+------+------+------+
| F社　| 0001 | 東京 | 0311 |
+------+------+------+------+
| F社　| 0002 | 千葉 | 0311 |
+------+------+------+------+
| K社　| 0002 | 千葉 | 0312 |
+------+------+------+------+

ﾏｸﾛの実行1発で、ｷｰ（卸）ごとに別々のSheetに分割することは可能でしょうか？
この例で言うと、K社、F社の２Sheetにしたいのです。
Excelのインスタンスから、CopyFromRecordsetを使えといわれたことがありますが何のことかわかりません。
【11835】Re:ｷｰによって、sheetを分割する方法
回答  Asaki  - 04/3/17(水) 11:28 -
引用なし
パスワード
   こんにちは。

オートフィルタを使って絞込みした物を、別のシートにコピーする
とか、
フィルタオプションを使って、他のシートに抽出する
とかいった操作でもできそうです。

一度マクロの記録をお試しください。
【11836】Re:ｷｰによって、sheetを分割する方法
お礼  入門者  - 04/3/17(水) 11:33 -
引用なし
パスワード
   ▼Asaki さん：
>フィルタオプションを使って、他のシートに抽出する

にはどうすればよいのでしょうか？
ご教示ください。
【11841】Re:ｷｰによって、sheetを分割する方法
回答  Asaki  - 04/3/17(水) 12:49 -
引用なし
パスワード
   データが入っているシート名がSheet1、1行目がタイトル行で、セルA2からデータが入っているとします。
K社 を抽出する際の手順です。

1) どこかSheet1のどこか空いているセルに「卸」と入力し、
　 その下の行に「K社」と入力します。(G1:G2セルに入力したとします)
2) 新しいシート(Sheet2とします)を用意します。
3) Sheet2を表示した状態で、
　 メニューから データ >> フィルタ >> フィルタオプションの設定 を選択して、
　 下記のように設定します。
抽出先：指定した範囲 を選択
リスト範囲：Sheet1のデータが入力されている範囲
検索条件範囲：Sheet1!G1:G2
抽出範囲：A1
4) OKをクリックします。
【11843】Re:ｷｰによって、sheetを分割する方法
お礼  入門者  - 04/3/17(水) 13:06 -
引用なし
パスワード
   ▼Asaki さん：

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