セルに表示されたイメージのままの値を取得します。Valueプロパティで数値
を取得する場合、表示形式は取得されませんが、Textプロパティを使用すれば
表示形式も含んだ形での値の取得が可能です。


　構文  Object.Text     取得


　設定項目        内容
  Object          Rangeオブジェクト


●サンプル●

Sub TextSamp1()

    Dim c As Range

    For Each c In Range("A2:A5")
        c.Offset(, 1).Value = c.Text
        c.Offset(, 2).Value = c.Value
    Next c

End Sub


　セルA2〜A5に「パーセント表示、指数表示、分数表示」などで数値が入力され
ている状態でこのコードを実行すると、B列にTextプロパティで取得した値、C列
にValueプロパティで取得した値が入力されます。サンプルを実行して結果をみて
みてください。
　Textプロパティで取得した値は、一見元のデータに忠実なように見えますが、
セルB4のように数値として入力されていなかったり、セルB5のようにセル幅が足
りなかったせいで正常に表示されていないデータがそのまま不明な形で入力され
るなど、値を取得するプロパティとしては非常に不安定です。その点は十分に理
解したうえで使用してください。