Home Excel - Dicas Microsoft Excel VBA Excel VBA - Celulas Excel planilha vba celulas propriedade cells dados planilha sb

Excel planilha vba celulas propriedade cells dados planilha sb

E-mail Imprimir PDF

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.

Referência sobre o desenvolvedor do Excel

Range.Propriedade Cells

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.

Visual Basic for Applications

Worksheets("Sheet1").Activate

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

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.

Visual Basic for Applications

Set r = Range("myRange")
For n = 1 To r.Rows.Count
If r.Cells(n, 1) = r.Cells(n + 1, 1) Then
MsgBox "Duplicate data in " & r.Cells(n + 1, 1).Address
End If
Next n

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
Informática - Submarino.com.br

Última atualização em Qua, 10 de Agosto de 2011 08:17  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje4904
mod_vvisit_counterOntem5059
mod_vvisit_counterEsta Semana19951
mod_vvisit_counterSemana passada30982
mod_vvisit_counterEsse mês38139
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10460968
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

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


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA