0
VBAで3つ以上の列を並べ替える必要があります。 key4を追加すると、「名前付き引数が見つかりません」と表示されます。これをどうすれば処理できますか?ここに私のコードはありますか:VBAで3つ以上の列を並べ替える方法は?
Private Sub SubLieutenant_Click()
Dim LastRow As Long
LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Range("F6:F" & LastRow).Formula = "=DateDif(C6, Today(),""y"")+DateDif(E6, Today(), ""d"")/30"
Range("A6").Sort key1:=Range("F6"), order1:=xlDescending, key2:=Range("E6"), order2:=xlAscending, key3:=Range("D6"), order3:=xlAscending, key4:=Range("C6"), order4:=xlAscending, Header:=xlYes
End Sub
はこれを処理できません。どうやって? https://drive.google.com/open?id=0BygyhjskixC9OHRfNWVmbjljcVk – tanzilamohita
私は '.SetRange Range(" A1:D6 ")の代わりに' .SetRange Range( "A1:G6") ' – h2so4