|
▼Lee さん:
おはようございます。
新規ブックの標準モジュールに
'==========================================================
Sub sample()
サンプル作成
MsgBox "このデータを優先順位 項目1〜項目7の順に昇順にソートします"
With Range("A1:G21")
.Sort Key1:=Range("E1"), Order1:=xlAscending, Key2:=Range("F1") _
, Order2:=xlAscending, Key3:=Range("G1"), Order3:=xlAscending, Header:= _
xlYes
.Sort Key1:=Range("b1"), Order1:=xlAscending, Key2:=Range("c1") _
, Order2:=xlAscending, Key3:=Range("d1"), Order3:=xlAscending, Header:= _
xlYes
.Sort Key1:=Range("a1"), Order1:=xlAscending, Header:=xlYes
End With
MsgBox "というように優先順位の低い順にソートしていきます"
End Sub
'=======================================================================
Sub サンプル作成()
With Range("a1:g21")
With .Rows(1)
.Formula = "=""項目"" & column()"
.Value = .Value
End With
With .Rows("2:21")
.Formula = "=int(rand()*10)+1"
.Value = .Value
End With
End With
End Sub
これは、例題ですが、試してみてください。
|
|