[已解决]如何用VBA 写替换整个工作薄中的字体格式？

ccc919

请问这个功能用VBA怎么写？ 将所有工作薄中的宋体加粗的字体全部替换成楷体常规11号字体？
求大神赐教。

最佳答案

月排行榜 / 总排行榜

26759761@qq.com

2015-2-6 21:52

不知道是不是这意思

1. Sub x()
   
2. Dim x, rg
   
3.   For x = 1 To Sheets.Count
   
4.    For Each rg In Sheets(x).UsedRange
   
5.     If rg.Font.Bold = True And rg.Font.Name = "宋体" Then
   
6.      rg.Font.Name = "楷体常规"
   
7.      rg.Font.Size = 11
   
8.      rg.Font.Bold = False
   
9.     End If
   
10.    Next
    
11. Next
    
12. End Sub

复制代码

跳转到最佳答案楼层

26759761@qq.com

不知道是不是这意思

1. Sub x()
   
2. Dim x, rg
   
3.   For x = 1 To Sheets.Count
   
4.    For Each rg In Sheets(x).UsedRange
   
5.     If rg.Font.Bold = True And rg.Font.Name = "宋体" Then
   
6.      rg.Font.Name = "楷体常规"
   
7.      rg.Font.Size = 11
   
8.      rg.Font.Bold = False
   
9.     End If
   
10.    Next
    
11. Next
    
12. End Sub

复制代码

ccc919

26759761@qq.com 发表于 2015-2-6 21:52
不知道是不是这意思

请问如果我不想让他更改其中2个工作表怎么写？

26759761@qq.com

哪两个  工作表名字发出来

ccc919

26759761@qq.com 发表于 2015-2-6 22:15
哪两个  工作表名字发出来

sheet3和sheet6

26759761@qq.com

1. Sub x()
   
2. Dim x, rg
   
3.   For x = 1 To Sheets.Count
   
4.   If x = 3 Or x = 6 Then GoTo 10
   
5.    For Each rg In Sheets(x).UsedRange
   
6.     With rg.Font
   
7.         If .Bold = True And .Name = "宋体" Then
   
8.             .Name = "楷体常规"
   
9.             .Size = 11
   
10.             .Bold = False
    
11.         End If
    
12.     End With
    
13.    Next
    
14. 10
    
15. Next
    
16. End Sub

复制代码

ccc919

26759761@qq.com 发表于 2015-2-6 22:21

十分感谢！