Nie je. Je to napísané i priamo v dialógovom okne podmieneného formátovania - môžeš meniť štýl, podtrhnutie, farbu a preškrtnutie. Voľba veľkosti fontu je šedivá, ani font samotný cez podmienené formátovanie nejde zmeniť.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: Podmienené formátovanie-veľkosť písma
MS Excel
Téma: Podmienené formátovanie-veľkosť písma 
Zaslal/a 14.8.2015 17:21
Dobrý deň,
otravujem Vás tu zase :( Na internete som sa nikde nemohol dočítať ohľadom podmieneho formátovania, tak sa obraciam na toto fórum opäť.
Konkrétne: Ak máme nejakú podmienku danú, a meníme si farbu písma, farbu bunky ALE veľkosť písma je vstavaná(default)
Otázka: Je možné zmeniť veľkosť písma v podmienenom formátovaní?
PS. používam MS Excel 2007
ďakujem Vám za odpoveď
jojofx
Opravdu to při podmíněném formátování nejde. Excel má ale víc tváří. Znám vývojáře, kteří místo podmíněného formátování používají událost listu Change. Tam podobná omezení neplatí a buňku lze podle nabyté hodnoty naformátovat zcela libovolně.citovat
Lze to jen makrem, ale může to vcelku dobře vytvořenou stránku naprosto znehodnotit právě tím, že tam bude rozdílná velikost písma.
jinak to makro by mohlo vypadat třeba takto.
Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Target.Cells
If Target.Value <= 10 Then
Target.Cells.Font.Size = 11
ElseIf Target.Value > 10 Then
Target.Cells.Font.Size = 14
End If
End Subcitovat
jinak to makro by mohlo vypadat třeba takto.
Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Target.Cells
If Target.Value <= 10 Then
Target.Cells.Font.Size = 11
ElseIf Target.Value > 10 Then
Target.Cells.Font.Size = 14
End If
End Subcitovat
Toto Vám bude brať v úvahu iba zvolenú oblasť, nastavíte si veľkosť písma pre väčšiu, menšiu a rovnú hodnotu, vysporiada sa to aj s kopírovaním viac buniek naraz (aj cez hranicu oblasti), ignoruje "" a text, mení všetko naraz.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Oblast As Range, Bunka As Range, ZmenitV As Range, ZmenitM As Range, ZmenitN As Range
Const VACSIE = 12
Const MENSIE = 8
Const ROVNE = 10
Const HRANICA = 10
Set Oblast = Range("A1:C10")
On Error Resume Next
For Each Bunka In Target
If Union(Oblast, Bunka).Address = Oblast.Address And Bunka <> "" And IsNumeric(Bunka) Then
Select Case True
Case Bunka.Value > HRANICA: If ZmenitV Is Nothing Then Set ZmenitV = Bunka Else Set ZmenitV = Union(ZmenitV, Bunka)
Case Bunka.Value < HRANICA: If ZmenitM Is Nothing Then Set ZmenitM = Bunka Else Set ZmenitM = Union(ZmenitM, Bunka)
Case Bunka.Value = HRANICA: If ZmenitN Is Nothing Then Set ZmenitN = Bunka Else Set ZmenitN = Union(ZmenitN, Bunka)
End Select
End If
Next Bunka
ZmenitV.Font.Size = VACSIE
ZmenitM.Font.Size = MENSIE
ZmenitN.Font.Size = ROVNE
On Error GoTo 0
End Subcitovat
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Oblast As Range, Bunka As Range, ZmenitV As Range, ZmenitM As Range, ZmenitN As Range
Const VACSIE = 12
Const MENSIE = 8
Const ROVNE = 10
Const HRANICA = 10
Set Oblast = Range("A1:C10")
On Error Resume Next
For Each Bunka In Target
If Union(Oblast, Bunka).Address = Oblast.Address And Bunka <> "" And IsNumeric(Bunka) Then
Select Case True
Case Bunka.Value > HRANICA: If ZmenitV Is Nothing Then Set ZmenitV = Bunka Else Set ZmenitV = Union(ZmenitV, Bunka)
Case Bunka.Value < HRANICA: If ZmenitM Is Nothing Then Set ZmenitM = Bunka Else Set ZmenitM = Union(ZmenitM, Bunka)
Case Bunka.Value = HRANICA: If ZmenitN Is Nothing Then Set ZmenitN = Bunka Else Set ZmenitN = Union(ZmenitN, Bunka)
End Select
End If
Next Bunka
ZmenitV.Font.Size = VACSIE
ZmenitM.Font.Size = MENSIE
ZmenitN.Font.Size = ROVNE
On Error GoTo 0
End Subcitovat
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