Sie können a . verwenden RefEdit-Steuerelement In Excel VBA um einen Bereich von einem Benutzer zu erhalten. Das Benutzerformular wir erstellen farben den minimalen wert der Angebot im RefEdit-Steuerelement gespeichert.
Führen Sie die folgenden Schritte aus, um dieses Benutzerformular zu erstellen.
1. Öffnen Sie den Visual Basic-Editor. Wenn der Projekt-Explorer nicht sichtbar ist, klicken Sie auf Ansicht, Projekt-Explorer.
2. Klicken Sie auf Einfügen, Benutzerformular. Wenn die Toolbox nicht automatisch angezeigt wird, klicken Sie auf Ansicht, Toolbox. Ihr Bildschirm sollte wie folgt eingerichtet sein.
3. Fügen Sie die Beschriftung, das RefEdit-Steuerelement und die Befehlsschaltflächen hinzu. Sobald dies abgeschlossen ist, sollte das Ergebnis mit dem zuvor gezeigten Bild des Benutzerformulars übereinstimmen. Erstellen Sie beispielsweise ein RefEdit-Steuerelement, indem Sie in der Toolbox auf RefEdit klicken. Als Nächstes können Sie ein RefEdit-Steuerelement auf das Benutzerformular ziehen.
Hinweis: Wenn Ihre Toolbox kein RefEdit-Steuerelement enthält, legen Sie einen Verweis auf das RefEdit-Steuerelement fest. Klicken Sie auf Tools, References, und aktivieren Sie Ref Edit Control.
4. Sie können die Namen und Beschriftungen der Steuerelemente ändern. Namen werden im Excel VBA-Code verwendet. Untertitel sind die, die auf Ihrem Bildschirm erscheinen. Es hat sich bewährt, die Namen der Steuerelemente zu ändern, aber dies ist hier nicht erforderlich, da wir in diesem Beispiel nur wenige Steuerelemente haben. Um die Beschriftung der Benutzerformular-, Beschriftungs- und Befehlsschaltflächen zu ändern, klicken Sie auf Ansicht, Eigenschaftenfenster und klicken Sie auf jedes Steuerelement.
5. Platzieren Sie in Ihrem Arbeitsblatt eine Befehlsschaltfläche, und fügen Sie die folgende Codezeile hinzu, um das Benutzerformular anzuzeigen:
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Wir werden jetzt die Sub UserForm_Initialize erstellen. Wenn Sie die Show-Methode für das Userform verwenden, wird dieses Sub automatisch ausgeführt.
6. Öffnen Sie den Visual Basic-Editor.
7. Klicken Sie in dem Projekt-Explorer mit der rechten Maustaste auf UserForm1 und klicken Sie dann auf Code anzeigen.
8. Wählen Sie Benutzerformular aus der linken Dropdown-Liste. Wählen Sie Initialisieren aus der rechten Dropdown-Liste.
9. Fügen Sie die folgenden Codezeilen hinzu:
Private Sub UserForm_Initialize()
Sheet1.Cells.Font.Color = vbBlack
UserForm1.RefEdit1.Text = Selection.Address
End Sub
Erläuterung: Die erste Codezeile ändert die Schriftfarbe aller Zellen auf Blatt1 in Schwarz. Die zweite Codezeile erhält die Adresse der aktuellen Auswahl und zeigt sie im RefEdit-Steuerelement an.
Wir haben nun den ersten Teil des Userform erstellt. Obwohl es bereits ordentlich aussieht, passiert noch nichts, wenn wir auf die Befehlsschaltflächen im Benutzerformular klicken.
10. Doppelklicken Sie im Projekt-Explorer auf UserForm1.
11. Doppelklicken Sie auf die Schaltfläche Los.
12. Fügen Sie die folgenden Codezeilen hinzu:
Private Sub CommandButton1_Click()
Dim addr As String, rng, cell As Range, minimum As Double
addr = RefEdit1.Value
Setze rng = Bereich(adr)
minimum = WorksheetFunction.Min(rng)
Für jede Zelle In rng
Wenn cell.Value = minimum Dann cell.Font.Color = vbRed
Nächste Zelle
End Sub
Erklärung: Zuerst holen wir die Adresse vom RefEdit-Control und speichern sie in der String-Variablen addr. Als Nächstes setzen wir rng auf den im RefEdit-Steuerelement angegebenen Bereich. Als nächstes verwenden wir die Arbeitsblattfunktion Min, um den minimalen Wert im Bereich zu finden. Schließlich färben wir den/die Mindestwert(e) mit einer Schleife ein.
13. Doppelklicken Sie auf die Schaltfläche Abbrechen.
14. Fügen Sie die folgende Codezeile hinzu:
Private Sub CommandButton2_Click()
Entlade mich
End Sub
Erläuterung: Diese Codezeile schließt das Benutzerformular, wenn Sie auf die Schaltfläche Abbrechen klicken.
15. Testen Sie das Benutzerformular.
Ergebnis:
