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

関連記事

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

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

: セル幅・高さの既定値（StandardHeight プロパティ・StandardWidth プロパティ）

StandardHeight プロパティ・StandardWidth プロパティ …

: 使用中のセル範囲を取得（UsedRange プロパティ）

UsedRange プロパティ UsedRange プロパティは、指定したワーク …

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

PatternThemeColor プロパティ・PatternTintAndSh …

: 重複するデータを削除（RemoveDuplicates メソッド）

RemoveDuplicates メソッド指定したセル範囲から重複データを含む …

: セルの値を置換・書式設定（Replace メソッド,ReplaceFormat プロパティ）

セルの値の置換と書式設定検索条件に一致するセルの書式を設定するには、まず、Ap …

: フリガナの取得（GetPhonetic メソッド）

GetPhonetic メソッド GetPhonetic メソッドは、指定した文 …

: 非連続のセルが選択されているか確認する（Areas コレクション）

Areas コレクションの使い方複数の離れた位置にあるセル範囲を選択した場合 …

: セルが選択されているか確認する（TypeName 関数）

セルが選択されているか確認する方法と使用例 TypeName 関数の引数に、Se …

: 入力規則（リストで制限する）Validation.Add メソッド

ドロップダウンリストで入力値を制限 Validation.Add メソッド（また …

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