[已解决]请高手帮忙看一下 代码 出错在哪里 谢谢~！

pvppk

Sub SearchFormula()
Dim mySearch(), sh As Worksheet
Dim i As Integer
Dim c As Range
mySearch = Array("SUMIFS", "INDEX")
For i = 0 To UBound(mySearch)
For Each sh In Worksheets
With ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas)
    Set c = .Find(mySearch(i), LookIn:=xlFormulas)
    Do
        c.Value = c.Value
        Set c = .FindNext(c)
    Loop Until c Is Nothing
End With,next
Next i
End Sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-10-16 14:53

包含SUMIFS,INDEX函数的单元格转化成值了。

1. Sub SearchFormula()
   
2.     Dim mySearch(), sh As Worksheet
   
3.     Dim i As Integer
   
4.     Dim c As Range
   
5.     Dim rg As Range
   
6.     On Error Resume Next
   
7.     mySearch = Array("SUMIFS", "INDEX")
   
8.     For i = 0 To UBound(mySearch)
   
9.         For Each sh In Worksheets
   
10.             Set rg = sh.UsedRange.SpecialCells(xlCellTypeFormulas)
    
11.             If Not rg Is Nothing Then
    
12.                 With rg
    
13.                     Set c = .Find(mySearch(i), LookIn:=xlFormulas, lookat:=xlPart)
    
14.                     Do While Not c Is Nothing
    
15.                         c.Value = c.Value
    
16.                         Set c = .FindNext(c)
    
17.                     Loop
    
18.                 End With
    
19.             End If
    
20.             Set rg = Nothing
    
21.             'Set c = Nothing
    
22.         Next
    
23.     Next i
    
24. End Sub
    

复制代码

跳转到最佳答案楼层

hwc2ycy

                End With,next
这一个错的地方。

pvppk

hwc2ycy 发表于 2013-10-16 14:07
End With,next
这一个错的地方。

请问 该怎么改呢？

hwc2ycy

End With
next

pvppk

hwc2ycy 发表于 2013-10-16 14:10
End With
next

老师，我改过之后
c.Value = c.Value 提示 对象变量或with块变量未设置

hwc2ycy

1. Sub SearchFormula()
   
2.     Dim mySearch(), sh As Worksheet
   
3.     Dim i As Integer
   
4.     Dim c As Range
   
5.     Dim rg As Range
   
6.     On Error Resume Next
   
7.     mySearch = Array("SUMIFS", "INDEX")
   
8.     For i = 0 To UBound(mySearch)
   
9.         For Each sh In Worksheets
   
10.             Set rg = sh.UsedRange.SpecialCells(xlCellTypeFormulas)
    
11.             If Not rg Is Nothing Then
    
12.                 With rg
    
13.                     Set c = .Find(mySearch(i), LookIn:=xlFormulas)
    
14.                     Do While c Is Nothing
    
15.                         c.Value = c.Value
    
16.                         Set c = .FindNext(c)
    
17.                     Loop
    
18.                 End With
    
19.             End If
    
20.         Next
    
21.     Next i
    
22. End Sub

复制代码

hwc2ycy

你是要去掉所有包含SUMIFS，INDEX函数的公式的单元格为值吧。

hwc2ycy

你还是说你要实现的用途吧，代码有点乱。

hwc2ycy

包含SUMIFS,INDEX函数的单元格转化成值了。

1. Sub SearchFormula()
   
2.     Dim mySearch(), sh As Worksheet
   
3.     Dim i As Integer
   
4.     Dim c As Range
   
5.     Dim rg As Range
   
6.     On Error Resume Next
   
7.     mySearch = Array("SUMIFS", "INDEX")
   
8.     For i = 0 To UBound(mySearch)
   
9.         For Each sh In Worksheets
   
10.             Set rg = sh.UsedRange.SpecialCells(xlCellTypeFormulas)
    
11.             If Not rg Is Nothing Then
    
12.                 With rg
    
13.                     Set c = .Find(mySearch(i), LookIn:=xlFormulas, lookat:=xlPart)
    
14.                     Do While Not c Is Nothing
    
15.                         c.Value = c.Value
    
16.                         Set c = .FindNext(c)
    
17.                     Loop
    
18.                 End With
    
19.             End If
    
20.             Set rg = Nothing
    
21.             'Set c = Nothing
    
22.         Next
    
23.     Next i
    
24. End Sub
    

复制代码

pvppk

hwc2ycy 发表于 2013-10-16 14:53
包含SUMIFS,INDEX函数的单元格转化成值了。

对的 是希望把表格中 包含 SUMIFS INDEX 函数的单元格都变成数值，
但是之前的代码都只能作用于一个 sheet ，
所以加上了 sh as worksheet ，for each sh in worksheets希望代码能对整个工作表起作用
修改后发现 还是不行
现在用了您这段代码 已经完全可以实现了 ，非常感谢！