跟煙花入門VBA之58：單元格對象Range（二）

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格式引用，可讀寫。　　同樣也與本地化有關，在不同語言版本下使用時可看出區別。