Propriedade Application.Range (Excel)
Retorna um objeto Range que representa uma célula ou um intervalo de células.
Sintaxe
expressão. Intervalo (Cell1, Cell2)
expressão Uma variável que representa um Aplicativo objeto.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Cell1 | Obrigatório | Variant | O nome do intervalo. Deve ser uma referência ao estilo A1 na linguagem da macro. Pode incluir o operador do intervalo (dois pontos), o operador de interseção (um espaço) ou o operador de união (uma vírgula). Também pode incluir sinais de dólar, mas eles são ignorados. Use um nome definido local em qualquer parte do intervalo. Se você usar um nome, será considerado que o nome estará na linguagem da macro. |
| Cell2 | Opcional | Variant | A célula no canto superior esquerdo ou no canto inferior direito do intervalo. Pode ser um objeto Range que contém uma única célula, uma coluna inteira ou uma linha inteira, ou pode ser uma cadeia de caracteres que nomeia uma única célula na linguagem da macro. |
Comentários
Quando usado sem um qualificador de objeto, essa propriedade é um atalho para ActiveSheet.Range (retorna um intervalo da planilha ativa; se a folha ativa não for uma planilha, a propriedade falhará).
Quando aplicada a um objeto Range, a propriedade é relativa ao objeto Range. Por exemplo, se a seleção é a célula C3, Selection.Range("B1") retorna a célula D3, porque é relativa ao objeto Range retornado pela propriedade Selection. Por outro lado, o código ActiveSheet.Range("B1") sempre retorna a célula B1.
Exemplo
Este exemplo define o valor da célula A1 de Sheet1 como 3,14159.
Worksheets("Sheet1").Range("A1").Value = 3.14159
Este exemplo cria uma fórmula na célula A1 na Planilha1.
Worksheets("Sheet1").Range("A1").Formula = "=10*RAND()"
Este exemplo cria um loop nas células A1:D10 na Planilha1. Se uma das células tiver um valor menor do que 0,001, o código substituirá esse valor por 0 (zero).
For Each c in Worksheets("Sheet1").Range("A1:D10")
If c.Value < .001 Then
c.Value = 0
End If
Next c
Este exemplo faz loops no intervalo chamado TestRange e exibe o número de células vazias no intervalo.
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"
Este exemplo define o estilo de fonte nas células A1:C5 na Planilha1 como itálico. O exemplo usa a Sintaxe 2 da propriedade Range.
Worksheets("Sheet1").Range(Cells(1, 1), Cells(5, 3)). _
Font.Italic = True
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.