Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13361 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【5706】分類別の表を作りたいのですが mumumu 03/5/28(水) 13:29 質問
【5713】Re:分類別の表を作りたいのですが Jaka 03/5/28(水) 14:25 回答
【5716】Re:分類別の表を作りたいのですが mumumu 03/5/28(水) 15:26 質問
【5718】Re:分類別の表を作りたいのですが Jaka 03/5/28(水) 16:11 回答
【5720】Re:分類別の表を作りたいのですが mumumu 03/5/28(水) 16:45 お礼
【5741】すみませんでした。 Jaka 03/5/29(木) 11:53 発言
【5749】Re:すみませんでした。 mumumu 03/5/29(木) 13:23 お礼
【5706】分類別の表を作りたいのですが
質問  mumumu  - 03/5/28(水) 13:29 -
引用なし
パスワード
   いつもありがとうございます。また助けていただきたくて
投稿させてもらいます。
下のようなデータベースのようなものがSheet1に作成して
あります。データは100くらいあるのですが、どんどん増えていきます。


番号　　　　年月　　　　契約名　　　　取引先　　　分類記号
1　　　　H14.3　　　　○○○　　　　あい（株　　　　Ａ
2　　　　H14.3　　　　××△　　　　有）かき　　　　Ｂ
3　　　　H14.3　　　　×○×　　　　株）さし　　　　Ｃ
4　　　　H14.5　　　　×△△　　　　株）さし　　　　Ａ
5　　　　H14.4　　　　△×△　　　　たち（株　　　　Ｂ
6　　　　H14.5　　　　○△△　　　　あい（株　　　　Ｂ


Sheet2に同じ表ですが中身が空のものを
20件分ほど入れられるように準備しています。
Sheet1を分類別（＝ＡＢＣ別）にしたものを
作りたいのですが、よい方法はありますでしょうか？

つまり、次のようなものを作成したいのです。

番号　　　　年月　　　　契約名　　　　取引先　　　分類記号
1　　　　H14.3　　　　○○○　　　　あい（株　　　　Ａ
4　　　　H14.5　　　　×△△　　　　株）さし　　　　Ａ

番号　　　　年月　　　　契約名　　　　取引先　　　分類記号
2　　　　H14.3　　　　××△　　　　有）かき　　　　Ｂ
5　　　　H14.4　　　　△×△　　　　たち（株　　　　Ｂ
6　　　　H14.5　　　　○△△　　　　あい（株　　　　Ｂ


現在はオートフィルタを使い、それをコピペでひとつずつ、分類ごとに作っています。
しかし、実際には分類は10以上あり、
また分類によってはデータが20以上あるものもあって
その場合には、2ページにわたるように作成したいのです。
sheet2のどこかに分類を入れるセルを作成し、そこに分類を入力すると
その分類のデータの表が出来上がるというようにできないかなと
望んでいるのですが^^;

説明が下手で意味不明かもしれません。足りない情報や、説明不足の点が
ありましたら、あわせて教えていただけるとうれしいです。

どうか、よろしくお願いいたします。
【5713】Re:分類別の表を作りたいのですが
回答  Jaka  - 03/5/28(水) 14:25 -
引用なし
パスワード
   こんにちは。

ここ応用できませんか？
[#1268]
【5716】Re:分類別の表を作りたいのですが
質問  mumumu  - 03/5/28(水) 15:26 -
引用なし
パスワード
   ▼Jaka さん：
>こんにちは。
>
>ここ応用できませんか？
>[#1268]

早速の回答ありがとうございました。
教えていただいた、スレッドを見て自分なりに直してみたのですが
どうもうまく行きません。
どこがまちがっているのか、教えていただけないでしょうか？
記述の意味がよくわかっていないので、セルの番地等を修正するだけで
やっています。

最初に私が載せたデータ表の分類という列をＡ列に移動して
Sheet2のA1に選択したい分類記号を入力するものとして、試してみました。

表はSheet1、Sheet2共に2行目に「分類記号」「年月」等の項目が入り
データは3行目からという形になっています。

以下Jakaさんのコードを私が書き直したものです。

Sub jiji()
　　Sheets("Sheet1").Select
　　re = Cells(Rows.Count, "A").End(xlUp).Row
　　ce = Cells(1, Columns.Count).End(xlToLeft).Column
　　Application.ScreenUpdating = False
　　Range("A3:A" & re).AutoFilter Field:=1, Criteria1:=Sheets("Sheet2").Range("A1")
　　Range("A3", Cells(re, ce)).SpecialCells(xlCellTypeVisible).Copy Sheets("Sheet2").Range("A3")
　　Range("A" & re).AutoFilter
　　Application.ScreenUpdating = True
End Sub

これを実行すると
A3に"Ａ"と記述され
A4以降に入力した分類記号がデータの数だけ記述されます。
またB列以降のデータがコピーされてきません。(>_<。）

どうか、よろしくお願いいたします。
【5718】Re:分類別の表を作りたいのですが
回答  Jaka  - 03/5/28(水) 16:11 -
引用なし
パスワード
   Sub jiji()
　　Sheets("Sheet1").Select
　　re = Cells(Rows.Count, "E").End(xlUp).Row
　　ce = Cells(1, Columns.Count).End(xlToLeft).Column
　　Application.ScreenUpdating = False
　　Range("E1:E" & re).AutoFilter Field:=1, Criteria1:=Sheets("Sheet2").Range("A1")
　　'５列目をオートフィルタするから、E1:E
　　Range("A2", Cells(re, ce)).SpecialCells(xlCellTypeVisible).Copy Sheets("Sheet2").Range("A3")
　　'コピーするのはA2から表示されている部分。
　　Range("E" & re).AutoFilter
　　Application.ScreenUpdating = True
End Sub
【5720】Re:分類別の表を作りたいのですが
お礼  mumumu  - 03/5/28(水) 16:45 -
引用なし
パスワード
   ▼Jaka さん：
ありがとうございます。

ただ、残念なことに先ほどのコードをそのままコピペしてみたところ
やはり、Ａ列3行目に"番号"と表示されるだけでした＞＜

自分なりに試してみたところ
次のようにしたら、うまく行きました。
Sub jiji()
　　Sheets("Sheet2").Select
　　Range("A3:E1000").Select
　　Selection.ClearContents
　　'ここまでの分は、直前の表示を消すために付け足しました。

　　Sheets("Sheet1").Select
　　re = Cells(Rows.Count, "E").End(xlUp).Row
　　ce = Cells(3, Columns.Count).End(xlToLeft).Column
　　Application.ScreenUpdating = False
　　Range("E2:E" & re).AutoFilter Field:=1, Criteria1:=Sheets("Sheet2").Range("G1")
　　Range("A2", Cells(re, ce)).SpecialCells(xlCellTypeVisible).Copy Sheets("Sheet2").Range("A2")
　　Range("E" & re).AutoFilter
　　Application.ScreenUpdating = True
End Sub

何が、違うのか意味がわかっていないところが情けないのですが
とりあえず、ひとつは問題解決しました。
お時間をさいていただき、本当にありがとうございました。
【5741】すみませんでした。
発言  Jaka  - 03/5/29(木) 11:53 -
引用なし
パスワード
   >最初に私が載せたデータ表の分類という列をＡ列に移動して
>Sheet2のA1に選択したい分類記号を入力するものとして、試してみました。

>表はSheet1、Sheet2共に2行目に「分類記号」「年月」等の項目が入り
>データは3行目からという形になっています。

全く読んでいませんでした。
ごめんなさい。
【5749】Re:すみませんでした。
お礼  mumumu  - 03/5/29(木) 13:23 -
引用なし
パスワード
   ▼Jaka さん：

>全く読んでいませんでした。
>ごめんなさい。

いえいえ、とんでもないです。
教えていただいたコードが大変参考になりました。
あらためて、ありがとうございました。＾＾
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13361 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free