[已解决]用VBA代码怎样禁用工作表中的函数

cb_clx

问题是这样的，工作表里有函数公式，不知能用VBA编一个代码，运行此代码后，工作表里的公式就失效了！

请各位老师给个解答，谢谢！

最佳答案

月排行榜 / 总排行榜

suye1010

2012-7-11 13:03

方法1：常规思路，找出含有公式的单元格进行处理

1. Sub ChangeFormualToValue()
   
2. Dim rng As Range
   
3. ActiveSheet.EnableCalculation = False
   
4. For Each rng In ActiveSheet.UsedRange
   
5.     If rng.HasFormula Then
   
6.         rng = rng.Value
   
7.     End If
   
8. Next
   
9. ActiveSheet.EnableCalculation = True
   
10. End Sub
    

复制代码

跳转到最佳答案楼层

suye1010

失效模式是什么样的？是保留值，还是直接清空？

cb_clx

suye1010 发表于 2012-7-11 11:23
失效模式是什么样的？是保留值，还是直接清空？

保留值，、
我的想法就是想让公式起不到作用。

suye1010

方法1：常规思路，找出含有公式的单元格进行处理

1. Sub ChangeFormualToValue()
   
2. Dim rng As Range
   
3. ActiveSheet.EnableCalculation = False
   
4. For Each rng In ActiveSheet.UsedRange
   
5.     If rng.HasFormula Then
   
6.         rng = rng.Value
   
7.     End If
   
8. Next
   
9. ActiveSheet.EnableCalculation = True
   
10. End Sub
    

复制代码

suye1010

方法2：利用数组中转

1. Sub ChangeFormualToValue()
   
2. Dim arr
   
3. arr = ActiveSheet.UsedRange
   
4. ActiveSheet.UsedRange = arr
   
5. End Sub

复制代码

suye1010

方法3：区域=区域.value

1. Sub ChangeFormualToValue()
   
2. ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value
   
3. End Sub
   

复制代码

suye1010

方法4：利用Pastespecial方法

1. Sub ChangeFormualToValue()
   
2. ActiveSheet.UsedRange.Copy
   
3. ActiveSheet.UsedRange.PasteSpecial xlPasteValues
   
4. Application.CutCopyMode = False
   
5. End Sub

复制代码

suye1010

其实这个问题也可以不用VBA代码解决

选中你要去除公式的区域-复制-选择性粘贴-只有值 即可

cb_clx

suye1010 发表于 2012-7-11 15:09
其实这个问题也可以不用VBA代码解决

选中你要去除公式的区域-复制-选择性粘贴-只有值 即可

老师太厉害了，学习学习！

fangcheng52013

suye1010 发表于 2012-7-11 15:03
方法4：利用Pastespecial方法

你好请你帮忙看一下http://www.excelpx.com/thread-251324-1-1.html