[[20060313223822]]　『どんなマクロが組んであるのでしょうか』（苦学生）　ページの最後に飛ぶ

『どんなマクロが組んであるのでしょうか』（苦学生）
他の人から名簿（氏名、読み仮名、生年月日、住所、電話番号、居住地区などが記入されています）を頂きました。マクロが組んであるようなんですが何のマクロか分かりません。コントロール＋Aで実行できるようなのでやってみたところオートフィルターになりました。それぐらいならマクロにしなくてもと思うのですが・・・普通私たちが使うのは地区別に並べ直したり、学級別に並べ換えたりするために使うことが多いのですがそれにはならないような気がします。何のためのマクロかをお教え下さい。最近この学校に顔を出しすぎてスミマセン。３月は仕事が多くなりますので御免して下さい。

Sub 地区()
'
' 地区 Macro
' マクロ記録日 : 2002/8/28 ユーザー名 : ○○小学校
'
' Keyboard Shortcut: Ctrl+a
'

    Range("B:B,D:D,F:F").Select
    Range("F1").Activate
    ActiveWindow.SmallScroll ToRight:=4
    Range("B:B,D:D,F:F,P:P,R:R").Select
    Range("R1").Activate
    Selection.EntireColumn.Hidden = True
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$1"
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = "$A$1:$R$551"
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.984251968503937)
        .RightMargin = Application.InchesToPoints(0.196850393700787)
        .TopMargin = Application.InchesToPoints(0.78740157480315)
        .BottomMargin = Application.InchesToPoints(0.78740157480315)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    Range("L1").Select
    Selection.AutoFilter
End Sub
Sub 全校()
'
' 全校 Macro
' マクロ記録日 : 2002/8/28  ユーザー名 : ○○小学校
'
' Keyboard Shortcut: Ctrl+b
'
    Selection.AutoFilter
    Columns("A:S").Select
    Selection.EntireColumn.Hidden = False
    Range("C2").Select
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$1"
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = "$A$1:$R$551"
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.984251968503937)
        .RightMargin = Application.InchesToPoints(0.196850393700787)
        .TopMargin = Application.InchesToPoints(0.78740157480315)
        .BottomMargin = Application.InchesToPoints(0.78740157480315)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperB4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
    End With
    Selection.Sort Key1:=Range("O2"), Order1:=xlAscending, Key2:=Range("B2") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin
End Sub

Ctrl+a の地区マクロは、

BDFPR の各列を非表示にし、

１行目をタイトルにし、（２ページ目以降も１行目が印刷される。）

印刷範囲を設定し、（A1 から R55 まで）

その他印刷設定をし、（上下左右の余白や、紙の大きさ向き B4ヨコなど）

オートフィルタを起動する。

Ctrl+b の全校マクロも、似たようなことをしていて、

最後が、O列・Ｂ列のデータで並べ替えをしている

となっているような気がします。

（マクロ記録を使ったのでしょう、必要なこと以外も記録されているようです。）

早速のご回答を有り難うございました。それで理解ができました。印刷のためのマクロなのですね。横列に公式名や通称名、兄弟関係、などたくさんの項目がありA4サイズに収まらないので不必要な所は非表示にして印刷することを私たちも毎年やっていることなので多分同じことがされるようになっているのでしょうね。並び替えは多分あいうえお順にしたのでしょうね。ホントにどうも有り難うございました。＿苦学生＿

コメント返信：

[ 一覧(最新更新順) ]

[[20060313223822]] 『どんなマクロが組んであるのでしょうか』（苦学生） ページの最後に飛ぶ

[[20060313223822]]　『どんなマクロが組んであるのでしょうか』（苦学生）　ページの最後に飛ぶ