Slik søker en Cell Range for en matchende verdi i Excel VBA

November 19

Microsoft Excel er regneark programvare som kan inneholde en enorm mengde data: opptil én milliard celler med informasjon per regneark. Selv om dette kan være uvurderlig hvis du trenger å legge inn store datasett, kan det gjøre det litt av en utfordring hvis du er ute etter en bestemt stykke informasjon i et regneark. Excel Visual Basic for Applications (VBA) finner at cellen kamp i et brøkdels sekund.

Bruksanvisning

1 Åpne regnearket der du vil finne en match. Trykk på "Alt" og "F11" tastene sammen. Dette åpner Visual Basic Editor (VBE).

2 Klikk "Sett inn" og deretter "Module". Dette setter inn en blank modul vindu.

3 Kopier og lim inn følgende kode i tomt vindu:

Sub Find_First ()

Dim FindString As String

Dim RNG As Range

FindString = InputBox ( "Skriv inn et søk value")

Hvis Trim (FindString) <> "" Then

Med Sheets ( "Ark1") Range. ( "A1: Z256")

Sett RNG = .Finn (Hva: = FindString, _

Etter:. = Cells (.Cells.Count), _

Lookin: = xlValues, _

Lookat: = xlWhole, _

Search: = xlByRows, _

SearchDirection: = xlNext, _

MatchCase: = False)

Hvis ikke RNG Er Ingenting Deretter

Application.Goto RNG, Sann

Ellers

MsgBox "Nothing found"

Slutt om

End With

Slutt om

End Sub

4 Endre "Range" i koden til celleområdet der du ønsker å se etter en kamp. For eksempel, hvis du ønsker å se i cellene C1: C1000, type "C1: C1000" i stedet for "A1. Z256"

5 Trykk "F5", deretter inn tekststreng eller data du ønsker å finne i tekstboksen. Excel vil finne kampen og markere cellen.

Hint

Trykk på "Alt" og "F11" tastene til enhver tid for å veksle mellom VBE og regnearket.