[已解决]返回查找的格式 和种类报错

mqr66

Sub fsl()
MsgBox Application.FindFormat
End Sub

运行上述程序以后，报错“运行时错误,错误代码438”。 是不是application又没有这个方法呢？ 请高手指点，先谢了。

最佳答案

月排行榜 / 总排行榜

mxg825

2011-11-6 22:40

查找前，要先设置一下 查找条件！（他会暂时保存 记录条件）
再用以上办法才能 返回值！
Sub fsl()
Application.FindFormat.Font.Name = "宋体" '设置查找条件（第一次需要）
MsgBox Application.FindFormat.Font.Name '返回当前查找条件设置的字体
End Sub

跳转到最佳答案楼层

周小艳

mxg825

查找前，要先设置一下 查找条件！（他会暂时保存 记录条件）
再用以上办法才能 返回值！
Sub fsl()
Application.FindFormat.Font.Name = "宋体" '设置查找条件（第一次需要）
MsgBox Application.FindFormat.Font.Name '返回当前查找条件设置的字体
End Sub

mqr66

回复 mxg825 的帖子

多谢您的耐心指点，跟 你学到了不少东西。