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    ○○○    あい(株    A
2    H14.3    ××△    有)かき    B
3    H14.3    ×○×    株)さし    C
4    H14.5    ×△△    株)さし    A
5    H14.4    △×△    たち(株    B
6    H14.5    ○△△    あい(株    B


Sheet2に同じ表ですが中身が空のものを
20件分ほど入れられるように準備しています。
Sheet1を分類別(=ABC別)にしたものを
作りたいのですが、よい方法はありますでしょうか?

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

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

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


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

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

どうか、よろしくお願いいたします。

【5713】Re:分類別の表を作りたいのですが
回答  Jaka  - 03/5/28(水) 14:25 -

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

ここ応用できませんか?
[#1268]

【5716】Re:分類別の表を作りたいのですが
質問  mumumu  - 03/5/28(水) 15:26 -

引用なし
パスワード
   ▼Jaka さん:
>こんにちは。
>
>ここ応用できませんか?
>[#1268]

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

最初に私が載せたデータ表の分類という列をA列に移動して
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に"A"と記述され
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")
  '5列目をオートフィルタするから、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 さん:
ありがとうございます。

ただ、残念なことに先ほどのコードをそのままコピペしてみたところ
やはり、A列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 -

引用なし
パスワード
   >最初に私が載せたデータ表の分類という列をA列に移動して
>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