[[20040909092534]] 『データを別シートに転記印刷したい』(ToT) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『データを別シートに転記印刷したい』(ToT)

@のようにsheet2にデータ表があり、そのデータを印刷用のsheet1(A)に
行単位(県単位)で転記して印刷したいのですが、ご指導願います。

 @
     A     B         C      D    E     F     G     H      I  
 1 県名 主要都市 人口 都市 人口 都市 人口 都市 人口
 2 青森 青森   2000 八戸 1000 弘前 1200 階上  800
 3 岩手 盛岡   1000 北上 1000 yy oo zz oo
 4 秋田 秋田   2000 角館 1000
 5 宮城 仙台   4000 
 6 山形 山形   1300
 7 福島 福島   3000

 A
       A       B         C
 1   題          名
 2  県名   青森   県人口 5000
 3 主要都市 人口   備  考
 4  青森  2000
 5  八戸  1000
 6  弘前  1200
 7  階上   800
 8


 ご参考までに。

http://camaro.ddo.jp/books/myprint.xls

  (INA)


ご回答ありがとうございます。
せっかくご回答いただいたのですが、マクロがよくわからないので、その他の方法ってありませんか?(ToT)


 私はワークシート関数はほとんど使わないので分かりません。
 他の回答者の方々の回答をお待ち下さい。

  (INA)


 行数を指定して手作業で印刷するものです。あまり効率性が高くありません。     (LOOKUP)

 Sheet1の1列挿入し、県人口を集計して置きます。
 B2に=IF(COUNT(C2:J2),SUM(D2:J2),"")として、B7までフィルドラッグ。

 Sheet2の各セルに下の数式を配置します。
 Sheet1のD1にSheet1の本文の行数を入力し、印刷のアイコンをクリックします。
 D1に次の行を入力し、印刷のアイコンをクリックを繰り返します。

  ==Sheet1==
  A      B  C     D  E   F  G   H  I   J
1 県名    人口 主要都市 人口 都市 人口 都市 人口 都市 人口
2 青森    5000 青森   2000 八戸 1000 弘前 1200 階上 800
3 岩手    2000 盛岡   1000 北上 1000 yy oo zz oo
4 秋田    3000 秋田   2000 角館 1000				
5 宮城    4000 仙台   4000						
6 山形    1300 山形   1300						
7 福島    3000 福島   3000	
        ↑					
     =IF(COUNT(D2:J2),SUM(D2:J2),"")

  ==Sheet2==
1 題名         行	   1 ←手入力
2 県名    青森 県人口  5000
3 主要都市  人口   	
4 青森    2000		
5 八戸    1000		
6 弘前    1200		
7 階上     800		

 D1 手入力で1ずつ加算
 B2 =IF(INDEX(Sheet1!A2:A7,Sheet2!D1)="","",INDEX(Sheet1!A2:A7,Sheet2!D1))
 D2 =IF(INDEX(Sheet1!B2:B7,Sheet2!D1)="","",INDEX(Sheet1!B2:B7,Sheet2!D1))
 A4 =IF(INDEX(Sheet1!C2:C7,Sheet2!D1)="","",INDEX(Sheet1!C2:C7,Sheet2!D1))
 A5 =IF(INDEX(Sheet1!E2:E7,Sheet2!D1)="","",INDEX(Sheet1!E2:E7,Sheet2!D1))
 A6 =IF(INDEX(Sheet1!G2:G7,Sheet2!D1)="","",INDEX(Sheet1!G2:G7,Sheet2!D1))
 A7 =IF(INDEX(Sheet1!I2:I7,Sheet2!D1)="","",INDEX(Sheet1!I2:I7,Sheet2!D1))
 B4 =IF(INDEX(Sheet1!D2:D7,Sheet2!D1)="","",INDEX(Sheet1!D2:D7,Sheet2!D1))
 B5 =IF(INDEX(Sheet1!F2:F7,Sheet2!D1)="","",INDEX(Sheet1!F2:F7,Sheet2!D1))
 B6 =IF(INDEX(Sheet1!H2:H7,Sheet2!D1)="","",INDEX(Sheet1!H2:H7,Sheet2!D1))
 B7 =IF(INDEX(Sheet1!J2:J7,Sheet2!D1)="","",INDEX(Sheet1!J2:J7,Sheet2!D1))


ありがとうございます。
今、実際にやってみましたが、頭で思い描いたそのものです。
県別に一枚一枚作成しなきゃならないかと思っていましたが、大助かりです。
ご回答いただいた皆様本当にありがとうございました。
また、何かの際はよろしくお願いいたします。(*^o^*)


 解決された様ですが、一応私の考えたものもUPしておきます。
Sheet1とSheet2がLOOKUPさんと逆になってしまっていますが・・・

 Sheet2のデータ表の範囲は、勝手にA1:AA7と考えて作りました。
 Sheet1_D2セルに
=IF(B2="","",SUM(INDIRECT("Sheet2!A"&MATCH($B$2,Sheet2!$A$1:$A$7,FALSE)&":AA"&MATCH($B$2,Sheet2!$A$1:$A$7,FALSE))))
 Sheet1_A4セルに
=IF(AND(ISNUMBER(MATCH($B$2,Sheet2!$A$1:$A$7,FALSE)),(COUNTA(INDIRECT("Sheet2!"&MATCH($B$2,Sheet2!$A$1:$A$7,FALSE)&":"&MATCH($B$2,Sheet2!$A$1:$A$7,FALSE)))-1)/2>=ROW()-3),INDEX(Sheet2!$A$1:$AA$7,MATCH($B$2,Sheet2!$A$1:$A$7,FALSE),ROW(A1)*2),"")
 Shet1_B4セルに
=IF(AND(ISNUMBER(MATCH($B$2,Sheet2!$A$1:$A$7,FALSE)),(COUNTA(INDIRECT("Sheet2!"&MATCH($B$2,Sheet2!$A$1:$A$7,FALSE)&":"&MATCH($B$2,Sheet2!$A$1:$A$7,FALSE)))-1)/2>=ROW()-3),INDEX(Sheet2!$A$1:$AA$7,MATCH($B$2,Sheet2!$A$1:$A$7,FALSE),ROW(B1)*2+1),"")
上記A4・B4の式を必要範囲(データ範囲AA列なので16行目まで表示可能)下方コピーしてください。
※もっとも右側の都市名と人口が、セットで入力されていない場合は表示しません。
(sin)


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.