Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

セルの文字列を取得（Text プロパティ）

2015/07/11 2015/08/23

Text プロパティ

セルに表示されている文字列を取得します。Text プロパティは、取得のみで、設定することはできません。

【書式】

result = Object.Text

引数・戻り値

object ・・・対象となる Range オブジェクトを指定します。
result ・・・指定されたオブジェクト（セル）に表示される文字列（内部処理形式 String のバリアント型）

Value プロパティとの違いについて
Value プロパティ は、純粋な値や数式の計算結果を取得します。
Text プロパティ は、セルの 見た目の値 を取得します。数値や日付などに書式が設定されている場合は、そのセルに表示されている文字列をそのまま取得します。また、セル幅が狭くて表示しきれない場合等、「####」のように表示される場合がありますが、この「####」も Text プロパティで取得できます。

Text プロパティ使用例

サンプルVBAソース

　
Sub Sample_Text()

    Dim myRng, v, str
    Set myRng = Range("A2:F2")
    
    For Each v In myRng
        
        str = str & "Value：" & v.Value & Chr(9) & "Text：" & v.Text & Chr(9) & "Formula：" & v.Formula & Chr(13)
    
    Next v

    MsgBox str

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

　

Sub Sample_Text()

Dim myRng, v, str

Set myRng = Range("A2:F2")

For Each v In myRng

str = str & "Value：" & v.Value & Chr(9) & "Text：" & v.Text & Chr(9) & "Formula：" & v.Formula & Chr(13)

Next v

MsgBox str

End Sub

　

実行結果

Text プロパティ使用例 2

サンプルVBAソース

　
Sub Sample02_Text()

    'セル幅が狭く数値等が表示されていない（### など表示）場合を
    '判定し、表示されるように調整する。
    '判定方法は、セル幅が狭く# が表示されている場合は、Value値は、数値や日付を、
    'Text値は、セルに表示されている文字列を取得できるので、それを利用。
    
    '※ エラーや「#」で始まる文字列等は、無視
    
    Dim myRng As Range, i As Long, Fsize As Integer
    Set myRng = Range("B3:E10")
    
    For i = 1 To myRng.Count
    
        '数式エラー以外
        If Not IsError(myRng(i).Value) Then
        
            '「#」から始まり、Value値とText値が異なる
            If Left(myRng(i).Text, 1) = "#" And myRng(i).Value <> myRng(i).Text Then
                
                '縮小表示
                myRng(i).ShrinkToFit = True
                
            End If
        
        End If
    
    Next i
                    
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

　

Sub Sample02_Text()

'セル幅が狭く数値等が表示されていない（### など表示）場合を

'判定し、表示されるように調整する。

'判定方法は、セル幅が狭く# が表示されている場合は、Value値は、数値や日付を、

'Text値は、セルに表示されている文字列を取得できるので、それを利用。

'※ エラーや「#」で始まる文字列等は、無視

Dim myRng As Range, i As Long, Fsize As Integer

Set myRng = Range("B3:E10")

For i = 1 To myRng.Count

'数式エラー以外

If Not IsError(myRng(i).Value) Then

'「#」から始まり、Value値とText値が異なる

If Left(myRng(i).Text, 1) = "#" And myRng(i).Value <> myRng(i).Text Then

'縮小表示

myRng(i).ShrinkToFit = True

End If

End If

Next i

End Sub

　

実行結果

サンプルVBA実行前

実行後

- セルの操作 Range オブジェクト, Text プロパティ, VBA基本, エクセルVBA, セルの操作, セルの文字列取得

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: セルの特定の要素のみをペーストする（PasteSpecial メソッド）

PasteSpecial メソッド PasteSpecial メソッドは、Cop …

: セルを挿入する（Insert メソッド）

Insert メソッド Insert メソッドで、指定した場所に新規の空白セルを …

: オートフィルタ（アイコンで抽出する）AutoFilter メソッド

オートフィルタ（アイコンで抽出する） Excel 2007 から、条件付き書式で …

: フリガナの設定（SetPhonetic メソッド）

フリガナの設定（SetPhonetic メソッド） SetPhonetic メソ …

: セルの表示形式を設定・取得する（NumberFormat プロパティ）

NumberFormat プロパティ NumberFormat プロパティは、現 …

: セルを削除する（Delete メソッド）

Delete メソッド Delete メソッドで、指定したセル・セル範囲を削除し …

: 並べ替え（Sort メソッド）

Sort メソッド任意のセル範囲内で、並べ替えを行います。引数で、並べ替えの条 …

: セルを参照する（Range プロパティ）

Range プロパティ任意のセルにアクセスするには Range プロパティを使 …

: オートフィルタ（AutoFilter メソッド）

AutoFilter メソッド【書式】 object.AutoFilter ( …

: A1 形式と R1C1 形式を変換、相対参照と絶対参照を変換（ConvertFormula)

ConvertFormula メソッド数式で参照しているアドレスの相対参照と絶 …

PREV: セルの位置を取得（Left プロパティ、Top プロパティ）
NEXT: セルの高さ・幅を取得（Height プロパティ・Width プロパティ）