În acest articol, vom arăta cum să adăugați controlul RefEdit în forma de utilizator și să consultați gama de celule folosind acesta.
În acest exemplu, am creat un formular de utilizator cu evidențiere pe care îl putem folosi pentru evidențierea gamei de celule cu culoare galbenă.
Am luat probe de date care constă în numele și ora de conectare a membrilor echipei.
Adăugarea RefEdit în formularul de utilizator
Adăugați un formular de utilizator, faceți clic pe RefEdit control din caseta de instrumente și alegeți și fixați controlul pe formularul de utilizator.
Explicație logică
Pentru evidențierea celulei, faceți clic pe butonul Marcator. Se va deschide forma de utilizator. Selectați gama folosind RefEdit. Faceți clic pe semnul de liniuță pentru selectarea celulelor.
Pentru selectarea celulelor adiacente, apăsați tasta Shift în timp ce vă deplasați la altă celulă. Pentru selectarea celulelor care nu sunt adiacente, apăsați tasta Control în timp ce selectați celule diferite. Celulele selectate vor fi înconjurate de linii punctate și adresa celulei va apărea în casetă.
Celulele selectate vor fi evidențiate în culoare galbenă la apăsarea butonului Ok. Faceți clic pe evenimentul din butonul Ok conține codul VBA pentru evidențierea celulelor selectate.
Vă rugăm să urmați codul de mai jos
Option Explicit Sub running () UserForm1.Show End Sub 'Add below code in "Ok" button on the userform Option Explicit Private Sub CommandButton1_Click () Dim SelectRange As Range Dim Address1 As String On Error GoTo Last' Obțineți adresa din controlul RefEdit Address1 = RefEdit1.Value 'Setați obiectul SelectRange Range la intervalul specificat în controlul RefEdit Set SelectRange = Range (Address1)' Evidențiați gama selectată în culoare galbenă SelectRange.Interior.Color = RGB (255, 255, 0) 'Descărcați forma de utilizator. Unload Me Last: End Sub
Dacă ți-a plăcut acest blog, distribuie-l prietenilor tăi de pe Facebook. De asemenea, ne puteți urmări pe Twitter și Facebook.
Ne-ar plăcea să aflăm de la dvs., să ne anunțați cum putem îmbunătăți munca noastră și o putem îmbunătăți. Scrieți-ne pe site-ul de e-mail