Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailemVyřešeno Excel - hromadný "bold" ve sloupci

Komu niet rady, tomu niet pomoci, ale tu máš makro, ktoré Ti prvú časť textu (po oddeľovací znak " - ") upraví na tučné písmo.
Pokiaľ v niektorom riadku nebudeš mať správny oddeľovací znak (a sme doma...), tak program zastane a dá Ti hlásenie.
Potom musíš problém napraviť a spustiť makro znova.

Makro predpokladá že:

- text máš v prvom stĺpci
- prvý riadok je záhlavie
- tabuľka je súvislá (t.j. nesmú sa vyskytnúť prázdne riadky)
- každý text obsahuje korektný oddeľovač " - "
- používaš slovenský alebo český excel (inak by bolo potrebné zameniť slovo Tučné, za Bold

Kód, ktorý prikladám treba uložiť do štandardného modulu cez kartu Vývojár a spúšťať ho tiež cez kartu Vývojár

Sub Boldovatko()
On Error GoTo chyba
    For i = 2 To ActiveSheet.Range("A1").End(xlDown).Row
        Cells(i, 1).Characters(Start:=1, Length:=WorksheetFunction.Search(" - ", Cells(i, 1))).Font.FontStyle = "Tučné"
    Next i
    Exit Sub
chyba:
    MsgBox "V riadku " & i & " nebol nájdený oddeľovací znak "" - """, vbExclamation, "Chyba"
End Sub

Reakce na odpověď

1 Zadajte svou přezdívku:
2 Napište svou odpověď:
3 Pokud chcete dostat ban, zadejte libovolný text:

Zpět do poradny