Excel) (Range.Text 属性

返回指定对象的格式化文本。 只读 String。

语法

表达式。文本

expression 一个表示 Range 对象的变量。

备注

Text 属性最常用于一个单元格区域。 如果区域包含多个单元格， 则 Text 属性返回 Null，除非该区域中的所有单元格具有相同的内容和格式。

如果单元格的内容宽度大于可用于显示的宽度， 则 Text 属性将修改显示的值。

属性差异示例

此示例演示包含带格式数字的单元格的 Text 和 Value 属性之间的差异。

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

文本宽度差异

当列不够宽时，包含数值的单元格可能会修改其显示值。 下面的示例使用两列来演示这一点。 第一列的宽度足以显示值。 应用格式，然后输入显示完整值的值。 第二列的宽度减小，因此当单元格被复制时，它太窄，导致显示的值无法进行修改。

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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。