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