Wie VBA verwenden, Lesen Sie die Werte einer checkbox aus einer Excel-userform

Habe ich eine userform mit zwei Checkboxen. Ich möchte in der Lage sein verschiedene Dinge tun, je nachdem, ob jedes Feld aktiviert oder deaktiviert. Jedoch, wie es scheint, egal was ich mache, es wird immer mir sagen, der ursprüngliche Wert der Checkboxen (falsch und falsch). Hier ist der code an, Klick auf "CommandButton1":

Private Sub CommandButton1_Click()

ReadData

End Sub

Und hier ReadData:

Sub ReadData()

Dim myForm As UserForm
Set myForm = UserForms.Add("ComplaintEntryForm")

Debug.Print (myForm!CheckBox1.Name)
Debug.Print (myForm!CheckBox1.Value)
Debug.Print (myForm!CheckBox2.Name)
Debug.Print (myForm!CheckBox2.Value)

End Sub

Egal, wie die Kontrollkästchen aktiviert sind, wird das benachbarte Fenster immer zeigen dies:

VBA.UserForms.Add("ComplaintEntryForm").Show
CheckBox1
False
CheckBox2
False

Ich habe einen screenshot von der ganzen operation, aber es lässt mich nicht hochladen, weil ich bin ein neuer Benutzer.

InformationsquelleAutor user1664313 | 2012-09-12

  1. 1

    Versuchen Sie diese Methode zum laden und anzeigen des Formulars (das geht auch in einem normalen Modul):

    Sub main()

Dim myForm As ComplaintEntryForm

Set myForm = New ComplaintEntryForm
myForm.Show
Set myForm = Nothing

End Sub

    In der UserForm ist ein eigenes Modul, fügen Sie den folgenden:

    Private Sub CheckBox1_Change()

readData

End Sub

Private Sub CheckBox2_Change()

readData

End Sub

Private Sub UserForm_Initialize()

Me.CheckBox1.Value = True
Me.CheckBox2.Value = False

End Sub

Private Sub readData()

Debug.Print Me.CheckBox1.Name
Debug.Print Me.CheckBox1.Value
Debug.Print Me.CheckBox2.Name
Debug.Print Me.CheckBox2.Value

End Sub

    Habe ich initialisiert die beiden Markierungsfelder, um bestimmte Werte in den Initialize Veranstaltung. Dies bedeutet, dass wir sicher sind, über den Zustand der form wird in die

    Hey, vielen Dank für die Antwort; das funktioniert perfekt. Ich habe nur versucht zu vermeiden, dass zu viel code in der UserForm ist ein eigenes Modul, da ich ' m erstellen der UserForm auf der fliege, und der einzige Weg, ich weiß, wie das hinzufügen von code, um die UserForm sieht so aus: Mit TempForm.CodeModule .InsertLines 1, "Sub CommandButton1_Click()" .InsertLines 2, "'was" .InsertLines 3, "End Sub" End With Das ist ein Schmerz, vor allem mit Zitaten. Aber es stellte sich heraus, ich brauchte nur wie 18 Linien, also das war okay. Ich danke Ihnen sehr für Ihre Hilfe!

    InformationsquelleAutor barrowc

Schreibe einen Kommentar