Calender

S M T W T F S
    123
45678910
11121314151617
18192021222324
25262728293031
<< August 2019 >>

Categories

Archives

Recent Entries

中学生のためのExcel VBA

4-7 請求書長子(6)学年組名前でソート

JUGEMテーマ:Office VBA

 

印刷設定と基表を長子でソートをしてあるので、学年組名前でソートをして基に戻しておく。 
'' 印刷範囲設定解除
PageSetup.PrintArea = ""
' 印刷範囲
gyou = Cells(Rows.Count, 2).End(xlUp).Row
PageSetup.PrintArea = Range(Cells(21, "A"), Cells(gyou, "I")).Address
Call 年組名前ソート

年組名前ソート
Worksheets("moto").Range("i3").Sort Key1:=Worksheets("moto").Range("f3"), Order1:=xlAscending, _
Key2:=Worksheets("moto").Range("g3"), Order2:=xlAscending, _
key3:=Worksheets("moto").Range("j3"), order3:=xlAscending, _
Header:=xlYes
 

  • 2019.06.23 Sunday
  • 20:51

Comment
Send Comment