Formula

数式を文字列として表示する

 Excel2003では「ワークシートの分析」、Excel2007では「数式の表示」で、ワークシートの数式をまとめて表示できますが、セルの幅が広がり見づらくなります。そこで、選択している範囲の数式のみを文字列として表示するコードを紹介します。

サンプルコード

選択範囲がセルでない場合はエラーになります。

Sub Formula_Value() '数式を文字列として表示する
    Dim objRange As Range
    For Each objRange In Selection
        With objRange
            .Value = "'" & .Formula
        End With
    Next
End Sub
'-------------------------------------------------------------------------------------------------------

Sub Value_Formula() '文字列としての数式を数式に戻す
    With Selection
        .Formula = .Value
    End With
End Sub

 文字列としての数式を、通常の数式に戻すコードも併記しました。

Excel Tips for Teachers

Copyright (C) 2009- 坂江 保 All Rights Reserved.