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

関連記事

: オートフィルタ（平均より上・平均より下）AutoFilter メソッド

平均値よりも大きい（小さい）値のレコードを抽出 AutoFilter メソッドで …

: 対象のセルが参照している全てのセルを取得（Precedents プロパティ）

Precedents プロパティ Precedents プロパティは、対象のセル …

: コメントの設定（Comments, Comment, AddComment, ClearComment）

コメントの設定セルにコメントを新規に挿入するには、AddComment メソッ …

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

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

: ２つ以上のセル範囲を１つにまとめて参照（Union メソッド）

Union メソッド Union メソッドは、２つ以上のセル範囲を１つにまとめて …

: セルの幅・高さの自動調整（AutoFit メソッド）

AutoFit メソッド AutoFit メソッドは、指定したセル・セル範囲（R …

: 対象のセルを参照している全てのセルを取得（Dependents プロパティ）

Dependents プロパティ Dependents プロパティは、対象のセル …

: VBA で、ワークシート関数を使用（WorksheetFunction プロパティ）

VBA で、ワークシと関数を使用 VBA から、ワークシート関数を呼び出す場合、 …

: セルの値を置換（Replace メソッド）

Replace メソッド任意のセル範囲内から特定の値を一括して置換します。Fi …

: 任意のセルを含む行または列全体を参照（EntireRow プロパティ,EntireColumn プロパティ）

EntireRow プロパティ・EntireColumn プロパティ Entir …

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