Question

需要一些VBA帮助，到处研究但没有成功。我有一个从A到G的列表，有61行，需要按G列自动排序;问题是...... G列中的条目是基于E和F列值的公式。我有以下代码对列表进行排序，但是只有当我在公式中单击时才会更改值。打进去。该列表刷新并重新排序。

这是我现有的代码：

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

  Range("A2:G61").Select 'this is the sort range
  Selection.Sort Key1:=Range("G2"), Order1:=xlAscending, Header:=xlGuess, _
         OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
  Target.Select

End Sub

Answer 1

只是猜测，因为我无法从解释中得到很多：

这样的事情会起作用吗？

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'your code here
End Sub

究竟是什么问题？你不想每次都点击公式吗？

按列包含自动排序列表，其中包含具有公式

1 个答案: