EXCEL

 

Aprendendo

Códigos

Lista de Discussão

Samples

 

Email

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Representa uma célula, uma linha, uma coluna, uma seleção de células contendo um ou mais blocos contíguos de células ou um intervalo 3-D.


Propriedade Range

Use Range(argumento), onde argumento nomeia o intervalo, para retornar um objeto Range representando uma única célula ou um intervalo de células. O exemplo seguinte coloca o valor da célula A1 na célula A5.

Worksheets("Plan1").Range("A5").Value = Worksheets("Plan1").Range("A1").Value

 

O exemplo seguinte limpa o conteúdo do intervalo chamado "Critérios".
Worksheets(1).Range("critérios").ClearContents

 

Este exemplo define o valor da célula A1 de Planilha1 com 3,14159.
Worksheets("Planilha1").Range("A1").Value = 3.14159

 

Este exemplo faz um loop pelas células se A1:D10 de Planilha1. Se uma das células tiver um valor menor que 0.001, o código substituirá esse valor por 0 (zero).

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

 

Este exemplo repete o intervalo nomeado "IntervaloDeTeste" e exibe o número de células vazias do intervalo.

númVazias = 0
For Each c In Range("IntervaloDeTeste")
If c.Value = "" Then
númVazias = númVazias + 1
End If
Next c
MsgBox "Existem " & númVazias & " células vazias neste intervalo"

 

Este exemplo define o estilo da fonte nas células A1:C5 de Planilha1 como itálico. O exemplo usa a Sintaxe 2 da propriedade Range.

Worksheets("Planilha1").Range(Cells(1, 1), Cells(5, 3)).Font.Italic = True

 

Propriedade Cells

Use Cells(linha, coluna) onde linha é o índice da linha e coluna é o índice da coluna, para retornar uma única célula. O exemplo seguinte define o valor da célula A1 como 24.

Worksheets(1).Cells(1, 1).Value = 24

 

O exemplo seguinte define a fórmula para a célula A2.

ActiveSheet.Cells(2, 1).Formula = "=sum(b1:b5)"

 

Propriedade Offset

Use Offset(linha, coluna), onde linha e coluna são os deslocamentos de linha e coluna, para retornar um intervalo em um deslocamento especificado de um outro intervalo. O exemplo seguinte seleciona a célula três linhas abaixo e uma coluna à esquerda da célula do canto superior esquerdo da seleção atual. Você não pode selecionar uma célula que não esteja na planilha ativa, portanto, você precisa ativar primeiro a planilha.

Worksheets("plan1").Activate 'não é possível selecionar, a menos que a planilha esteja ativa
Selection.Offset(3, 1).Range("a1").Select

 

Método Union

Use Union(intervalo1, intervalo2, ...) para retornar intervalos de várias áreas ¾ isto é, intervalos compostos de dois ou mais blocos contíguos de células. O exemplo seguinte cria um objeto definido como a união de intervalos A1:B2 e C3:D4 e, em seguida, seleciona o intervalo definido.

Dim i1 As Range, i2 As Range, meuIntervVáriasÁreas As Range
Worksheets("plan1").Activate
Set i1 = Range("A1:B2")
Set i2 = Range("C3:D4")
Set meuIntervVáriasÁreas = Union(i1, i2)
meuIntervVáriasÁreas.Select

 


Dúvida e sugestões ,mande email para guilhermecampos@terra.com.br

 

 

 

 

 

 

 

 

setstats 1 setstats 1