Excel) (Application.Range 屬性
會傳回代表儲存格或儲存格範圍的 Range 物件。
語法
運算式。Range (Cell1、 Cell2)
expression 代表 Application 物件的變數。
參數
名稱 | 必要/選用 | 資料類型 | 描述 |
---|---|---|---|
Cell1 | 必要 | Variant | 範圍的名稱。 名稱必須是和巨集使用相同語言的 A1 樣式參照。 名稱可以包含範圍運算子 (冒號)、交集運算子 (空格) 或聯集運算子 (逗號)。 它也可以包含貨幣符號,但會被忽略。 在範圍的任何部分中使用本機定義的名稱。 如果使用名稱,則會假設該名稱和巨集使用相同語言。 |
Cell2 | 選用 | Variant | 位於範圍左上方和右下方的儲存格。 可以是包含單一儲存格、整欄或整列的 Range 物件,也可以是使用巨集語言為單一儲存格命名的字串。 |
註解
在沒有物件辨識符號的情況下使用時,此屬性是 ActiveSheet.Range 的快捷方式 (它會傳回使用中工作表的範圍;如果使用中工作表不是工作表,則屬性會) 失敗。
套用到 Range 物件時,該屬性會與 Range 物件相對應。 例如,如果選取儲存格 C3,則 Selection.Range("B1")
會傳回儲存格 D3,因為其與 Selection 屬性傳回的 Range 物件相對應。 另一方面,程式碼 ActiveSheet.Range("B1")
一律會傳回儲存格 B1。
範例
這個範例會將 Sheet1 中 A1 儲存格的值設定為 3.14159。
Worksheets("Sheet1").Range("A1").Value = 3.14159
這個範例會在 Sheet1 的 A1 儲存格中建立公式。
Worksheets("Sheet1").Range("A1").Formula = "=10*RAND()"
此範例會在 Sheet1 上的儲存格 A1:D10 執行迴圈。 如果其中有一個儲存格的值小於 0.001,這段程式碼將用 0 (零) 來取代該值。
For Each c in Worksheets("Sheet1").Range("A1:D10")
If c.Value < .001 Then
c.Value = 0
End If
Next c
本範例會在名為 TestRange 的範圍上執行迴圈,並顯示範圍中的空白儲存格數目。
numBlanks = 0
For Each c In Range("TestRange")
If c.Value = "" Then
numBlanks = numBlanks + 1
End If
Next c
MsgBox "There are " & numBlanks & " empty cells in this range"
這個範例會將 Sheet1 中 A1:C5 儲存格的字型樣式設定為斜體。 在這個範例中,會使用 Range 屬性的語法 2。
Worksheets("Sheet1").Range(Cells(1, 1), Cells(5, 3)). _
Font.Italic = True
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。