VBA Excel nicht ausgeführt, es sei denn, ich klicke auf Play-Taste

Question

Ich weiß nicht, wo ich falsch gelaufen bin. Das Skript funktioniert, aber es wird nicht automatisch ausgeführt, wenn ich nicht in die VBA-Anwendung gehe und auf die Wiedergabeschaltfläche klicke, um das Skript auszuführen. Kann jemand helfen?

Private Sub HideChart1() 

    If ActiveWorkbook.Sheets("User Interface").Range("F8") = "Yes" Then 

     ActiveWorkbook.Sheets("Sheet1").ChartObjects("Chart 6").Visible = True 

    Else 

     ActiveWorkbook.Sheets("Sheet1").ChartObjects("Chart 6").Visible = False 

    End If 

End Sub 

Answer 1

Sie möchten ein Ereignis Worksheet Change verwenden.

Nicht getestet, sollte aber funktionieren. Setzen Sie diese in Ihrem „User Interface“ Arbeitsblatt Modul .:

Private Sub Worksheet_Change(ByVal target As Range) 
If target = Range("F8") And target.Value = "Yes" Then 
    ActiveWorkbook.Sheets("Sheet1").ChartObjects("Chart 6").Visible = True 
Else 
    ActiveWorkbook.Sheets("Sheet1").ChartObjects("Chart 6").Visible = False 
End If 
End Sub 

Mit Worksheet Change, das glaube ich nicht (Stichwort „denken“) Sie das Arbeitsblatt angeben müssen die Range("F8") erwartet wird, auf sein, da es durch Definition, das Aktivblatt. Wenn Sie möchten, fügen Sie den Blattnamen vor, um sicher zu sein.

Answer 2

Wenn mein Kommentar korrekt ist, dann werden Sie so etwas wie dieses benötigen:

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not Intersect(Target, Target.Worksheet.Range("F8")) Is Nothing Then 
     If Target.Worksheet.Range("F8").Value = "Yes" Then 
      ActiveWorkbook.Sheets("Sheet1").ChartObjects("Chart 6").Visible = True 
     Else 
      ActiveWorkbook.Sheets("Sheet1").ChartObjects("Chart 6").Visible = False 
     End If 
    End If 
End Sub 

Sie können mehr Informationen über das Arbeitsblatt Änderungsereignis automatically execute an Excel macro on a cell change

Der Schlüssel zum Mitnehmen finden Sie hier von Diese Frage besteht darin, den Code in das Arbeitsblattmodul, kein reguläres Modul oder das Arbeitsmappenmodul zu schreiben.

Answer 3

Handle SheetChange, und rufen Sie Ihre Prozedur dort auf.

Private Sub Worksheet_Change(ByVal Target As Range) 
    HideChart1 
End Sub 

Fertig. Implementiere keine Logik in Event Handlern, es ist das erste Tor der Hölle und Spaghettifikation. Eine separate, dedizierte Prozedur dafür ist perfekt - alles, was Sie brauchen, ist etwas, das es automatisch aufruft.

Wenn HideChart1 in einem eigenen Standardmodul implementiert ist, müssen Sie es Public machen, um es aus dem Code-Behind eines Arbeitsblatts aufrufen zu können; Fügen Sie am Anfang des Moduls Option Private Module hinzu, um zu vermeiden, dass Elemente als Makros und/oder Arbeitsblattfunktionen angezeigt werden.