Keskustelu: Ohjelmointikysymykset: VBA: VB:n avulla Excel-taulukossa olevan tiedon "haku"

Niin, järjestelen tässä isohkoa musiikkitietokantaani (tehty Exceliin), ja olen tehnyt muutaman painikkeen helpottamaan tiedon hakua (painike värjää solun josta haettava ominaisuus löytyy) siten, että esim. artistihaku ja kappalehaku ovat erikseen. Ongelmani on seuraava: miten saisi "hakukoneen" toimimaan siten, että riippumatta siitä millä tiedolla kappaleita haetaan (artisti, kappaleen nimi vai albumin nimi), tuloksena värjäytyisi koko rivi kaikkine tietoineen, (ei siis pelkästään tietyn sarakkeen yksi solu)?

Avainasana on: entirerow
Ulkomuistista: Activecell.entirerow.select

Ja nauhoittamallahan saat tuon helposti selville. Ensin nauhoitus päälle, sitten valitset rivin ja pysäytät nauhoitksen. Tämänjälkeenhän koodissa on kerrottu miten valinta tehdään.

mitenkäs sitä sitten käytettäisiin esim. seuraavassa tilanteessa? (jos siis halutaan että haun tuloksena värjätään koko rivi, jolta ko. tieto löytyy)

Private Sub Raitanappi_Click()
Dim raita As Integer
Dim solu As Range
Dim alue As Range
raita = Val(InputBox("Anna etsittävän raidan numero", "Raita"))

Set alue = Application.Sheets(1).Range("D2", "D2000")
For Each solu In alue
  If (solu.Value = raita) Then
       solu.Interior.Color = RGB(255, 0, 0)

End If
Next
End Sub