Run-Event-Makro Nach Der Datenvalidierung Auswahl

Baute ich eine Datenüberprüfung-Liste auf das Blatt Bericht, ich brauche ein makro ausführen jedes mal, wenn ich wählen Sie ein Element aus der Liste. Nun, ich habe diesen code unter, aber es funktioniert nicht. Laufen tut er in VBA, aber es wird nicht ausgeführt, wenn ich die Artikel in meinem Arbeitsblatt, wie es scheint, wusste ich nicht, verweisen auf die Makros

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address(True, True) = "$B$3" Then
        Select Case Target
             Case "ABCP"
                Call Macro1
             Case "Accounting Policy"
                Call Macro2
             Case Else
                  'Do Nothing
        End Select
    End If
End Sub
  • Die Worksheet_SelectionChange(ByVal Target As Range) sub aufgerufen wird, jedes mal, wenn Sie wählen Sie einen Bereich in Ihrem Arbeitsblatt. Den Ausgewählten Bereich übergeben bekommt, wie die Target parameter in der sub. Den code innerhalb der If - Anweisung wird nur ausgeführt, wenn Sie ausgewählt "$B$3" Zelle.
  • Was wäre wenn ich mit Worksheet_Change?
  • Arbeitsblatt.Change wird aufgerufen, immer wenn der Wert in einer Zelle ändert msdn.microsoft.com/en-us/library/office/ff839775.aspx
InformationsquelleAutor Joseph Lin | 2016-05-09
  1. 4

    Wenn Sie möchten, führen Sie die Prozedur, wenn Sie Sie geändert haben, den Wert in B3 (Kommissionierung aus den datenvalidierungs-Liste, dann möchten Sie Worksheet_Change Ereignis makro, nicht ein Worksheet_SelectionChange.

    Außerdem, wenn alles, was auf dem Arbeitsblatt zu ändern, dann werden Sie wollen, deaktivieren Sie die Veranstaltungen, so dass die event-makro wird nicht versucht, zu starten, auf sich selbst.

    Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$3" Then
        On Error GoTo bm_Safe_Exit
        Application.EnableEvents = False
        Select Case Target.Value2
             Case "ABCP"
                Call Macro1
             Case "Accounting Policy"
                Call Macro2
             Case Else
                  'Do Nothing
        End Select
    End If
bm_Safe_Exit:
    Application.EnableEvents = True
End Sub

    Dies sollte starten Sie die richtige sub-Prozedur beim B3 hat einen neuen Wert aus der Liste ausgewählt. Sie würden um mehr details zu bieten (und code) für m Makro1 und Makro2 wenn es weiterhin problematisch.

    • Danke für die Antwort so schnell. Nur eine dumme Frage, soll ich diesen code einfügen nach makro-codes in ein Modul, oder sollte ich es in Arbeitsblatt?
    • Ein event-Makros wie Worksheet_Change funktioniert nur aus dem Arbeitsblatt code sheet nicht ein Modul, code-sheet. Rechts-klicken Sie auf den Namen der Registerkarte des Arbeitsblatts und wählen Sie Code Anzeigen aus. Wenn die VBE geöffnet wird, fügen Sie in das Arbeitsblatt mit dem Titel so etwas wie Mappe1 - Tabelle1 (Code).
    • Ich glaube, es ist jetzt so nah ist, aber warum Fragen Sie mich, um wählen Sie makro, nachdem ich es laufen?
    • Ich habe noch nie einen VBA-Fragen Sie mich irgendetwas, es sei denn, ich speziell codiert, für, die. Überprüfen Sie Ihren code.
    • Mein makro nicht fireup (ich habe den code in "Modul2"), irgendeine Idee warum?
    • es muss gehen in das Arbeitsblatt ein code-sheet. Der rechten Maustaste auf das Arbeitsblatt den Namen der Registerkarte, und wählen Sie Code Anzeigen. Sie sollten ergriffen werden, um die Arbeitsblatt-code-Blatt (mit dem Namen etwas wie Mappe1 - Tabelle1 (Code))

    InformationsquelleAutor
  2. 1

    Der obige code scheint zu funktionieren gut für mich.

    Haben Sie den code in das Arbeitsblatt code? im Gegensatz zu einem Modul?

    Run-Event-Makro Nach Der Datenvalidierung Auswahl

    InformationsquelleAutor ChipperG
Schreibe einen Kommentar