【烟花原创】VBA零基础之第58篇 单元格对象Range（二）

hwc2ycy

　　Value 属性
　　返回或设置一个 Variant 型，它代表指定单元格的值。
　　语法：Value(RangeValueDataType)
　　　RangeValueDataType 可选，可以为 xlRangeValueDataType 常量。
　　　　xlRangeValueDefault
　　　　默认值，如果指定的 Range 对象为空，则返回值 Empty（可用 IsEmpty 函数测试这种情况）。
　　　　　　如果 Range 对象包含多个单元格，则返回值的数组（可用 IsArray 函数测试这种情况）。
　　　　xlRangeValueMSPersistXML
　　　　　　以 XML 格式返回指定的 Range 对象的记录集表示形式。
　　　　xlRangeValueXMLSpreadsheet
　　　　以 XML 电子表格格式返回指定的 Range 对象的值、格式、公式和名称。
　　平时默认情况下使用不需要指定参数（默认值即可）。
　　有兴趣的童鞋可以试试另外两个参数值。
　　注意：当Range为多个区域时，用Range.Value属性只会返回第一个区域中的值。
　　示例：
　　　　Dim r1, r2, r3
　　　　r1 = Range("a1").Value
　　　　'单元格A1的值
　　　　r2 = Range("a1:d2").Value
　　　　'单元格区域A1:D2的值
　　　　r3 = Range("e2:f5,a1:d2,h9:i19").Value
　　　　'只会返回单元格区域中e2:f5的值，返回结果为数组

　　Value2 属性
　　返回或设置单元格值，Variant 类型，可读写。
　　说明：该属性与 Value 属性的唯一区别是：Value2 属性不使用 Currency 和 Date 数据类型。
　　　　可以通过使用 Double 数据类型，以浮点数形式返回这些数据类型格式的数值。
　　示例：
　　　　假设在C12单元格输入 2011/1/31。
　　　　Dim r1, r2
　　　　r1 = Range("c12").Value
　　　　r2 = Range("c12").Value2
　　　　stop
　　代码暂时后可以观察本地窗口两个变量的类型与值。

　　Text 属性
　　返回或设置指定对象中的文本，只读。
　　示例：
　　　　Dim c As Range
　　　　Set c = Worksheets("Sheet1").Range("B14")
　　　　c.Value = 40574
　　　　c.NumberFormat = "yyyy年m月d日;@"
　　　　MsgBox c.Value
　　　　MsgBox c.Text
　　演示包含格式数字的单元格的 Text 和 Value 属性的区别。
　　其实Text属性返回的就是在单元格显示的内容。

　　Formula 属性
　　返回或设置一个 Variant 值，它代表A1格式引用。
　　说明：
　　　如果单元格包含一个常量，此属性返回该常量。
　　　如果单元格为空，此属性返回一个空字符串。
　　　如果单元格包含公式，Formula 属性将该公式作为字符串返回，所用格式与在编辑栏（包括等号）中显示时的格式相同。
　　　如果将单元格的值或者公式设置为日期类型，则检查此单元格的数字格式是否符合日期或者时间格式。
　　　如果不符合，把数字格式设置为默认的短日期格式。
　　　如果指定区域是一维或二维区域，则可将公式指定为 Visual Basic 中相同维数的数组。
　　　如果为多单元格区域设置公式，则会用公式填充该区域所有的单元格。
　　　简而言之，有公式返回公式，无公式则返回值。
　　　示例：
　　　　　　Range("A1").FormulaR1C1 = "1"
　　　　　　Range("A2").FormulaR1C1 = "=1"
　　　　　　Range("A3").FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
　　　　　　MsgBox "A1的公式" & [a1].Formula
　　　　　　MsgBox "A2的公式" & [a2].Formula
　　　　　　MsgBox "A3的公式" & [a3].Formula
　　　代码在A1单元格内填入1，在A2单元格内填入=1，在A3单元格内填入=sum(a1:a2)。
　　　然后通过消息框分别显示3个单元格的Formula属性。

　　FormulaR1C1 属性
　　与Formula属性基本相同，只是返回的公式使用R1C1格式引用。

　　FormulaR1C1Local 属性
　　返回或设置指定对象的公式，使用R1C1格式引用，Variant 型，可读写。
　　与Office的不同语言版本相关。
　　假定使用的是美国英语版 Microsoft Excel，并往第一张工作表的 A11 单元格中输入了公式“=SUM(A1:A10)”。
　　　如果在一台运行德文版 Microsoft Excel 的计算机上打开该工作表，则该属性返回的是公式“=SUMME(Z1S1:Z10S1)”。

　　FormulaLocal 属性
　　返回或设置指定对象的公式，使用A1格式引用，可读写。
　　同样也与本地化有关，在不同语言版本下使用时可看出区别。

yewei113

沙发呀，又是我的，谢谢老师了

Ernsnt

又看得云里雾里的

tingfeng461002

含月化烛

{:1112:}

ANDY0393

谢谢分享，标记，五十八