Kirjainten ja numeroiden laskeminen makron avulla
"Muokkaa - Etsi" -toiminnon avulla voit etsiä tiettyjä tekstejä, numeroita, kirjaimia ja numerosarjoja. Voit myös etsiä merkkejä taulukoistasi makron avulla.
Seuraava makro kyselee käyttäjältä sisältöä ja etsii tätä sisältöä aiemmin valitulta solualueelta. Valitse siis ensin alue taulukosta ja aktivoi sitten seuraava makro:
Alalaskentahahmot ()
Dim i Niin kauan
Dim -asento niin kauan
Hämärä merkki merkkijonona
Dim -solun alue
Himmennä merkkijono
Character = InputBox ("Minkä hahmon haluat laskea?")
i = 0
Jokaiselle valitulle solulle
Sijainti = InStr (1, UCase (Cell.Value), UCase (Character))
Vaikka asema 0
i = i + 1
Sijainti = InStr (Sijainti + Len (merkki), Solun arvo, merkki)
Lähteä
Seuraava solu
a = MsgBox ("Merkkijono" & merkki & "muuttui" _
& i & "Löytyneet ajat", vbOKOnly, "Hakutulos")
End Sub
Ensimmäisessä vaiheessa makro kysyy ikkunassa, mitä merkkiä haluat etsiä merkityltä alueelta:
Sitten solualue etsitään. Tulosikkuna näyttää, kuinka usein etsimäsi merkki löydettiin:
Haku ei erota kirjainkokoa. Voit myös etsiä merkkijonoja, jotka ovat pidempiä kuin kirjain tai numero. Kirjainten lisäksi voit etsiä myös numeroita tai kirjainten ja numeroiden yhdistelmiä.
Vinkki: Jos haluat tietää, miten voit syöttää ja käynnistää makroja Excelissä, löydät lyhyen kuvauksen täältä: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
