Question

我正在尝试获取数据验证列表选择，以便在我的电子表格中执行操作。

我的VBA工作到了一定程度，这段代码在工作表Sheet1（Sheet1）中

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Application.Intersect(ActiveCell, Range("A1")) Is Nothing Then
  Cancel = True

  With Application
   .EnableEvents = False
   .ScreenUpdating = False
   .Calculation = xlCalculationManual
  End With

  ActiveSheet.Range("B2").Value = ActiveCell.Value
  ActiveCell.Select

  With Application
   .EnableEvents = True
   .ScreenUpdating = True
   .Calculation = xlCalculationAutomatic
  End With
 End If
End Sub

在单元格A1中，我有一个选项数据验证列表是/否。当我选择“是”时，我希望B2填充“是”，当我选择“否”时，我希望B2为“否”等;

它几乎正常工作，但不是在我做出选择时，而是在我选择单元格时。例如A1 ='是'。点击A1，然后点击A1，B2变为“是”。将选择更改为“否”，B2不会更新为“否”。

如果我再次单击并再次单击A1，则B2将更改为否。

我认为这是一个非常微妙的错误，但我的VBA知识还不足以发现它。在进入我需要的更复杂的电子表格之前，我目前正在做这个概念验证。

非常感谢任何指导。

非常感谢

VBA动作给出了数据验证列表选择

0 个答案: