[已解决]关于更改多个字体的格式问题，求解

ccc919

Dim x, rg
  For x = 1 To Sheets.Count
  If x = 1 Then GoTo 10
   For Each rg In Sheets(x).UsedRange
    With rg.Font
        If .Bold = True And .Name = "宋体" Then
            .Name = "楷体_GB2312"
            .Size = 11
            .Bold = False

        End If
    End With
   Next
10
Next

如此代码 这是更改整个工作薄中的一个宋体改为楷体，那如果是多种字体呢？比如除了宋体外还有幼圆，隶书，仿宋应该怎么表示？其中都是加黑粗体更改的条件如上述代码所示。

最佳答案

月排行榜 / 总排行榜

ykqrs

2015-3-19 09:29

1. Dim x, rg
   
2.   For x = 1 To Sheets.Count
   
3.   If x = 1 Then GoTo 10
   
4.    For Each rg In Sheets(x).UsedRange
   
5.     With rg.Font
   
6.         If .Bold = True Then
   
7.         If InStr("幼圆隶书仿宋宋体", .Name) > 0 Then
   
8.             .Name = "楷体_GB2312"
   
9.             .Size = 11
   
10.             .Bold = False
    
11. End If
    
12.         End If
    
13.     End With
    
14.    Next
    
15. 10
    
16. Next

复制代码

跳转到最佳答案楼层

ykqrs

1. Dim x, rg
   
2.   For x = 1 To Sheets.Count
   
3.   If x = 1 Then GoTo 10
   
4.    For Each rg In Sheets(x).UsedRange
   
5.     With rg.Font
   
6.         If .Bold = True Then
   
7.         If InStr("幼圆隶书仿宋宋体", .Name) > 0 Then
   
8.             .Name = "楷体_GB2312"
   
9.             .Size = 11
   
10.             .Bold = False
    
11. End If
    
12.         End If
    
13.     End With
    
14.    Next
    
15. 10
    
16. Next

复制代码

ccc919

ykqrs 发表于 2015-3-19 09:29

自己添加的字体为什么有的可以有的无效？