Šiame straipsnyje mes naudosime diapazono objekto paieškos metodą, norėdami paryškinti langelį, kuriame yra reikšmė, panaši į paieškos žodžius.
Neapdorotus šio pavyzdžio duomenis sudaro įmonės pavadinimas, darbuotojo ID ir darbuotojo vardas. Mes turime neapdorotus duomenis iš skirtingų įmonių.
Šiame pavyzdyje norime rasti ir paryškinti langelį, atitinkantį tam tikrą apibrėžtą įmonės pavadinimą I8 langelyje.
Norėdami paryškinti langelius su konkrečiais įmonių pavadinimais, įveskite įmonės pavadinimą į langelį I8 ir spustelėkite mygtuką „Pateikti“. Mygtukui „Pateikti“ priskiriama „HighlightMatchingResult“ makrokomanda.
„HighlightMatchingResult“ makrokomanda paryškins langelį, kuriame yra atitinkantis įmonės pavadinimas su geltona spalva.
Loginis paaiškinimas
Šiame pavyzdyje sukūrėme pasirinktinę funkciją „FindRange“ ir makrokomandą „HighlightMatchingResult“.
Pasirinktinė funkcija „FindRange“ sukurs diapazoną su visomis ląstelėmis, kurių vertė yra panaši į ieškomą įmonės pavadinimą.
„HighlightMatchingResult“ makrokomanda iškvies pasirinktinę funkciją ir paryškins pasirinktos funkcijos grąžintą diapazoną geltona spalva.
Kodo paaiškinimas
SearchRange.Find (What: = FindItem)
Aukščiau pateiktas kodas naudojamas norint rasti langelį, kuriame yra reikšmė, panaši į „FindItem“.
Sąjunga („FindRange“, „MatchingRange“)
Aukščiau pateiktas kodas naudojamas dviem diapazonams sujungti į vieną diapazoną.
SearchRange.FindNext (MatchingRange)
Viršuje esantis kodas naudojamas kitam langeliui, kuriame yra reikšmė, panaši į „FindItem“, rasti.
Sekite toliau pateiktą kodą
Parinktis Aiškioji funkcija FindRange („FindItem As Variant“, „SearchRange As Range“) Kaip diapazonas „Kintamųjų deklaravimas Dim MatchingRange Kaip diapazonas Dim FirstAddress kaip eilutė su SearchRange“ Rasti diapazoną, kurio vertė atitinka „FindItem Set Set MatchingRange = .Find (What: = FindItem)“ Tikrinimas ar yra kokia nors atitiktis Jei „MatchingRange“ yra nieko, nustatykite „FindRange = MatchingRange“ Pirmojo atitikimo diapazono adreso gavimas kitas diapazonas, kurio vertė atitinka FindItem Set MatchingRange = .FindNext (MatchingRange) kilpa, kai MatchingRange.Address FirstAddress End If End su End Function Sub HighlightMatchingResult () 'Kintamųjų deklaravimas Dim MappingRange As Range Dim UserInput As String' Gavę vertės įvestį naudotojas langelis I8 UserInput = Diapazonas („I8“). Reikšmė „Skambinti„ FindRange “pasirinktinei funkcijai Nustatyti MappingRange = FindRange (UserInput, ActiveSheet.C olumns ("A")) 'Suplanuoto diapazono paryškinimas geltona spalva MappingRange.Interior.Color = RGB (255, 255, 0) End Sub
Jei jums patiko šis tinklaraštis, pasidalykite juo su draugais „Facebook“. Be to, mus galite sekti „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime pagerinti savo darbą ir padaryti jį geresnį. Rašykite mums el