< návrat zpět

MS Excel


Téma: Podmienené formátovanie-veľkosť písma rss

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

Zaslat odpověď >

icon #026272
avatar
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
#026273
avatar
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
#026274
Opičák
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
#026439
elninoslov
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 Sub
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09