V tomto článku si ukážeme, jak přidat ovládací prvek RefEdit do uživatelského formuláře a odkazovat na rozsah buněk pomocí něj.
V tomto příkladu jsme vytvořili uživatelskou formu zvýrazňovače, kterou můžeme použít pro zvýraznění oblasti buněk žlutou barvou.
Odebrali jsme ukázková data, která se skládají ze jména a hodiny přihlášení člena týmu.
Přidání RefEdit do uživatelské formy
Přidejte uživatelský formulář, klikněte na ovládací prvek RefEdit na panelu nástrojů a vyberte ovládací prvek na uživatelském formuláři.
Logické vysvětlení
Chcete -li buňku zvýraznit, klikněte na tlačítko Zvýrazňovač. Otevře uživatelský formulář. Vyberte rozsah pomocí RefEdit. Pro výběr buněk klikněte na pomlčku.
Chcete -li vybrat sousední buňky, stiskněte klávesu Shift a přesuňte se do jiné buňky. Pro výběr nesousedících buněk stiskněte při výběru různých buněk klávesu Control. Vybrané buňky budou ohraničeny tečkovanými čarami a v poli se zobrazí adresa buňky.
Po stisknutí tlačítka Ok budou vybrané buňky zvýrazněny žlutou barvou. Tlačítko Click event of Ok obsahuje kód VBA pro zvýraznění vybraných buněk.
Pro kód prosím postupujte níže
Možnost Explicit Sub běží () UserForm1.Show End Sub 'Add below code in "Ok" button on userform Option Explicit Private Sub CommandButton1_Click () Dim SelectRange As Range Dim Address1 As String On Error GoTo Last' Get the address from the RefEdit control Address1 = RefEdit1.Value 'Nastavit objekt SelectRange Range na rozsah specifikovaný v ovládacím prvku RefEdit Set SelectRange = Range (Address1)' Zvýrazněte vybraný rozsah žlutou barvou SelectRange.Interior.Color = RGB (255, 255, 0) 'Uvolněte uživatelská forma. Unload Me Last: End Sub
Pokud se vám tento blog líbil, sdílejte ho se svými přáteli na Facebooku. Také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit naši práci a zlepšit ji pro vás. Napište nám na e -mail