PC-HELP.CZ

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

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?

Zdravim,

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

Vopred dakujem za pomoc :)

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

Zdravim :)

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