V tomto prípade sa nebude jednať o formát, ale o funkciu TEXT (česky HODNOTA.NA.TEXT ):=TEXT(A1/A2; "0,00") & " až " & TEXT(B1/B2; "0,00")citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Formát buňky
makro som nahrával. Na anglickej verzii asi Tučné a Kurzíva nepôjde.
Inak je to nepraktické.
Ja by som to rozdelil do troch susedných buniek a naformátoval.citovat
MS Excel
Téma: Formát buňky 
Zaslal/a archangel 1.7.2014 12:07
Poraďte prosím s formátem buňky ve které je vzorec:
=A1/A2&" až "&B1/B2
Podíly zaokrouhlit na 2 desetinná místa.
Předem díky
Díky parádně funguje.
Jen třešničku na dortík.
Lze vypočítaná čísla formátovat jinak než vložený text?
například:5,35 až 9,66citovat
Jen třešničku na dortík.
Lze vypočítaná čísla formátovat jinak než vložený text?
například:5,35 až 9,66citovat
V danej bunke by musela byť hodnota (reťazec), nie vzorec. A reťazec sa dá potom sformátovať, aby čísla v ňom boli boldom. Oboje, t.j. prevod vzorca na hodnotu i sformátovanie číselných znakov tučne by šlo makrom, žiadnou funkciou či nejakým vlastným formátom priamo v Exceli to bohužiaľ nepôjde. Časti reťazca síce môžeš sformátovať manuálne v riadku vzorcov, ale musí sa jednať o hodnoty (reťazce), nie vzorce.citovat
Skús toto makro
Sub Makro1()
ActiveCell.FormulaR1C1 = _
"=TEXT(R1C1/R2C1,""0,00"") & "" až "" & TEXT(R1C2/R2C2,""0,00"")"
ActiveCell = ActiveCell
With ActiveCell
.Characters(Start:=1, Length:=Len(ActiveCell)).Font.FontStyle = "Tučné"
.Characters(Start:=InStr(1, ActiveCell, "až"), Length:=2).Font.FontStyle = "kurzíva"
End With
End Subcitovat
Sub Makro1()
ActiveCell.FormulaR1C1 = _
"=TEXT(R1C1/R2C1,""0,00"") & "" až "" & TEXT(R1C2/R2C2,""0,00"")"
ActiveCell = ActiveCell
With ActiveCell
.Characters(Start:=1, Length:=Len(ActiveCell)).Font.FontStyle = "Tučné"
.Characters(Start:=InStr(1, ActiveCell, "až"), Length:=2).Font.FontStyle = "kurzíva"
End With
End Subcitovat
.Characters(Start:=1, Length:=Len(ActiveCell)).Font.FontStyle = "Bold"
.Characters(Start:=InStr(1, ActiveCell, "až"), Length:=2).Font.FontStyle = "Italic"
Tučné a kurzíva mi nefungovalo, ale je možné že na CZ/SK exceloch fungujecitovat
.Characters(Start:=InStr(1, ActiveCell, "až"), Length:=2).Font.FontStyle = "Italic"
Tučné a kurzíva mi nefungovalo, ale je možné že na CZ/SK exceloch fungujecitovat
AL napsal/a:
.Characters(Start:=1, Length:=Len(ActiveCell)).Font.FontStyle = "Bold"
.Characters(Start:=InStr(1, ActiveCell, "až"), Length:=2).Font.FontStyle = "Italic"
Tučné a kurzíva mi nefungovalo, ale je možné že na CZ/SK exceloch funguje
makro som nahrával. Na anglickej verzii asi Tučné a Kurzíva nepôjde.
Inak je to nepraktické.
Ja by som to rozdelil do troch susedných buniek a naformátoval.citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články