ぺんろぐ

Windows、Webデザイン、ネット、ゲームなど中心とした気まぐれ更新ブログ。

[Excel]作業グループで印刷タイトルのタイトル行を設定する方法

エクセルで作業グループで
印刷タイトルのタイトル行を設定しようとしても、
タイトル行の部分が暗転していて
通常の操作では機能が使えなません。

以下、一括でタイトル行を設定方法。

スポンサードリンク


適当にボタンを作って
VBAで数行のコードを入れて実行すればOKです。


Sub ボタン1_Click()
Dim a As Integer
For a = 1 To Sheets.Count
   Sheets(a).PageSetup.PrintTitleRows = "$1:$2"
Next

End Sub

このコードを実行すると、
ファイル内のすべてのシートに印刷範囲の「タイトル行」を設定できます。

"$1:$2"の部分は、エクセルの行数です。
1行目から3行目までをタイトル行にしたい場合は、
"$1:$3"と修正したらOKです。

スポンサードリンク

  1. 2014/03/23(日) 17:38:51|
  2. Excel & VBA
  3. | コメント:0

コメント

コメントの投稿

管理者にだけ表示を許可する

FC2Ad