|
処理対象シートのシートモジュールへ、以下のマクロを入れて下さい。
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column > 1 Then Exit Sub
If .Count > 1 Then Exit Sub
If IsEmpty(.Value) Then Exit Sub
Application.EnableEvents = False
If (IsError(.Value)) Or (Left(.Formula, 1) <> "=") Then
MsgBox "その数式の結果はエラーです", 48
.ClearContents
Else
.Offset(, 1).Value = .Value
.Formula = " " & .Formula
End If
End With
Application.EnableEvents = True
End Sub
A列の任意のセルへ「必ず数式になるような式(例えば頭に"="が無ければ、結果が
出る式と思っていても数式としての条件を満たしていないのでダメ)」を入力して
みて下さい。結果がエラーになる場合はメッセージを出してクリアします。
きちんと計算結果が出る式なら、そのセルの先頭に " " を入れて数式を表示し、
右隣りのセルに計算結果を表示します。
|
|