如果单元格包含值,请在VBA中创建图表

如果单元格包含值,请在VBA中创建图表,vba,excel,charts,Vba,Excel,Charts,我正在尝试让我的电子表格自动创建饼图和删除饼图 我有以下三个专栏: 我想在VBA中编写代码,这样excel就可以创建一个饼图,每当我对每个公民都有一个值时,该饼图就会比较有执照的公民和无执照的公民。例如,当我添加缅因州及其每列的值时,我希望Excel创建一个饼图。当我删除缅因州及其值时,我希望饼图也被删除 我不知道如何创造这种条件。非常感谢您的帮助 -Steve将代码放入工作表模块,并使用下面的工作表更改子程序。它将确定A、B和C这三列是否都不是空的。您可以更进一步,使用isnumeric函数

我正在尝试让我的电子表格自动创建饼图和删除饼图

我有以下三个专栏:

我想在VBA中编写代码,这样excel就可以创建一个饼图,每当我对每个公民都有一个值时,该饼图就会比较有执照的公民和无执照的公民。例如,当我添加缅因州及其每列的值时,我希望Excel创建一个饼图。当我删除缅因州及其值时,我希望饼图也被删除

我不知道如何创造这种条件。非常感谢您的帮助


-Steve

将代码放入工作表模块,并使用下面的工作表更改子程序。它将确定A、B和C这三列是否都不是空的。您可以更进一步,使用isnumeric函数检查以确保它们是数字

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.colum = 1 Or Target.colum = 2 Or Target.Column = 3 Then
    If Range("A" And Target.Row) <> "" And Range("B" And Target.Row) <> "" And Range("C" And Target.Row) <> "" Then
        DoEvents
        ' make your chart here
    End If
End If
End Sub
Private子工作表\u更改(ByVal目标作为范围)
如果Target.Column=1或Target.Column=2或Target.Column=3,则
如果范围(“A”和Target.Row)”和范围(“B”和Target.Row)”以及范围(“C”和Target.Row)”,则
多芬特
“在这里制作图表
如果结束
如果结束
端接头