EXCEL / VBA *** Vyhladanie slova v dlhoom texte

[dobracik1]

Ahojte,


chcela by som len poradit s jednou malinko vecou. nedari sa mi presne napisat makro na vyhladanie nejakeho slova v texte. Trebars, ak chcem najst slovo " hokej" alebo slovo " futbal" ( dlhy sheet) nech my vyplni vysledny pocet, v kolkych kolonkach sa to nachadza do pripravenej tabulky.


Vie mi niekto proim pomoct? Vopred velmi dakujem za akukolvek radu :-))

Andy

[Reklama]

[karel.laska]

Zdravím,
teď otázka:
V buňkách jsou i celé věty, nebo pouze slova?
Pokud celé věty, může se tam hledané slovo vyskytovat vícetkrát?

[dobracik1]

Zdravim,

nie, dany kod sa tam bude nachadzat vzdy len rad, ci su to len vety a ci len spojenia.

Vopred dakujem za pomoc :)

[karel.laska]

Zdravíčko,
a co takhle?

Sub hledej()
Dim hledej As String
Dim obsahbunky As String
Range("A1").Select
sloupcu = InputBox("Zadej počet sloupců na prohledání")
radku = InputBox("Zadej počet řádků na prohledání")

hledej = InputBox("Zadej hledané slovo")
For a = 0 To radku - 1
For b = 0 To sloupcu - 1

obsahbunky = ActiveCell.Offset(a, b)
pozice = InStr(LCase(obsahbunky), hledej)
If pozice > 0 Then pocet = pocet + 1
Next b
Next a
MsgBox ("Počet nalezených záznamů: " & pocet)

End Sub

[dobracik1]

Zdravim :)

dakujem za pomoc, vyskusam to hned zajtra a dam vediet .