• Conditional format: can’t define text font (all?)

    Home » Forums » AskWoody support » Productivity software by function » MS Excel and spreadsheet help » Conditional format: can’t define text font (all?)

    Author
    Topic
    WShasse
    AskWoody Lounger
    March 3, 2004 at 11:22 am #401707

    Hey, members of the lounge,
    this isn’t critical, but it should be nice…
    Does anyone know about certain conditions where you can’t conditional format the text font in cells? In attachment a sample: I want to change the text font (e.g. 6 ipv 10) when a value is 0. The condition is properly defined and I can change a number of layout properties but NOT the font.
    TIA!!
    Hans

    Reply | Quote
    Viewing 3 reply threads
    Author
    Replies
    • WSHansV
      AskWoody Lounger
      March 3, 2004 at 11:29 am #793436

      According to the dialog, you can only change the font style, underline, color and strikethrough. In other words, you cannot change the font name (Arial, Tahoma, …) or font size (9, 10, 12, …)

      Reply | Quote
      • WShasse
        AskWoody Lounger
        March 3, 2004 at 1:20 pm #793462

        OK, Hans,
        thanks & sorry, I should have been a bit more careful before throwing out this post. You know, I really seemed to remember that once, in some spreadsheet, I had changed the font with conditional formatting too, so it seemed pretty weird that it wasn’t possible here, without any apparent reason. In the meanwhile, I think I’ve found back the file where I thought I did it and… I’ve done it manually at that time bash. So, it just really isn’t possible at all, nowhere (checked it out in XP and it was the same over there… (Too bad, which makes me wonder though, by the way, to those wonder guys at Redmond: why not?)

        SORRY to have waisted your valuable time but thanks for making me realise my mistake. This saves me some useless searching time!

        Hasse

        Reply | Quote
      • WShasse
        AskWoody Lounger
        March 3, 2004 at 1:20 pm #793463

        OK, Hans,
        thanks & sorry, I should have been a bit more careful before throwing out this post. You know, I really seemed to remember that once, in some spreadsheet, I had changed the font with conditional formatting too, so it seemed pretty weird that it wasn’t possible here, without any apparent reason. In the meanwhile, I think I’ve found back the file where I thought I did it and… I’ve done it manually at that time bash. So, it just really isn’t possible at all, nowhere (checked it out in XP and it was the same over there… (Too bad, which makes me wonder though, by the way, to those wonder guys at Redmond: why not?)

        SORRY to have waisted your valuable time but thanks for making me realise my mistake. This saves me some useless searching time!

        Hasse

        Reply | Quote
    • WSHansV
      AskWoody Lounger
      March 3, 2004 at 11:29 am #793437

      According to the dialog, you can only change the font style, underline, color and strikethrough. In other words, you cannot change the font name (Arial, Tahoma, …) or font size (9, 10, 12, …)

      Reply | Quote
    • H. Legare Coleman
      AskWoody Plus
      March 3, 2004 at 4:11 pm #793595

      You can accomplish this using the Worksheet Change event routine:

      Private Sub Worksheet_Change(ByVal Target As Range)
Dim ocell As Range
    If Not Intersect(Target, ActiveSheet.Range("B2:D5")) Is Nothing Then
        For Each ocell In Intersect(Target, ActiveSheet.Range("B2:D5"))
            If ocell.Value = 0 Then
                ocell.Font.Name = "Wingdings"
            Else
                ocell.Font.Name = "BAZOOKA"
            End If
        Next ocell
    End If
End Sub
      Reply | Quote
      • WShasse
        AskWoody Lounger
        March 3, 2004 at 8:45 pm #793798

        Wow, now you made me dare using such Change event routine the first time (even though I know some VBA), as this seemed fun…
        I changed the “B2:D5” in your example into the area on which I want to apply this high tech conditional formatting & customised the Font properties.
        And it works bananas!
        Now I’ll probably ask some stupid VB-question but… as I always like to know what I’m doing: what is that ‘Target’ variable passed to this routine? Can I just leave it there in peace without needing it to do the job? What does it do? Is it the current cell?

        Reply | Quote
      • WShasse
        AskWoody Lounger
        March 3, 2004 at 8:45 pm #793799

        Wow, now you made me dare using such Change event routine the first time (even though I know some VBA), as this seemed fun…
        I changed the “B2:D5” in your example into the area on which I want to apply this high tech conditional formatting & customised the Font properties.
        And it works bananas!
        Now I’ll probably ask some stupid VB-question but… as I always like to know what I’m doing: what is that ‘Target’ variable passed to this routine? Can I just leave it there in peace without needing it to do the job? What does it do? Is it the current cell?

        Reply | Quote
        • WSHansV
          AskWoody Lounger
          March 3, 2004 at 8:52 pm #793814

          The Worksheet_Change event occurs if one or more cells in the worksheet are changed by the user (or by an external link). The Target argument is the range of cells that have changed. Legare’s code checks whether this range intersects with the cells you are interested in – if it doesn’t, you don’t want to do anything, and if it does, you want to format the cells in the intersection.

          Reply | Quote
        • WSHansV
          AskWoody Lounger
          March 3, 2004 at 8:52 pm #793815

          The Worksheet_Change event occurs if one or more cells in the worksheet are changed by the user (or by an external link). The Target argument is the range of cells that have changed. Legare’s code checks whether this range intersects with the cells you are interested in – if it doesn’t, you don’t want to do anything, and if it does, you want to format the cells in the intersection.

          Reply | Quote
    • H. Legare Coleman
      AskWoody Plus
      March 3, 2004 at 4:11 pm #793596

      You can accomplish this using the Worksheet Change event routine:

      Private Sub Worksheet_Change(ByVal Target As Range)
Dim ocell As Range
    If Not Intersect(Target, ActiveSheet.Range("B2:D5")) Is Nothing Then
        For Each ocell In Intersect(Target, ActiveSheet.Range("B2:D5"))
            If ocell.Value = 0 Then
                ocell.Font.Name = "Wingdings"
            Else
                ocell.Font.Name = "BAZOOKA"
            End If
        Next ocell
    End If
End Sub
      Reply | Quote
    Viewing 3 reply threads
    Reply To: Conditional format: can’t define text font (all?)

    You can use BBCodes to format your content.
    Your account can't use all available BBCodes, they will be stripped before saving.

    Your information:




DON'T MISS OUT!
Subscribe to the Free Newsletter
We promise not to spam you. Unsubscribe at any time.
Invalid email address

View the Forum

  • Recent Replies
  • My Replies
  • My Active Topics
  • New Posts in the Last day
  • Private Messages
  • Knowledge Base
  • How to use the Forums
  • All Forums

    • Recent Topics

    My Profile

    May 2025
    S M T W T F S
     123
    45678910
    11121314151617
    18192021222324
    25262728293031

    Remembering Woody

     

    Want to Advertise in the free newsletter? How about a gift subscription in honor of a birthday? Send an email to sb@askwoody.com to ask how.

    Mastodon profile for DefConPatch
    Mastodon profile for AskWoody

     

    Home • About • FAQ • Posts & Privacy • Forums • My Account
    Register • Free Newsletter • Plus Membership • Gift Certificates • MS-DEFCON Alerts

    Copyright ©2004-2025 by AskWoody Tech LLC. All Rights Reserved.