Format only part of a cell

[Rhinoman]

I am trying to format only part of a cell using either formulae or VBA. Any help would be appreciated!

Specifically I need to bold everything but italicize only the text between the parentheses but no formatting to the preceeding text or the parentheses themselves. e.g. "12 (34)"

Thanks!

 

[Wulf]

You just do that in the 'Home' tab. Type as you would in Word.

 

[Rhinoman]

You just do that in the 'Home' tab. Type as you would in Word.

Sorry I should have mentioned that I do not want to have to do it manually because I am importing a large number of cells like this and they are not already formatted in this way (they are just regular font).

 

[JoeMo]

Sorry I should have mentioned that I do not want to have to do it manually because I am importing a large number of cells like this and they are not already formatted in this way (they are just regular font).

Select the cells you want to format with your mouse, then run the code below.

Sub Rhinoman()
'Select cells first, then run this macro
Dim c As Range, First As Long, Last As Long
Application.ScreenUpdating = False
For Each c In Selection
    For i = 1 To Len(c.Value)
        If Mid(c.Value, i, 1) = "(" Then
            First = i + 1
        ElseIf Mid(c.Value, i, 1) = ")" Then
            Last = i - 1
            c.Font.Bold = True
            c.Characters(First, Last - First + 1).Font.Italic = True
        End If
    Next i
Next c
Application.ScreenUpdating = True
End Sub

 

[Rhinoman]

Select the cells you want to format with your mouse, then run the code below.

Sub Rhinoman()
'Select cells first, then run this macro
Dim c As Range, First As Long, Last As Long
Application.ScreenUpdating = False
For Each c In Selection
    For i = 1 To Len(c.Value)
        If Mid(c.Value, i, 1) = "(" Then
            First = i + 1
        ElseIf Mid(c.Value, i, 1) = ")" Then
            Last = i - 1
            c.Font.Bold = True
            c.Characters(First, Last - First + 1).Font.Italic = True
        End If
    Next i
Next c
Application.ScreenUpdating = True
End Sub

Works great! Thank you so much! I learn something new every day.

 

[JeanKim]

My version in case you are interested.
very simple to edit to your need IMO.

Sub Macro1()
Dim r As Range
Set r = Range("A1:B4")
For Each c In r
    With c.Characters(Start:=1, Length:=Len(c)).Font
        .FontStyle = "Bold"
    End With
    With c.Characters(Start:=InStr(c, "(") + 1, Length:=InStr(c, ")") - InStr(c, "(") - 1).Font
        .FontStyle = "Regular"
        .FontStyle = "Italic"
    End With
Next c
End Sub