【VBA】数式の結果を取得する方法

【数式の結果を取得】

Sub GetFormulaResult()

Dim formulaResult As Variant
formulaResult = Range("A1").Value ' 数式の結果を取得
MsgBox "セル A1 の数式結果は: " & formulaResult

End Sub

【数式と結果の比較】

Sub CompareFormulaAndResult()

Dim formulaText As String
Dim formulaResult As Variant

formulaText = Range("A1").Formula ' 数式を取得
formulaResult = Range("A1").Value ' 数式の結果を取得

MsgBox "数式: " & formulaText & vbCrLf & "結果: " & formulaResult

End Sub

【数式の結果が特定値を超える場合の処理】

Sub ProcessFormulaResult()

Dim result As Variant
result = Range("A1").Value

If result > 100 Then

MsgBox "セル A1 の数式結果が 100 を超えています！"

Else

MsgBox "セル A1 の数式結果は 100 以下です。"

End If

End Sub

【範囲内の数式結果を合計】

Sub SumFormulaResults()

Dim cell As Range
Dim total As Double
total = 0

For Each cell In Range("A1:A10")

total = total + cell.Value ' 数式の結果を合計

Next cell

MsgBox "範囲 A1:A10 の数式結果の合計は: " & total

End Sub

【数式結果を別シートに転記】

Sub CopyFormulaResultToAnotherSheet()

Dim formulaResult As Variant
Dim destinationCell As Range

formulaResult = Range("A1").Value ' 数式結果を取得
Set destinationCell = Worksheets("Sheet2").Range("B1") ' 転記先のセルを指定

destinationCell.Value = formulaResult ' 数式結果を転記
MsgBox "数式結果を Sheet2 の B1 に転記しました。"

End Sub

【動的に数式結果を集計】

Sub SumDynamicFormulaResults()

Dim cell As Range
Dim total As Double
total = 0

For Each cell In ActiveSheet.UsedRange

If cell.HasFormula Then

total = total + cell.Value ' 数式の結果を合計

End If

Next cell

MsgBox "ワークシート内の数式結果の合計は: " & total

End Sub