ist es möglich zu wählen, ein Kontrollkästchen und deaktivieren Sie die anderen Kontrollkästchen? (VBA erforderlich)

Ich hatte auch dieses problem, weil ich nicht wollen, verwenden Sie die option Schaltflächen auf dem Formular, so habe ich geschrieben, einige code für diesen Fall und es funktioniert! Aber gibt es vielleicht eine passende Art und Weise das schreiben von code für diese Angelegenheit. Machen Sie es wie die folgende Liste:

(Zum Beispiel haben Sie vier Checkboxen, die in Ihrer form, es gibt keinen Unterschied in der Anzahl der in Ihnen).

1 - Name deiner userform (die Checkboxen sind auf) mit einem entsprechenden Namen im Eigenschaften-Fenster. Die Eigenschaft name ist der erste in der Eigenschaften-Fenster (in der Registerkarte alphabetisch). Dies ist so, dass wir einfachere Methode ein Aufruf der userform, wenn wo das schreiben des erforderlichen Codes über die intelisense Liste.

Z.B.: userform1

2 - benennen Sie Ihre Checkboxen mit einem passenden Namen in Ihrem Eigenschaften-Fenster. Die Eigenschaft name ist der erste in der Eigenschaften-Fenster (in der Registerkarte alphabetisch). Das ist so, wir können leichter nähern rufen Sie die Kontrollkästchen, wenn Sie, wo das schreiben des erforderlichen Codes über die intelisense Liste.

Beispiel: chkbox1, chkbox2, chkbox3 und chkbox4

3 - Klicken Sie auf eine der Checkboxen in der userform (im vb-editor) und Sie sehen, dass das click-Ereignis generiert wurde. Klicken Sie auf der rechten Seite der Dropdown-Liste und wählen Sie die "nach Aktualisierung" - Ereignis. Löschen Sie das click-Ereignis sub-routine dieses Kontrollkästchen, um aufzuräumen den vb-editor.

4 - In zwischen dieser subroutine, zum Beispiel:

Private Sub Chkbox1_AfterUpdate()


End Sub

Schreiben wir diesen code:

Private Sub Chkbox1_AfterUpdate()

      userform1.Chkbox2.Value = False
      userform1.Chkbox3.Value = False
      userform1.Chkbox4.Value = False

End Sub

Anmerkung 1: Wie Sie sehen in diesem code, wenn der Benutzer auf chkbox1, eine afterupdate passiert, bei dem der Wert aller chkboxes (außer chkbox1) aufgerufen wird und deren Werte erhalten, wandte sich in die falsche.

Hinweis 2: Wie Sie sehen können, haben wir zu schreiben, wie für die Checkboxen' afterupdate-Ereignisse, aber vorsichtig sein, um den code schreiben, der nur für die anderen Kontrollkästchen, wenn Sie zum Beispiel das schreiben von code für chkbox1, dann chxbox1 sollte nicht geschrieben werden, es ist code unten es ist diese Regel, die für alle anderen Checkboxen respectedly. Wenn Sie nicht den code schreiben, der auf dieser Regel aufbaut, wird Ihr code nicht funktionieren, dann.

5 - Schreiben Sie den richtigen code für die anderen 3 oder etc Kontrollkästchen' afterevent respectedly. und der code, der bereit ist zu arbeiten.

Wenn Sie sehen wollen, eine Gesamtsicht der nötigen code (nur für den Fall), für 4 Checkboxen auf 1 userform, es sollte wie folgt Aussehen:

Private Sub Chkbox1_AfterUpdate()

      userform1.Chkbox2.Value = False
      userform1.Chkbox3.Value = False
      userform1.Chkbox4.Value = False

End Sub

Private Sub Chkbox2_AfterUpdate()

      userform1.Chkbox1.Value = False
      userform1.Chkbox3.Value = False
      userform1.Chkbox4.Value = False

End Sub

Private Sub Chkbox3_AfterUpdate()

      userform1.Chkbox1.Value = False
      userform1.Chkbox2.Value = False
      userform1.Chkbox4.Value = False

End Sub

Private Sub Chkbox4_AfterUpdate()

      userform1.Chkbox1.Value = False
      userform1.Chkbox2.Value = False
      userform1.Chkbox3.Value = False

End Sub

Anmerkung 3: Die Namen, die Sie für die userform und die Checkboxen sind bis zu Ihnen und es gibt keine Einschränkung. Sie können Ungarische Notationen für die mehr Eigennamen.

InformationsquelleAutor hossein1976