Uitvragen van een Font

[Stone52]

Forummers,

Hoe kan ik erachter komen welk font in een cel gebruikt is ?
Afhankelijk van de font wil ik een actie uitvoeren.

(bv. indien bold dan . . . . .)

 

[Demeter]

Denk dat je dit alleen met vba kan afvangen:
Iets van:

Sub test()

    If ActiveCell.Font.Bold = True Then
        ActiveCell.Interior.ColorIndex = 36
    Else
        ActiveCell.Interior.ColorIndex = 0
    End If

End Sub

Groet,
Ferenc

 

[Stone52]

Ferenc,


Ik heb wat moeite met het vervolg . . . Met onderstaande code wil ik, als een bepaalde cel een font heeft dat bold is, de hele rij hidden maken. Echter ik krijg de melding "Eigenschap hidden van Klasse range kan niet worden ingesteld".
Eerder zijn in hetzelfde werkblad enkele kolommen hidden gemaakt.

If ActiveCell.Font.Bold = True Then
    ActiveCell.EntireRow.Select
'                    Rows(Ry).Select
    Selection.EntireRow.Hidden = False
End If

Hoe kan ik rijen, waarvan een bepaalde cel (bv) bold is, hidden maken ?

 

[Stone52]

De melding "Eigenschap hidden van Klasse range kan niet worden ingesteld" werd veroorzaakt door het protected zijn van het werkblad -(((

Echter het uitvragen van een font in een cel die door een voorwaardelijke opmaak op bold is gezet wordt door de onderstaande code niet als bold herkend.

If ActiveCell.Font.Bold = True Then
    ActiveCell.EntireRow.Select
    Selection.EntireRow.Hidden = False
End If

Iemand een idee ?

 

[tilpi]

If ActiveCell.Font.Bold = True Then
Selection.EntireRow.Hidden = True
End If

Mvg

Piet

 

[Stone52]

Het gaat nu om de cel die door een voorwaardelijke opmaak de opmaak bold heeft gekregen. Deze cel wordt door de code niet herkend als zijnde bold (ActiveCell.Font.Bold geeft hier de waarde False).

If ActiveCell.Font.Bold = True Then
    ActiveCell.EntireRow.Select
    Selection.EntireRow.Hidden = False
End If

Hoe vraag ik deze waarde uit ?

 

[Wigi]

Hoe vraag ik deze waarde uit ?

2 manieren:

- test op dezelfde voorwaarde(n) waarop de voorwaardelijke opmaak test. Bv. als de cel bold wordt als er een 5 instaat, test dit dan met behulp van VBA nog een keer.

- code van Chip Pearon. Blijf hier beter af als je nog niet zo handig bent in VBA.

Wigi

 

[tilpi]

Sub verbergen()
 If ActiveCell Then
   With Selection.FormatConditions(1).Font
        .Bold = True
    End With
Selection.EntireRow.Hidden = True
End If
End Sub

Mvg


Piet

 

[Wigi]

Sub verbergen()
 If ActiveCell Then
   With Selection.FormatConditions(1).Font
        .Bold = True
    End With
Selection.EntireRow.Hidden = True
End If
End Sub

Mvg

Piet

Piet, mooi zo. Maar dit gaat na of bold moet toegepast worden als voldaan is aan voorwaarde 1. Dit test volgens mij niet of de uitkomst ook effectief bold is of niet.

Een voorbeeld: je kan een cel bold maken als het getal groter is dan 5. Daarop test jij. Maar je test niet of de cel nu werkelijk bold is of niet.

Duidelijk?

Wigi

 

[Stone52]

Ben ondertussen zoekend naar oplossing. Indien iemand anders nog een tip heeft: graag !

 

[Stone52]

Oplossing blijkt lastiger dan verwacht.

zie ook: http://www.xldynamic.com/source/xld.CFConditions.html#isit

allen dank voor de resp. reactie.

 

[Wigi]

Die bladzijde van Bob Phillips kende ik nog niet. Bedankt.

Is het je nu ondertussen gelukt?

Wigi

 

[Stone52]

Wigi,

Het is mij nog niet gelukt. Normale fonts zijn goed uit te vragen; die van een voorwaardelijke opmaak is lastig. Denk dat ik nu eerst voor een alternatieve oplossing ga.