In diesem Artikel zeigen wir, wie Sie das RefEdit-Steuerelement im Benutzerformular hinzufügen und damit auf den Zellbereich verweisen.
In diesem Beispiel haben wir ein Textmarker-Benutzerformular erstellt, mit dem wir den Zellbereich mit gelber Farbe hervorheben können.
Wir haben Beispieldaten genommen, die aus dem Namen und der Anmeldezeit des Teammitglieds bestehen.
RefEdit im Benutzerformular hinzufügen
Fügen Sie ein Benutzerformular hinzu, klicken Sie auf das RefEdit-Steuerelement in der Toolbox und wählen Sie das Steuerelement aus, und legen Sie es im Benutzerformular ab.
Logikerklärung
Um die Zelle hervorzuheben, klicken Sie auf die Schaltfläche Highlighter. Es öffnet das Benutzerformular. Wählen Sie den Bereich mit RefEdit aus. Klicken Sie auf das Bindestrich-Zeichen, um Zellen auszuwählen.
Um benachbarte Zellen auszuwählen, drücken Sie die Umschalttaste, während Sie zu einer anderen Zelle wechseln. Um nicht benachbarte Zellen auszuwählen, drücken Sie die Strg-Taste, während Sie verschiedene Zellen auswählen. Ausgewählte Zellen werden von gepunkteten Linien umgeben und die Zellenadresse wird im Feld angezeigt.
Ausgewählte Zellen werden beim Drücken der Schaltfläche Ok gelb hervorgehoben. Klickereignis der Schaltfläche Ok enthält den VBA-Code zum Hervorheben der ausgewählten Zellen.
Bitte folgen Sie unten für den Code
Option Explicit Sub running() UserForm1.Show End Sub 'Unten Code in Schaltfläche "Ok" im Benutzerformular hinzufügen Option Explicit Private Sub CommandButton1_Click() Dim SelectRange As Range Dim Address1 As String On Error GoTo Last 'Erhalte die Adresse vom RefEdit-Steuerelement Adresse1 = RefEdit1.Value 'Setze das SelectRange Range-Objekt auf den im RefEdit-Steuerelement angegebenen Bereich Set SelectRange = Range(Address1) 'Markiere den ausgewählten Bereich gelb SelectRange.Interior.Color = RGB(255, 255, 0) 'Entlade the Benutzerformular. Entlade mich zuletzt: Ende Sub
Wenn Ihnen dieser Blog gefallen hat, teilen Sie ihn mit Ihren Freunden auf Facebook. Außerdem können Sie uns auf Twitter und Facebook folgen.
Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns auf der E-Mail-Site