[リストへもどる]
一括表示

投稿時間:2003/03/20(Thu) 13:40
投稿者名:ゆん
Eメール:
URL :
タイトル:
Excelのセルのコピー(書式共々)
はじめまして。ゆんです。
2週間程前にこのVBレスキュー(花ちゃん)を見つけて、勉強させてもらってます。
VBは非常に初心者ですので、サンプルプロを参考にしながら、VBの開発に役立たせてもらってます。
ありがとうございます。
しかし、初心者の私には、理解不能の所(特に人には聞きにくいような初歩的な用語など)が有ったりすると、頭が回転してくれません。

さて、質問ですが、
OS : Windows2000, VB : 6.0, Excel : 2000 で開発をしています。

VBよりExcelを起動し、帳票を作成します。(A4用紙の縦に出力)
ページ替えが有ったり、無かったりします。(ほとんど無い時が多い)
ページ替えが有る時、タイトル部を次ページにコピー(セルの書式の設定共々)したいのですが、方法が分かりません。
文字をコピーして、書式をひとつひとつ設定していく方法しか、見つけられませんでした。
どなたか、簡単なコピー方法をお教え願えませんでしょうか。
よろしくお願いいたします。

過去の質問の中にセルのコピーというのを見つけましたが、Copyメソッドを使ってマクロ??でというのがいまいち分からずに、申し訳ありません。

投稿時間:2003/03/20(Thu) 14:06
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re: Excelのセルのコピー(書式共々)
Excelで印刷するのであれば、Excelの印刷タイトルの設定を利用すれば
簡単かと思います。
マクロで記録して見れば解ります。

' 印刷時1行目〜2行目までを2ページ目以降にコピーする場合
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$2"
        .PrintTitleColumns = ""
    End With

マクロの結果はこんな感じになります。
実際に使用する場合は ActiveSheet と "$1:$2" は変更して下さい。
 

投稿時間:2003/03/20(Thu) 14:33
投稿者名:ゆん
Eメール:
URL :
タイトル:
Re^2: Excelのセルのコピー(書式共々)
早々の回答ありがとうございました。

早速プロにてやってみました。
Excelの画面上には次ページのタイトルは出てこないのですね。(印刷時だからですよね。)
Excelのセル上に目に見えるようには、コピーできないでしょうか?

本当にすみません。

投稿時間:2003/03/20(Thu) 14:48
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re^3: Excelのセルのコピー(書式共々)
> Excelの画面上には次ページのタイトルは出てこないのですね。(印刷時だからですよね。)

印刷プレビュ画面では見られますが

> Excelのセル上に目に見えるようには、コピーできないでしょうか?

同様にやりたい事をマクロに記録して、そのマクロを見て下さい。

投稿時間:2003/03/20(Thu) 15:19
投稿者名:ゆん
Eメール:
URL :
タイトル:
Re^4: Excelのセルのコピー(書式共々)
ありがとうございました。
また、何かありましたら、質問させていただきます。
その時はよろしくお願い致します。