Range.Text プロパティ (Excel)Range.Text property (Excel)

指定したオブジェクトの書式付きテキストを返します。Returns the formatted text for the specified object. 値の取得のみ可能な String 値です。Read-only String.

構文Syntax

テキストexpression.Text

expressionRange オブジェクトを表す変数です。expression A variable that represents a Range object.

注釈Remarks

Textプロパティは、1つのセル範囲に最もよく使用されます。The Text property is most often used for a range of one cell. 範囲に複数のセルが含まれている場合、 TextプロパティはNullを返します。ただし、範囲内のすべてのセルが同一の内容と書式を持っている場合です。If the range includes more than one cell, the Text property returns Null, except when all the cells in the range have identical contents and formats.

セルの内容が表示可能な幅より大きい場合、 Textプロパティは表示されている値を変更します。If the contents of the cell is wider than the width available for display, the Text property will modify the displayed value.

プロパティの相違点の例Property Differences Example

この例では、書式付き数値を保持するセルの Text プロパティと Value プロパティの相違点を示します。This example illustrates the difference between the Text and Value properties of cells that contain formatted numbers.

Option Explicit

Public Sub DifferencesBetweenValueAndTextProperties()
    Dim cell As Range
    Set cell = Worksheets("Sheet1").Range("A1")
    cell.Value = 1198.3
    cell.NumberFormat = "$#,##0_);($#,##0)"
    
    MsgBox "'" & cell.Value & "' is the value." 'Returns: "'1198.3' is the value."
    MsgBox "'" & cell.Text & "' is the text."    'Returns: "'$1,198' is the text."
End Sub

文字幅の違いText Width Differences

数値が含まれるセルは、列幅が十分でないときに表示される値を変更することができます。Cells containing numeric values may have their displayed value modified when the column isn't wide enough. 次の例では、2つの列を使用してこれを示します。The example below shows this using two columns. 最初の列には、値を表示するのに十分な幅があります。The first column is wide enough to display the values. 書式が適用され、値を入力すると完全な値が表示されます。A format is applied and then a value entered showing the full value. 2番目の列の幅は小さくなります。セルがコピーされている場合は、表示されている値が狭すぎるため、moified されます。The second column has its width reduced such that when the cells are copied over it is too narrow causing the displayed value to be moified.

Public Sub TextWidthDifferences()
    
    Dim wideColumn As Range
    Set wideColumn = Sheet1.Range("B2")
    wideColumn.Value = "Wide Enough Column"
    wideColumn.Columns.AutoFit
    
    Sheet1.Range("B3").Value2 = 123456789
    
    Const CurrencyWith2DecimalsFormat As String = "$#,##0.00"
    Dim currencyCell As Range
    Set currencyCell = Sheet1.Range("B4")
    currencyCell.Value2 = 1234.56
    currencyCell.NumberFormat = CurrencyWith2DecimalsFormat
    
    Dim narrowColumn As Range
    Set narrowColumn = Sheet1.Range("C2")
    narrowColumn.Value = "Reduced Width Column"
    narrowColumn.ColumnWidth = 7.5
    
    Sheet1.Range("B3:B4").AutoFill Destination:=Sheet1.Range("B3:C4"), Type:=XlAutoFillType.xlFillDefault
    Debug.Print Sheet1.Range("C3").Text
    Debug.Print Sheet1.Range("C4").Text
End Sub

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.