[已解决]朋友们判断当前的工作表，有无公式的代码怎么写呀，谢谢了！

yjwdjfqb

朋友们判断当前的工作表，有无公式的代码怎么写呀，谢谢了！

最佳答案

月排行榜 / 总排行榜

xdragon

2014-2-23 19:01

1. Sub test()
   
2.   On Error GoTo none
   
3.     If Not Cells.SpecialCells(xlCellTypeFormulas, 23) Is Nothing Then MsgBox "有公式": Exit Sub
   
4. none:
   
5.     MsgBox "无公式"
   
6. End Sub

复制代码

跳转到最佳答案楼层

xdragon

1. Sub test()
   
2.   On Error GoTo none
   
3.     If Not Cells.SpecialCells(xlCellTypeFormulas, 23) Is Nothing Then MsgBox "有公式": Exit Sub
   
4. none:
   
5.     MsgBox "无公式"
   
6. End Sub

复制代码