Propriedade Range.Value (Excel)

Retorna ou define um valor Variant que representa o valor do intervalo especificado.

Sintaxe

expressão. Valor (RangeValueDataType)

expressão Uma variável que representa um objeto de Intervalo.

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
RangeValueDataType Opcional Variant O tipo de dados do valor do intervalo. Pode ser uma constante XlRangeValueDataType .

Comentários

Ao definir o intervalo de células com o conteúdo de um arquivo de planilha XML, são usados apenas os valores da primeira planilha da pasta de trabalho. Você não pode definir ou obter um intervalo de células não contíguo no formato de planilha XML.

O membro padrão do Range encaminha chamadas sem parâmetros para Value. Assim, someRange = someOtherRange é equivalente a someRange.Value = someOtherRange.Value.

Para intervalos cuja primeira área contém mais de uma célula, Value retorna uma Variant que contém uma matriz bidimensional dos valores nas células individuais do primeiro intervalo.

Atribuir uma matriz de 2 centavos à propriedade Value copiará os valores para o intervalo em uma operação. Se o intervalo de destino for maior que a matriz, as células restantes receberão um valor de erro.

A atribuição de uma matriz a um intervalo de várias áreas não tem suporte adequado e deve ser evitada.

Exemplo

Este exemplo define o valor da célula A1 na Planilha1 da pasta de trabalho ativa como 3.14159.

Worksheets("Sheet1").Range("A1").Value = 3.14159

Este exemplo faz loops nas células A1:D10 na Planilha1 da pasta de trabalho ativa. Se uma das células tiver um valor inferior a 0,001, o código substituirá o valor por 0 (zero).

For Each cell in Worksheets("Sheet1").Range("A1:D10") 
   If cell.Value < .001 Then 
      cell.Value = 0 
   End If 
Next cell

Este exemplo faz loops sobre os valores no intervalo A1:CC5000 na Planilha1. Se um dos valores for menor que 0,001, o código substituirá o valor por 0 (zero). Por fim, ele copia os valores para o intervalo original.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.