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

関連記事

: テーマカラーで網かけ（パターン）の色の取得・設定（PatternThemeColor プロパティ・PatternTintAndShade プロパティ）

PatternThemeColor プロパティ・PatternTintAndSh …

: 指定した行数・列数移動したセル・セル範囲を参照（Offset プロパティ）

Offset プロパティ Offset プロパティは、基準となるセル・セル範囲か …

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

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

: 数式を設定・取得する（Formula プロパティ・FormulaR1C1 プロパティ）

Formula プロパティ（FormulaR1C1 プロパティ） Formula …

: 引数に指定したセル範囲の共通のセル範囲を取得（Intersect メソッド）

Intersect メソッド Intersect メソッドは、引数に指定したセル …

: 対象のセルが配列数式の一部かどうか（HasArray プロパティ）

HasArray プロパティ HasArray プロパティは、対象のセルが配列数 …

: オートフィルタ（抽出件数の取得・結果集計）AutoFilter メソッド

ワークシート関数の Subtotal 関数の使い方 VBA には、オートフィル …

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

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

: 並べ替え（Sort オブジェクト, SortFields コレクション）

Sort オブジェクトによる並べ替え Excel 2007 以降のバージョンでの …

: アクティブなセルを参照する（ActiveCell プロパティ）

ActiveCell プロパティ ActiveCell プロパティは、各ウィンド …

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