Hinzufügen von Checkboxen auf UserForm basierend auf dem Wert der Zelle

Ich bin sehr neu in VBA, nur 3 Tage... aber ich fand es sehr nützlich und einfach zu verwenden, aber jetzt bin ich vor einem problem.
Ich muss eine UserForm mit verschiedenen Checkboxen, aber ich brauche Sie werden automatisch Hinzugefügt, basierend auf den Informationen in den Spalten des Blattes.
Ich glaube, dass ich kann verwenden Sie die For .. Each .. Next, aber ich weiß wirklich nicht, wie zu füllen die Kästchen.
Dies ist die einzige Lösung, die ich jetzt haben, aber ich kann nicht machen, verschiedene Optionen nur eine.

For Each rCell In Range("B1:B" & LastRow)
    If rCell.Value <> "" Then
        UserForm1.Controls.Add ("Forms.CheckBox.1")
    End If
Next

Eine weitere Sache, die ich tun müssen, ist füllen Sie die Eigenschaften der Checkbox, sobald es Hinzugefügt wird, so kann ich mit den Werten arbeiten nach.

Jede Hilfe würde geschätzt, Danke!

InformationsquelleAutor hcsnemrebured | 2013-03-20

Ich bin sicher, Sie habe Ihre Antwort erst jetzt, da dieser aber kam in eine Google-Suche von mir, ich dachte, ich würde nach einer anderen Antwort. Platzieren Sie den folgenden code in deine UserForm:

Option Explicit

Private Sub UserForm_Initialize()

Dim curColumn   As Long
Dim LastRow     As Long
Dim i           As Long
Dim chkBox      As MSForms.CheckBox

curColumn = 1 'Set your column index here
LastRow = Worksheets("Sheet1").Cells(Rows.Count, curColumn).End(xlUp).Row

For i = 1 To LastRow
    Set chkBox = Me.Controls.Add("Forms.CheckBox.1", "CheckBox_" & i)
    chkBox.Caption = Worksheets("Sheet1").Cells(i, curColumn).Value
    chkBox.Left = 5
    chkBox.Top = 5 + ((i - 1) * 20)
Next i

End Sub

Müssen Sie den code ändern, um Ihre speziellen Bedürfnisse anpassen, aber das wird Ihnen den Einstieg.

InformationsquelleAutor TheEngineer

0

Haben Sie einen Blick auf diese Vorherige Antwort für einen start, wie er erklärt, die Prinzipien, die Sie benötigen, denke ich.

Hinzufügen Von Steuerelementen Zu Einem Bild

Danke, aber das ist nicht das, was ich Suche. Ich muss hinzufügen, Elemente in einer dynamischen Art und Weise, so, die Namen für das Formular.CheckBox.1 sollte so etwas wie Form.CheckBox.[ich]. Das ist das erste, was mindestens.

InformationsquelleAutor Skip Intro

UserForm1.Controls("Checkbox" & i).Value

InformationsquelleAutor Daniel Penny

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.