VBA need to unbold data and grey color

[sksanjeev786]

Hi Team,

I would like to unbold the data like A1,C2,C4,D1 and follwing and change it to grey color

Book1
	A	B	C	D	E	F	G
1	7.5	-7	-1.1	7.2	2.1	5.7 p	-1
2	4.5	7.6	3.6	5.5	3.6 p	7.0 p	14.1 p
3	4.4	2.6	0.3	6.8	-0.2	0.1	11.3 p
4	1.7	7	4.1	-0.6	2.8	3.6	6.1
5	9.5	15.5 p	2.1	7.1	1.9	2.8	19.3 p
6	3	5	1.6	3	1.8	2.1	9.4
7	5.3	-5.7	-1.2	11.3	1.7	3.2	10.1
Sheet1

 

[davesexcel]

Select it and change it, or are you missing additional details to your question?

 

[sksanjeev786]

Select it and change it, or are you missing additional details to your question?

i would like to unbold only those which doesn't have a letter like p,q r(wingding format)

 

[davesexcel]

You can select all the cells, then hit F5 key, select Special cells and option button Constants, uncheck Text checkbox, then okay.

The cells with just numbers will be selected and you can format.

 

[sksanjeev786]

You can select all the cells, then hit F5 key, select Special cells and option button Constants, uncheck Text checkbox, then okay.


View attachment 86704

The cells with just numbers will be selected and you can format.

View attachment 86705

thanks for checking on this

But i need to unbold A1,C2,C4,D1,D7,E1,E4,F4,F7,G6,G7 and need grey color for those data only.

Can we do this with above steps

 

[davesexcel]

Try this.

Sub unbold_Cells()
    Dim c As Range, r As Range

    For Each c In Range("A1:G100")
        If InStr(c, "p") = 0 Then
            If c.Font.Bold = True Then
                If r Is Nothing Then
                    Set r = c
                Else
                    Set r = Union(r, c)
                End If
            End If
        End If
    Next c
    
    r.Font.Color = 12566463
End Sub

 

[sksanjeev786]

Try this.

Sub unbold_Cells()
    Dim c As Range, r As Range

    For Each c In Range("A1:G100")
        If InStr(c, "p") = 0 Then
            If c.Font.Bold = True Then
                If r Is Nothing Then
                    Set r = c
                Else
                    Set r = Union(r, c)
                End If
            End If
        End If
    Next c
   
    r.Font.Color = 12566463
End Sub

Thank you so much Dev