MS Excel

Téma: Automatické přeformátování buňky se vzorcem

Zaslal/a PD 19.3.2012 15:00

Pro rozsah buňek, do nichž se vkládají data, mám pomocí VBS definováno takové přeformátování, že první znak zůstává a další čtyři znaky se změní na horní index:

Sub HorniIndex()
Range("C14:AG33").Characters(Start:=1, Length:=1).Font.Superscript = False
Range("C14:AG33").Characters(Start:=2, Length:=4).Font.Superscript = True
End Sub

Neumím ale dosáhnout toho, aby se mi přeformátovaly také buňky, ve kterých je pouze vzorec.
Příklad:
Do A1 vložím p2,75 a pomocí výše uvedeného se mi buńka přeformátuje tak, že 2,75 je v uppercasu.
Mám buňku A10 se vzorcem =A1, takže se mi tam přepíše p2,75. Jak dosáhnu přeformátovaání výsledku p2,75 s uppercasem i v buňce A10?

Zaslat odpověď >

marjankaj(19.3.2012 16:45)#007711

A takto by to nemohlo byť? formátovať vzorce tak ako to chceš ty asi nejde.

Sub HorniIndex()
Range("C14:AG33").Select
For Each bunka In Selection
bunka.Value = bunka
Next
With Selection
.Characters(Start:=1, Length:=1).Font.Superscript = False
.Characters(Start:=2, Length:=4).Font.Superscript = True
End With
End Subcitovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.