Deaktivieren Sie die Schaltfläche auf einer userForm

Ich versuche, herauszufinden, wie zu deaktivieren Sie einen button in meiner userForm, wenn eine bestimmte Zelle in meiner Tabelle entspricht einer bestimmten Anzahl. Ich habe versucht den code unten angegeben, aber es funktioniert nicht.

Private Sub UserForm_Initialize()
Label2 = Sheets("DATA").Range("AM2").Value
Label4 = Sheets("DATA").Range("AO2").Value
Label7 = Format(Sheets("DATA").Range("R8").Value, "Currency")

If Sheets("DATA").Range("AL10").Value = 10 Then
ActiveSheet.Shapes("CommandButton1").Select
UserFormact_Upgrade.CommandButton1.Enabled = False

Else


End If

End Sub
InformationsquelleAutor Mike | 2011-04-05
  1. 5

    Dein code sollte funktionieren, da bist du auf dem richtigen Weg.

    Um es zu testen, erstellen Sie einfach ein neues Formular und fügen Sie diesen code, werden Sie sehen, sollte es funktionieren. Vielleicht hast du Probleme innerhalb der IF-Klausel?

    Neben, Sie brauchen nicht zu wählen Sie die Form vor, um es zu deaktivieren; deaktivieren Sie es sofort.

    Private Sub UserForm_Initialize()

    CommandButton1.Enabled = False

End Sub
    InformationsquelleAutor Tiago Cardoso
  2. 1

    Ich weiß, das ist alt, aber habe in diesem thread versucht mein problem zu lösen, und eine Lösung gefunden, die nicht hier erwähnt. Also, falls jemand hier bekommt, wie ich Tat, und das hat Sie nicht Recht bekommen, wo Sie gehen mußte, ich dachte, das könnte helfen.

    Hatte ich ein userform mit einem Dropdown-Feld namens cmdADAMFields, und ich wollte nicht, dass mein submit-button aufgerufen FieldsSubmitButton aktiviert werden, bis ich wählte etwas aus der dropdown-box.

    Musste ich brechen mein argument in zwei verschiedenen privaten subs vs. einem größeren If-then-Else-Anweisung.

    Zuerst lege ich:

    Private Sub UserForm_Activate()
If cmbADAMFields.ListIndex = -1 Then FieldsSubmitButton.Enabled = False
End Sub

    Dann, wenn für mein pulldown ist private sub wenn der Wert geändert ich schrieb:

    Private Sub cmbADAMFields_Change()
FieldsSubmitButton.Enabled = True
End Sub
    InformationsquelleAutor Gary Nolan
  3. 0

    Den richtigen Platz für die Einstellung Aktiviert Eigenschaft ist in Aktivieren event (assoziiert mit Zeigen - Methode) und nicht Initialisieren event (assoziiert mit Laden Anleitung).
    Den folgenden code deaktivieren Sie die Schaltfläche CommandButton1 wenn AL10 Zelle >= 10.

            Private Sub UserForm_Activate()
           CommandButton1.Enabled = ( Sheets("DATA").Range("AL10") < 10 )
        End Sub

    Schaltflächen können Sie wählen zwischen normalen Tasten (Eigenschaft Aktiviert=False und die Eigenschaft Sichtbar=true) deaktivierte Schaltflächen (Eigenschaft Aktiviert=False und die Eigenschaft Sichtbar=true) und unsichtbare Schaltflächen (Eigenschaft Aktiviert=False und die Eigenschaft Sichtbar=False), dass es eine sauberere Schnittstelle, in den meisten Fällen.

    Über Textfelder, neben normalen, deaktiviert und unsichtbar status, es ist ein gesperrt status, das heißt aktiviert und sichtbar, können jedoch nicht vom Benutzer bearbeitet werden. (Eigenschaft Gesperrt = True)

    Eine gesperrte Steuerung kann nur geändert werden, indem VBA-code. Zum Beispiel kann jemand gehören das Datum, text Boxen, dass es gefüllt mit einem sekundären popup-Datum-Formular mit Kalender-Steuerelement.

    InformationsquelleAutor Paulo Buchsbaum
Schreibe einen Kommentar