Excelですべての数式を一覧表示するにはどうすればよいですか？

通常、Excelでは、セルに数式をすばやく表示できますが、Excelには、ワークシートにすべての数式を一覧表示する機能はありません。 ワークシートのすべての数式を一覧表示すると、実際の数式でセル値を追跡するのに役立ちます。 ここでは、この問題を解決するためのVBAコードの作成について説明します。

VBAコードを含むワークシートのすべての数式を一覧表示します

VBAコードを含むワークシートのすべての数式を一覧表示します

次のVBAコードは、選択範囲またはワークシートの数式を一覧表示するのに役立ちます。次のようにしてください。

1。 を押し続けます Alt + F11 キー、そしてそれは開きます Microsoft Visual Basic forApplicationsウィンドウ.

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ.

VBAコード：ワークシートのすべての数式を一覧表示します

Sub ListFormulas()
'Update 20141027
Dim Rng As Range
Dim WorkRng As Range
Dim xSheet As Worksheet
Dim xRow As Integer
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlFormulas, 23)
If WorkRng Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xSheet = Application.ActiveWorkbook.Worksheets.Add
xSheet.Range("A1:C1") = Array("Address", "Formula", "Value")
xSheet.Range("A1:C1").Font.Bold = True
xRow = 2
For Each Rng In WorkRng
    xSheet.Cells(xRow, 1) = Rng.Address(RowAbsolute:=False, ColumnAbsolute:=False)
    xSheet.Cells(xRow, 2) = " " & Rng.Formula
    xSheet.Cells(xRow, 3) = Rng.Value
    xRow = xRow + 1
Next
xSheet.Columns("A:C").AutoFit
Application.ScreenUpdating = True
End Sub

3。 次に、 F5 このコードを実行するためのキーを押すと、数式セルを一覧表示する範囲またはワークシート全体を選択するように求めるプロンプトボックスが表示されます。スクリーンショットを参照してください。

4。 そして、 OK、選択した数式は、アクティブなワークシートの前にある新しいワークシートに一度に一覧表示されます。このワークシートには、次のスクリーンショットに示すように、セルのアドレス、数式、および値の情報が含まれています。

関連記事：

Excelで数式をテキスト文字列に変換する方法は？

Excelでテキスト文字列を数式に変換する方法は？