单击标签时的Excel VBA IF语句

Question

我想创建一个if语句，根据是否已选择/单击图表中的数据标签来完成操作。我在下面试过，但不起作用。

If ActiveSheet.ChartObjects("Chart 1").Activate And _
   ActiveChart.FullSeriesCollection(1).Points(1).Datalabel.Select = True Then
  'do something
Else
  exit sub
End If

Answer 1

这实际上非常简单。在visual studio中，当你在sub中时，如果你更改了pic中显示的这个下拉列表，它将自动为新的事件处理程序添加新的sub。

Private Sub Stuff_Click()

If ActiveSheet.ChartObjects("Chart 1").Activate And _
   ActiveChart.FullSeriesCollection(1).Points(1).DataLabel.Select = True Then
  'do something
Else
  Exit Sub
End If

End Sub

然后，在您这样做之后，只需像往常一样输入代码。这对于复杂的用户表单特别有用，其中标签，文本框，组合框都需要在随机事件上发射某种东西。很多时候你用它来进行数据验证，但是有些人喜欢把这些东西放在主代码中。