0

以下のマクロをカスタマイズしたいと思います。マクロに実行してもらいたいのは、以下のリストによる自動ソートです。これを行う方法について何か提案はありますか?

ありがとうございました。

コード：

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        Range("A7").Sort Key1:=Range("A8:A18"), _
          Order1:=xlDescending, Header:=xlYes, _
          MatchCase:=False, _
          Orientation:=xlTopToBottom

End If
End Sub

優先ソート構造:

  • 最良の選択
  • 注意して
  • 非推奨
4

1 に答える 1