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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 文字の向きを表す値を取得・設定する（Orientation プロパティ）

Orientation プロパティ Orientation プロパティで、文字列 …

: セルのロック（Locked プロパティ）

セルのロック（Locked プロパティ） Locked プロパティで、セルのロッ …

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

Cells プロパティ Cells プロパティは、ワークシートの行番号と列番号を …

: オートフィルタの状況を確認（AutoFilterMode, FilterMode)

AutoFilterMode プロパティ AutoFilterMode プロパテ …

: 文字列の縦位置を取得・設定する（VerticalAlignment プロパティ）

VerticalAlignment プロパティ VerticalAlignmen …

: 列名を取得、列番号を取得（Address プロパティ,Column プロパティ）

列番号を取得するセル番地（「A1」や「B3」）や列名（「A」「B」「C」&#8 …

: 指定した条件に一致するセルを取得（SpecialCells メソッド）

SpecialCells メソッド SpecialCells メソッドは、指定し …

: セル範囲を結合・結合を解除（Merge メソッド・UnMerge メソッド）

Merge メソッド・UnMerge メソッドセルを結合するには、指定したセル …

: 網かけ（パターン）の取得・設定（Pattern プロパティ）

網かけ（パターン）を取得・設定するセルの背景に網かけ（パターン）を設定したり、 …

: セルの行番号または列番号を取得（Row プロパティ,Column プロパティ）

Row プロパティ・Column プロパティ Row プロパティは、指定したセル …

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