即効テクニック |
セルに表示されたイメージのままの値を取得します。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のようにセル幅が足りなかったせいで正常に表示されていないデータがそのまま不明な形で入力されるなど、値を取得するプロパティとしては非常に不安定です。その点は十分に理解したうえで使用してください。
