Bir hücrenin formülünü excel vba kullanarak metne dönüştürme

Question

Excel2003'te bir çalışma kitabındaki tüm hücreleri formüllerle bulmak ve farklı bir sayfadaki birkaç sütunda adreslerini ve formüllerini almak için bir makro yazıyorum.

ben sadece iyi çalışır

Public Function ShowFormula(cell As Range) As String 

    ShowFormula = cell.Formula 

End Function 

kullanarak tek hücre formülünü gösterebilir biliyorum ama elle tüm hücreleri bulmak zorunda istemiyordu çünkü ben şu makro yazdım tüm hücreler gayet, ancak bunun yerine metin olarak formüle görüntüleme bulur beni

Sub Macro2() 


Dim i As Integer 
Dim targetCells As Range 
Dim cell As Range 
Dim referenceRange As Range 
Dim thisSheet As Worksheet 

Set referenceRange = ActiveSheet.Range("CA1") 

With referenceRange 
    For Each thisSheet In ThisWorkbook.Sheets 
     If thisSheet.Index >= referenceRange.Parent.Index Then 
      Set targetCells = thisSheet.Cells.SpecialCells(xlCellTypeFormulas, 23) 
      For Each cell In targetCells 
       If cell.HasFormula Then 
        .Offset(i, 0).Value = thisSheet.Name 
        .Offset(i, 1).Value = cell.Address 
        .Offset(i, 2).Value = CStr(cell.Formula) 
        i = i + 1 
       End If 
      Next 
     End If 
    Next 
End With 

End Sub 

için hepsini bulmak için, liste formül sonuçlarını görüntüler.

Formülleri formül yerine metin olarak çıkarmak için ne kaçırıyorum?

Answer 1

bu deneyin: Ayrıca

.Offset(i, 2).Value = "'" & CStr(cell.Formula) 

, bu biraz daha hızlı işler yapacaktır. Bunun yerine

For Each thisSheet In ThisWorkbook.Sheets 
    If thisSheet.Index >= referenceRange.Parent.Index Then 

ait bir şeyleri hızlandırmak için ipucu için

For j = referenceRange.Parent.Index to Sheets.Count 
    Set thisSheet = Sheets(j)