vba - 编辑单元格后的自动选择更改事件会选择相同的新单元格，即使我的更改事件代码定义了新的目标单元格

Question

屏幕更新抑制解除，原始宏结束

我花了3个小时在这上面并追踪到了Bug？到目前为止，但对我来说，我所看到的情况是不合逻辑的，因此没有找到最佳的治疗方法。请帮忙。

我使用 _SelectionChange 事件将单元格的值存储在全局变量中。修改单元格值后启动 _Change 事件时用作旧值。

作为 _Change 触发宏的一部分，列表值会动态更新，最后我会触发排序，以使列表再次排序。我通过再次激活排序前修改的单元格(在新位置)来完成它

我跟踪了 oVal 中存储的值(选择更改)，它始终显示正确的值。然而，当宏结束时，会自动触发 1 个额外的 SelectionChange 事件(选举不会真正改变)，为 oVal 提供新值并扰乱后续计算。

我注意到，在一步一步进行时，在排序过程中选择了有问题的单元格，但我有目的地在宏末尾激活了我想要完成的单元格。 (并且值已更新)，但是在宏结束后，排序的抑制选择更改将生效。

现在有了视觉效果和代码:假设我有一个列表安妮 - 1约翰 - 2斯图尔特 - 3波诺 - 4

我选择数字 1。(oVal 记得:1)我给出一个新值 4。现在我的代码将 oVal1 与 nVal5 进行比较以确定运动的参数，并将 John 更新为 1、Stuart 2 、Bono3 ；并将 Anne 设置为 4。在排序的帮助下，它还将 Anne 排序到列表的末尾。由于排序本身选择“一些随机”单元格，因此我在搜索它的新位置的帮助下手动激活 4 。oVal 现在记住 4(它应该)作为新旧值。但是当宏结束时，SelectionChange 启动并将 oVal 设置为 2(由排序选择) - 没有!!!!将单元格选择移动到那里。这是一个问题，因为如果现在我不手动移动我的选择，而是给 Ann 一个新值(例如使用 Spinner)，则由于 oVal 错误，列表会被错误的值损坏。

编辑:根据请求，我在小型 MCV 测试场景中重构了该问题。Excel 中的测试场景:

(目前刚刚选择 H11 作为视觉输出来跟踪 oVal)

测试代码在这里:

Option Explicit

Dim oVal As Variant

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
oVal = Target.Value
Application.EnableEvents = False
ActiveSheet.Range("H11").Value = oVal
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Range("F13").Value = 1
Range("F14").Value = 2
Range("F15").Value = 3
Range("F16").Value = 4
Call testsort
Application.EnableEvents = True
Range("F16").Activate
End Sub

Sub testsort()
    ActiveWorkbook.Worksheets("Sheet3").ListObjects("Table2").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet3").ListObjects("Table2").Sort.SortFields.Add _
        Key:=Range("Table2[[#All],[c]]"), SortOn:=xlSortOnValues, Order:= _
        xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet3").ListObjects("Table2").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub 

您将在这里看到，oVal 在我的代码末尾取值为 5，然后突然发生更改，再次启动，并将 val 更改为 2。

完整代码:(-已删除-)

编辑2:解决方法:在更好地了解问题的本质后，我测试了一种解决方法。见下文

<小时/>

解决方案:

Option Explicit

Dim oVal As Variant
Dim cameFromChange As Boolean

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If cameFromChange = False Then
    oVal = Target.Value
    Application.EnableEvents = False
    ActiveSheet.Range("H11").Value = oVal
    Application.EnableEvents = True
Else
    cameFromChange = False

    Application.EnableEvents = False
    Range("F13").Value = 1
    Range("F14").Value = 2
    Range("F15").Value = 3
    Range("F16").Value = 4
    Call testsort
    Application.EnableEvents = True
    Range("F16").Activate
End If


End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
cameFromChange = True

End Sub

Answer 1

这是您提交单元格中的值后发生的selection_change。

Excel 中有一个设置(选项 - 高级 - 按 Enter 键移动选择后)控制编辑后光标的移动位置，并且会导致 selection_change。即使您取消选中移动光标的选项，它也会这样做 - 然后它会在编辑的单元格本身上引发selection_change。

令人困惑的是事件按以下顺序发生:

• 按 Enter 键提交编辑
• 选择更新(光标在屏幕上移动，Selection 属性更新)
• Worksheet_Change 触发
• Selection_Change 触发

我确信有理由按照这个顺序(而不是按照更改事件的顺序，然后移动光标，然后选择事件)，但无论如何，您都必须使您的代码适应事实始终存在与任何用户引起的单元格编辑相关联的 Selection_Change，并且它始终在 Worksheet_Change 返回后触发(如果 Change 事件发生，则根本不会触发)通过以编程方式分配单元格的 Value 来触发)。