| |
かなり複雑な作業を突然頼まれて、自動化するように仰せつけられてしまい、困りあぐねています。
概要は、「A.xls」に車の情報が書かれたリストがあり、そこから車名ごとにまとめ、別のExcelフォームに記述するというものです。
作業内容は以下の通りです。
1. 「A.xls」のA列に「No.」、B列に「車名」、C列に「型式」、D列に「年」が入っているものとします。
（例-1） No. 車名 型式 年
1 ●●WAGON H81W 01.10-06.08
1 ●●WAGON H82W 06.08-
2 △△△ HA1W 05.12-
3 ■■■ N11W ,N21W※ 91.06-93.03
3 ■■■ N11W ,N21W※ 93.04-97.11
3 ■■■ N21WG 96.05-97.11
: : : :
2. 上記のデータで、No.順に車名ごとにまとめ、型式や年の情報をブック「B.xls」に記述します。
ただし、
1）B.xlsのシートの上3行には、項目見出しを入れる
2）たとえページが変わっても常に上3行には項目見出しが表示されているようにする。（印刷タイトルではなく、直接シートに入力する）
3）その3行の項目名の次に、No.順の「車名」を1行入れ、さらにその次の行から「型式」「年」のデータを「罫線付き」（普通の実線・格子）で貼り付ける
4）※の部分のように、「同じ型式」の場合は、1つの枠とした罫線をつける
5）同じ車名で、次のページにまたがる場合は、上3行の項目名の次行に車名を入れ、さらにその次から続きを貼り付ける
（例-2）
＜1ページ目＞
------------------------------------
｜ 車両型式 ｜ 年 ｜
------------------------------------
●●WAGON
------------------------------------
｜ H81W ｜ 01.10-06.08 ｜
------------------------------------
｜ H82W ｜ 06.08- ｜
------------------------------------
△△△
------------------------------------
｜ HA1W ｜ 05.12- ｜
------------------------------------
■■■
------------------------------------
｜ N11W ,N21W ｜ 91.06-93.03 ｜
｜ N11W ,N21W ｜ 93.04-97.11 ｜
------------------------------------
｜ N21WG ｜ 96.05-97.11 ｜
------------------------------------
： ：
＜2ページ目＞
------------------------------------
｜ 車両型式 ｜ 年 ｜
------------------------------------
■■■
------------------------------------
｜ N64WG ｜ 99.10-02.08 ｜
------------------------------------
： ：
というような作業を自動的に行いたいと思っております。
各ページに貼り付ける上3行の項目名は、最初から用意しても構いませんが、できればその都度貼り付けるようにしたいです。
ポイントは、同じ型式のときにまとめて枠で囲む、というところです。
どのような発想したらよいか是非VBAの天才方にお伺いしたく投稿いたしました。
何卒よろしくお願いいたします。
|
|
はみりん
- 12/11/8(木) 0:16 -
