[已解决]怎样用代码让括号内的字体变成红色

SHQM

如题:怎样用代码让括号内的字体变成红色。见附件！
    谢谢了 括号内变色.rar (10.1 KB, 下载次数: 11)

2017-6-14 06:11 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

苏子龙

2017-6-14 09:04

1. Sub tt()
   
2. Dim Ends%, start_num%, str_len%, i%
   
3. Ends = Sheet1.Cells(Rows.Count, 3).End(3).Row
   
4. For i = 5 To Ends
   
5.     With Sheet1.Cells(i, 3)
   
6.         If .Value Like "*(*)*" Then
   
7.             start_num = InStr(.Value, "(") + 1                       '开始位
   
8.             str_len = InStr(.Value, ")") - InStr(.Value, "(") - 1    '长度
   
9.             .Characters(Start:=start_num, Length:=str_len).Font.Color = vbRed    '颜色红色
   
10.             .Characters(Start:=start_num, Length:=str_len).Font.FontStyle = "加粗" '加粗
    
11.         End If
    
12.     End With
    
13. Next
    
14. End Sub

复制代码

跳转到最佳答案楼层

yorkchenshunan

1. Sub colorred()
   
2. Dim rg As Range, rg1 As Range, n%, m%
   
3. Set rg = Range("c5", Range("c65535").End(xlUp))
   
4. For Each rg1 In rg
   
5.     n = InStr(1, rg1, "(")
   
6.     m = InStr(1, rg1, ")")
   
7.     If m > n And n > 0 Then
   
8.         rg1.Characters(n + 1, m - n - 1).Font.ColorIndex = 3
   
9.     End If
   
10. Next
    
11. End Sub

复制代码

苏子龙

1. Sub tt()
   
2. Dim Ends%, start_num%, str_len%, i%
   
3. Ends = Sheet1.Cells(Rows.Count, 3).End(3).Row
   
4. For i = 5 To Ends
   
5.     With Sheet1.Cells(i, 3)
   
6.         If .Value Like "*(*)*" Then
   
7.             start_num = InStr(.Value, "(") + 1                       '开始位
   
8.             str_len = InStr(.Value, ")") - InStr(.Value, "(") - 1    '长度
   
9.             .Characters(Start:=start_num, Length:=str_len).Font.Color = vbRed    '颜色红色
   
10.             .Characters(Start:=start_num, Length:=str_len).Font.FontStyle = "加粗" '加粗
    
11.         End If
    
12.     End With
    
13. Next
    
14. End Sub

复制代码