MS Excel

Zdravím všechny,

Ze začátku chci upozornit, že jsem absolvoval teprve před týdnem školení maker, takže se nevyděste. :))

V příloze je soubor, kde si eviduji všechny vlaky u kterých musím hlídat stav vozů.
1 sloupec = 1 vlak
1 řádek = 1 vůz (vozy začínají od řádku 8 a končí max. u řádku 52)

Mým cílem je, aby makro rozpoznalo samostatně pro každý sloupec(vlak) kolik buněk je označených tučně a výsledek zapsalo do řádku 57.

Moje makro sečte první sloupec bez problému, ale nevím jak ošetřit ten zbytek.

Děkuji předem za pomoc :)

Martin

Zaslat odpověď >

elninoslov(29.5.2017 11:13)#036573

Môj tip z pamäti z mobilu:
Function CountBold(RNG as Range) as Long
Dim Bunka as Range
For Each Bunka in RNG.Cells
If Bunka.Font.Bold Then CountBold = CountBold + 1
Next Bunka
End Function
Ale je to len tip...citovat

teatime(29.5.2017 12:33)#036575

Díky, funguje to jak má.
Mám ale problém, že se funkce sama neaktualizuje při změně hodnot. Musím manuálně kliknout na buňku a potvrdit enterem, pokud chci aktualizovat.

Nenapadá vás řešení? Napadlo mě jednoduché makro přes záznam, kdy pouze roztáhnu funkce v řádku a tím se to aktualizuje, ale nejde to (v ostatních sloupcích mi naběhne #HODNOTA).citovat

teatime(29.5.2017 13:00)#036577

Už je vše v pořádku, na internetu jsem dohledal tento problém a stačilo přidat Application.Volatile. Pak už jen ctrl+alt+f9 a je to. :)citovat

elninoslov(29.5.2017 15:35)#036579

Presne tak - Application.Volatile. Aspoň niekto sa aktívne snaží ...citovat

Téma: Úprava makra (součet buněk s BOLD txt)

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje