Range.Value 屬性 (Excel)
會傳回或設定 Variant 值,代表指定之範圍的值。
運算式。RangeValueDataType (值)
expression 代表 Range 物件的變數。
名稱 | 必要/選用 | 資料類型 | 描述 |
---|---|---|---|
RangeValueDataType | 選用 | Variant | 範圍值的資料類型。 可以是 XlRangeValueDataType 常 數。 |
當設定 XML 試算表檔案內容的某一儲存格範圍,僅使用活頁簿第一張工作表上的值。 您無法設定或取得 XML 試算表格式中不連續的儲存格範圍。
Range的預設成員會將不含參數的呼叫轉送至Value。 因此, someRange = someOtherRange
相當於 someRange.Value = someOtherRange.Value
。
對於第一個區域包含一個以上儲存格的範圍, Value 會傳回 Variant ,其中包含第一個範圍中個別儲存格中值的 2 維陣列。
將 2 暗陣列指派給 Value 屬性,將會在一項作業中將值複製到範圍。 如果目標範圍大於陣列,剩餘的儲存格將會收到錯誤值。
不正確支援將陣列指派給多區域範圍,因此應避免。
本範例會將使用中活頁簿 Sheet1 上儲存格 A1 的值設定為 3.14159。
Worksheets("Sheet1").Range("A1").Value = 3.14159
本範例會在使用中活頁簿 Sheet1 的儲存格 A1:D10 上迴圈。 如果其中一個儲存格的值小於 0.001,則程式碼會將值取代為 0 (零) 。
For Each cell in Worksheets("Sheet1").Range("A1:D10")
If cell.Value < .001 Then
cell.Value = 0
End If
Next cell
本範例會迴圈查看 Sheet1 上範圍 A1:CC5000 中的值。 如果其中一個值小於 0.001,程式碼會將值取代為 0 (零) 。 最後,它會將值複製到原始範圍。
Public Sub TruncateSmallValuesInDataArea()
Dim dataArea As Excel.Range
Set dataArea = ThisworkBook.Worksheets("Sheet1").Range("A1:CC5000")
Dim valuesArray() As Variant
valuesArray = dataArea.Value
Dim rowIndex As Long
Dim columnIndex As Long
For rowIndex = LBound(valuesArray, 1) To UBound(valuesArray, 1)
For columnIndex = LBound(valuesArray, 2) To UBound(valuesArray, 2)
If valuesArray(rowIndex, columnIndex) < 0.001 Then
valuesArray(rowIndex, columnIndex) = 0
End If
Next
Next
dataArea.Value = valuesArray
End Sub
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。