Šajā rakstā mēs izmantosim diapazona objekta atrašanas metodi, lai iezīmētu šūnu, kurā ir meklēšanas vārdiem līdzīga vērtība.
Šī piemēra neapstrādātos datus veido uzņēmuma nosaukums, darbinieka ID un darbinieka vārds. Mums ir neapstrādāti dati no dažādiem uzņēmumiem.
Šajā piemērā mēs vēlamies atrast un izcelt šūnu, kas atbilst konkrētam definētajam uzņēmuma nosaukumam šūnā I8.
Lai iezīmētu šūnas ar konkrētiem uzņēmumu nosaukumiem, ievadiet uzņēmuma nosaukumu šūnā I8 un noklikšķiniet uz pogas “Iesniegt”. Pogai “Iesniegt” ir piešķirts makro “HighlightMatchingResult”.
Makro “HighlightMatchingResult” iezīmēs šūnu, kurā ir atbilstošs uzņēmuma nosaukums ar dzeltenu krāsu.
Loģisks skaidrojums
Šajā piemērā mēs esam izveidojuši pielāgotu funkciju “FindRange” un makro “HighlightMatchingResult”.
Pielāgota funkcija “FindRange” izveidos diapazonu ar visām šūnām, kuru vērtība ir līdzīga meklētajam uzņēmuma nosaukumam.
Makro “HighlightMatchingResult” izsauks pielāgoto funkciju un dzeltenā krāsā iezīmēs pielāgotās funkcijas atgriezto diapazonu.
Koda skaidrojums
SearchRange.Find (What: = FindItem)
Iepriekš minētais kods tiek izmantots, lai atrastu šūnu, kuras vērtība ir līdzīga FindItem.
Savienība (FindRange, MatchingRange)
Iepriekš minēto kodu izmanto, lai apvienotu divus diapazonus vienā diapazonā.
SearchRange.FindNext (MatchingRange)
Iepriekš minētais kods tiek izmantots, lai atrastu nākamo šūnu, kurā ir vērtība, kas līdzīga FindItem.
Lūdzu, sekojiet tālāk norādītajam kodam
Opcija Skaidra funkcija FindRange (FindItem kā variants, SearchRange kā diapazons) Kā diapazons 'Mainīgo deklarēšana Dim MatchingRange Kā diapazons Dim FirstAddress kā virkne ar SearchRange' Diapazona atrašana, kura vērtība atbilst FindItem Set MatchingRange = .Find (What: = FindItem) 'Pārbaude vai pastāv atbilstība Ja neatbilstība MatchingRange nav nekas, tad iestatiet FindRange = MatchingRange 'Pirmā atbilstības diapazona adreses iegūšana FirstAddress = MatchingRange.Address Do' Savienojiet visus diapazonus, kuru vērtība atbilst FindItem Set FindRange = Union (FindRange, MatchingRange) 'Finding nākamais diapazons, kura vērtība sakrīt ar FindItem Set MatchingRange = .FindNext (MatchingRange) cilpa MatchingRange laikā. Adrese FirstAddress End Ja beidzas ar beigu funkciju Sub HighlightMatchingResult () 'Mainīgo mainīšana Dim MappingRange kā diapazons Dim UserInput As String' Iegūstot vērtības ievadi no lietotāja šūna I8 UserInput = Diapazons ("I8"). Vērtība 'Zvanot FindRange pielāgotajai funkcijai Set MappingRange = FindRange (UserInput, ActiveSheet.C olumns ("A")) 'Kartētā diapazona izcelšana ar dzelteno krāsu MappingRange.Interior.Color = RGB (255, 255, 0) End Sub
Ja jums patika šis emuārs, kopīgojiet to ar saviem draugiem Facebook. Varat arī sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot savu darbu un padarīt to labāku jums. Rakstiet mums e -pasta vietnē