SaberExcel - Aprenda Excel VBA, Site sobre macros, funções, fórmulas e planilhas do Excel VBA planilhas prontas e apostilas para download

Saberexcel - o site das macros

Macros do Aplicativo Microsoft Excel VBA, com a propriedade Cells, retorna um objeto Range que representa as células no intervalo específico
Baixe o exemplo de planilha no final da página.

Retorna um objeto Range que representa as células no intervalo especificado.
Sintaxe expressão.Cells
expressão Uma variável que representa um objeto Range.

Comentários
Como a propriedade Item é a propriedade padrão (propriedade padrão: uma propriedade que você pode definir para um controle a fim de que todos os novos controles desse tipo que sejam criados tenham essa propriedade com o mesmo valor.) para o objeto Range, você pode especificar o índice de linha e de coluna imediatamente após a palavra-chave Cells. Para obter mais informações, consulte a propriedade Item e os exemplos desse tópico.

O uso dessa propriedade sem um qualificador de objeto retorna um objeto Range que representa todas as células da planilha ativa.

Exemplo
Este exemplo define como itálico o estilo da fonte para as células A1:C5 de Sheet1.

Este exemplo examina uma coluna de dados chamada "myRange". Se uma célula tiver o mesmo valor que a célula imediatamente acima, o exemplo exibirá o endereço da célula que contém os dados duplicados.

Sub Selecionando_area_com_variável()
LinhaInicial = 5: LinhaFinal = 7
ColunaInicial = 2: ColunaFinal = 5
Range(Cells(LinhaInicial, ColunaInicial), Cells(LinhaFinal, ColunaFinal)).Select
End Sub

Esta macro seleciona e retorna dados para folha planilha para determinadas células
Sub Selecionando_area_com_varivel_2()
Linha = 3 + 1 ' veja que resultado é quatro, então linha(4)
Coluna = 2 - 1 ' resultado é hum, então Coluna(A)
Cells(Linha, Coluna).Select 'então estamos selecionando (A4)
ActiveCell.Value = "Aprenda Microsoft Excel VBA" 'celula(A4)
Cells(Linha, 1 + 1).Value = "Saberexcel" 'variável(Linha)= 4, coluna(1+1 = 2=(colunaB)) = "Saberexcel"
Cells(3 + Linha, Coluna).Value = "Site das macros" 'linha(3) + 4(linhas) da variavel = 7 então (A7)
End Sub

Sub Selecionar_celulas_propriedade_cells()
Cells(1, 1).Select 'corresponde a célula (a1)
End Sub

'Selecionando a célula pelo número de ordem, e a função Address retorna o
Sub Selecionar_celula_pelo_numero_ordem()
Cells(290).Select 'corresponde a célula(AH2)
MsgBox Cells(290).Address & " - Goto retorna para célula(A1)" 'msgbox retorna o endereço da célula
[A1].Value = Cells(290).Address
Application.GoTo Reference:=[A1], Scroll:=True 'rola a tela de volta para celula(A1)
End Sub

'esta macro formata todas as células fonte tamanho oito
Sub Celulas_fonte_tamanho_oito()
Cells.Font.Size = 8
End Sub

'esta macro formata todas as células fonte tamanho oito
Sub Celulas_fonte_tamanho_dez()
Cells.Font.Size = 10
End Sub

Sub limpar_teste()
[A1:B7].ClearContents
End Sub

Sub inserir_cor_fonte_range()
Range("Minha_Range").Font.ColorIndex = 1
End Sub

Sub verificando_duplicados_retorna_endereco()
Range("Minha_Range").Font.ColorIndex = 1
Set r = Range("Minha_Range")
For n = 1 To r.Rows.Count
If r.Cells(n, 1) = r.Cells(n + 1, 1) Then
MsgBox "Existe duplcados na célula [ " & r.Cells(n + 1, 1).Address & "] ítem : [ " & r.Cells(n + 1, 1).Value & " ]"
r.Cells(n + 1, 1).Font.ColorIndex = 3
End If
Next n
End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel





Publicidade
Compre com segurança, garantia e ótimos preços nas lojas subMarino