Poradna - Velikost písma v buňce

Čisto z pamäti z mobilu ... Function SIZESTRING(RNG as Range, V as Single) as String, R as Range Dim i as integer, s as string Set R = RNG.Cells(1) S = CStr(R) For i=1 to Len(s) If R.Characters(i, 1).Font.Size = V then SIZESTRING = SIZESTRING & Mid$(s, i, 1) Next i End Function
Odpověď

Pred "End Function" som zabudol ešte Set R = Nothing
Odpověď

Aby som bol konkrétny, tak tu je príklad...
Odpověď

Prosím o vysvětlení této funkce. Nějak mi nejde do hlavy. Nejsem v podstatě moc zkušený ve VB. Děkuji. Pavel
Odpověď

Najskôr Vy vysvetlite ešte raz, presnejšie čo chcete dosiahnuť, najlepšie na konkrétnom, manuálne vytvorenom príklade (príloha vo forme zošitu Excelu, nie vágny popis). Nech nezabíjam čas zbytočne. Ono totiž "bunka A" neexistuje. Je iba Stĺpec A. Hľadáte teda všetky bunky v stĺpci A, ktoré majú veľkosť písma 14, alebo hľadáte v konkrétnej bunke v stĺpci A písmená, ktoré majú veľkosť 14, alebo hľadáte v všetky znaky vo všetkých bunkách v celom stĺpci A, ktoré majú veľkosť 14, alebo len celé bunky... Keď si to po sebe prečítate, neexistuje, aby ste to pochopil. Ja som Vám urobil UDF funkciu, ktorá Vám vypíše všetky znaky, ktoré majú veľkosť XY (2. parameter funkcie), zo všetkých buniek v oblasti (1. parameter funkcie).
Odpověď

Omlouvám se za nejasný popis: - v listě sešitu je cca 8000 řádků - ve sloupci A je nepravidelně nadpis pro různé odstavce, které mají různý počet řádků - nadpis je ve velikosti fontu 14 - jediné kritérium, jak ho najít - potřebuji udělat seznam všech nadpisů
Odpověď

Na to nepotrebujete makro. Označte stĺpec A, stlačte Ctrl+F, Možnosti, Formát, Písmo veľkosť 14, Kde hľadať - Hodnoty, Nájsť všetky, Ctrl+A, Zavrieť. Ctrl+C, označte bunku kam chcete skopírovať nadpisy, Ctrl+V.
Odpověď

Děkuji.
Odpověď