In dit artikel laten we zien hoe u RefEdit-besturingselement in gebruikersformulier kunt toevoegen en het celbereik kunt gebruiken.
In dit voorbeeld hebben we een gebruikersformulier voor markeerstiften gemaakt dat we kunnen gebruiken om het celbereik met gele kleur te markeren.
We hebben voorbeeldgegevens genomen die bestaan uit naam en inloguur van teamlid.
RefEdit toevoegen in gebruikersformulier
Voeg een gebruikersformulier toe, klik op RefEdit control op toolbox en pick and drop control op het gebruikersformulier.
Logische uitleg
Klik op de knop Markeerstift om de cel te markeren. Het zal het gebruikersformulier openen. Selecteer het bereik met RefEdit. Klik op het streepjesteken om cellen te selecteren.
Om aangrenzende cellen te selecteren, drukt u op de Shift-toets terwijl u naar een andere cel gaat. Om niet-aangrenzende cellen te selecteren, drukt u op de Control-toets terwijl u verschillende cellen selecteert. Geselecteerde cellen worden omgeven door stippellijnen en het celadres verschijnt in het vak.
Geselecteerde cellen worden geel gemarkeerd door op de knop Ok te drukken. Klik gebeurtenis van Ok knop bevat de VBA-code voor het markeren van de geselecteerde cellen.
Volg hieronder voor de code:
Optie Explicit Sub running() UserForm1.Show End Sub 'Voeg onderstaande code toe in "Ok"-knop op gebruikersformulier Optie Explicit Private Sub CommandButton1_Click() Dim SelectRange As Range Dim Address1 As String On Error GoTo Last 'Haal het adres op uit het RefEdit-besturingsadres Adres1 = RefEdit1.Value 'Stel het SelectRange Range-object in op het bereik gespecificeerd in het RefEdit-besturingselement Set SelectRange = Range(Address1) 'Markeer het geselecteerde bereik in gele kleur SelectRange.Interior.Color = RGB(255, 255, 0) 'Ontlaad de gebruikersformulier. Ontlaad mij als laatste: sub beëindigen
Als je deze blog leuk vond, deel hem dan met je vrienden op Facebook. Ook kunt u ons volgen op Twitter en Facebook.
We horen graag van u, laat ons weten hoe we ons werk kunnen verbeteren en voor u kunnen verbeteren. Schrijf ons op de e-mailsite