[[20041109140141]]　『横長の表を1ページで印刷したい』（nana7）　ページの最後に飛ぶ

『横長の表を1ページで印刷したい』（nana7）

 A　B　　C　　D　E　F　　G　H　　I　J　　K　L　　M　N　　O　P　Q　　R　　S

 あ　い　う　え　お　か　き　く　け　こ　さ　し　す　せ　そ　た　ち　つ　て→１００個以上続く・・・

 これを

 　A　B　C　D  E  F  G

  あ　い　う　え　お　か
  き　く　け　こ　さ　し
  す　せ　そ　た　ち　つ

 と、印刷のときだけまとめる方法ってありますか？
 　Excel２０００です。

 マクロの記録をやってみたらどうでしょうか。
 F列までが区切りであれば、G1からL1を選択して、A2へ移動、
 M1からQ1を選択して、A3へ移動の繰り返しで、印刷、元に戻す、マクロの記録終了

 これで、一連がボタンひとつで出来ます。
 失礼しました、戻るは記録されないんですね(^_^A;
 戻るではなく元に戻す移動操作までやってからなら大丈夫かな。
 （川野鮎太郎）

 アドバイスありがとうございました。
 っていうかこんな表作るな！といってやりたいところです～＾＾；
 (nana7)

 一応数合わせだけやってみました。
v(=∩_∩=)v
（SoulMan）
=INDIRECT(ADDRESS(1,COLUMN(A1)+ROW(A1)*6-6,4))

 衝突しました。SoulManさんの式に比べてベタですが、せっかく考えたので載せさせて下さい。(^^;
 一応、データが Sheet1 にあるとしています。（純丸）

 =INDIRECT("Sheet1!"&CHAR(97+COLUMN(A1)-1+7*(ROW(A1)-1))&1)

 そっかぁ、、別シートだったんだべσ(^◇^;)
うんだば、もう一案
v(=∩_∩=)v
（SoulMan）
=OFFSET(Sheet1!$A$1,0,COLUMN(A1)-1+ROW(A1)*6-6)
こんなんでもいいみたいだべv(=∩_∩=)v
=INDEX(Sheet1!$1:$1,1,COLUMN(A1)+ROW(A1)*6-6)

コメント返信：

[ 一覧(最新更新順) ]

[[20041109140141]] 『横長の表を1ページで印刷したい』（nana7） ページの最後に飛ぶ

[[20041109140141]]　『横長の表を1ページで印刷したい』（nana7）　ページの最後に飛ぶ