Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


7530 / 76732 ←次へ | 前へ→

【74789】Re:ページごとにクラスABC…を
質問  まこと  - 13/9/16(月) 7:19 -

引用なし
パスワード
   γ さん 返信ありがとうございます。
アドバイスのとおり、下記のように、マクロの記録をとってみました。
タイトルとして3行から5行までをタイトル行として、ヘッダの右側に
ページ番号が現れようになっている(.RightHeader = "" &P")ことは
理解できるのですが、お教えいただいた

s = UCase(Chr(ページ + 96))

この s をどういう風にコードに組み込んだらよいのでしょうか。
$A$6:$AQ$290の範囲が上から7等分されてクラスごと(ABCDEFG組)に改ページ
されるようになっています。

お時間があるときにお教えいただいたらありがたいです。

'ヘッダ作成

  With ActiveSheet.PageSetup
    .PrintTitleRows = "$3:$5"
    .PrintTitleColumns = ""
  End With
  ActiveSheet.PageSetup.PrintArea = "$A$6:$AQ$290"
  With ActiveSheet.PageSetup
    .LeftHeader = ""
    .CenterHeader = ""
    .RightHeader = "" &P"
    .LeftFooter = ""
    .CenterFooter = ""
    .RightFooter = ""
    .PrintHeadings = False
    .PrintGridlines = False
    .PrintComments = xlPrintNoComments
    .CenterHorizontally = False
    .CenterVertically = False
    .Orientation = xlLandscape
    .Draft = False
    .PaperSize = xlPaperA4
    .FirstPageNumber = xlAutomatic
    .Order = xlDownThenOver
    .OddAndEvenPagesHeaderFooter = False
    .DifferentFirstPageHeaderFooter = False
    .ScaleWithDocHeaderFooter = True
    .AlignMarginsHeaderFooter = False
    .EvenPage.LeftHeader.Text = ""
    .EvenPage.CenterHeader.Text = ""
    .EvenPage.RightHeader.Text = ""
    .EvenPage.LeftFooter.Text = ""
    .EvenPage.CenterFooter.Text = ""
    .EvenPage.RightFooter.Text = ""
    .FirstPage.LeftHeader.Text = ""
    .FirstPage.CenterHeader.Text = ""
    .FirstPage.RightHeader.Text = ""
    .FirstPage.LeftFooter.Text = ""
    .FirstPage.CenterFooter.Text = ""
    .FirstPage.RightFooter.Text = ""
2 hits

【74784】ページごとにクラスABC…を まこと 13/9/15(日) 13:01 質問
【74785】Re:ページごとにクラスABC…を まこと 13/9/15(日) 15:53 発言
【74787】Re:ページごとにクラスABC…を γ 13/9/15(日) 16:00 発言
【74788】Re:ページごとにクラスABC…を γ 13/9/15(日) 23:32 発言
【74789】Re:ページごとにクラスABC…を まこと 13/9/16(月) 7:19 質問
【74790】Re:ページごとにクラスABC…を γ 13/9/16(月) 8:29 発言
【74791】Re:ページごとにクラスABC…を 13/9/16(月) 9:29 発言
【74792】Re:ページごとにクラスABC…を 13/9/16(月) 10:06 発言
【74794】Re:ページごとにクラスABC…を まこと 13/9/16(月) 13:23 発言
【74796】Re:ページごとにクラスABC…を 13/9/16(月) 15:13 発言
【74800】Re:ページごとにクラスABC…を γ 13/9/17(火) 22:16 発言

7530 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free