请帮助修正有关修改单元格字体的代码

leyan2009

下面的一段代码目的是要将一个EXcel文件的所有sheet字体的格式统一,
运行提示"不能设置类Font的name属性", 如何解决??

Sub Macro2()

Dim r As Integer, r1 As Integer
r = 1
r1 = Excel.Worksheets.Count + 1

Do While r < r1
   
    Sheets(r).Select
    Cells.Select
    With Selection.Font
        .Name = "宋体"
        .Strikethrough = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With Selection.Font
        .Name = "Arial"
        .Strikethrough = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
  r = r + 1

Loop
ActiveWorkbook.Save
        MsgBox "字体统一完成."
End Sub

风之助

上传附件吧!
在我的机子上运行没问题!

leyan2009

谢谢风之助,   你提醒我了.   我用另外一个文件运行可以的, 所以问题应该出在引用上,

现在问题是我尝试去除一个引用:microsoft forms 2.0 object library , 系统提示正在使用该引用,不让去除, 我已经删除了所有forms, 还是不行.

[ 本帖最后由 leyan2009 于 2009-7-5 11:27 编辑 ]

leyan2009

还是不行,手工更改格式,提示单元格格式太多

rphacker

在所有工作表中，如何指定一个字符，将它所有字体更改。如工作表中所有“8”改为黑体。