マクロの自動記録と実行(Excel2007編):Excel VBA入門 |
スポンサードリンク | |
マクロの自動記録 | マクロの実行 | フォームのボタンに登録する |
マクロ有効ブックとして保存する | マクロ有効ブックでマクロを実行する |
B | C | |
2 | No | 名前 |
3 | 1 | 山本 |
4 | 2 | 大野 |
5 | 3 | 内田 |
6 | 4 | 児玉 |
7 | 5 | 相沢 |
8 | 6 | 木下 |
9 | 7 | 井上 |
10 | 8 | 河合 |
11 | 9 | 桑野 |
12 | 10 | 江川 |
Sub Macro1() ' ' Macro1 Macro ' Range("C2").Select ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("C2"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Sheet1").Sort .SetRange Range("B3:C12") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub Sub Macro2() ' ' Macro2 Macro ' Range("B2").Select ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B2"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Sheet1").Sort .SetRange Range("B3:C12") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub |
スポンサードリンク
PageViewCounter
Since2006/2/27