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

PROMOÇÃO DIDÁTICOS SABEREXCEL



Adquira já o Acesso Imediato
à Area de Membros

Compra Grantida --- Entrega Imediata

Aprenda Excel VBA com Simplicidade de 
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.

'-------------------------------------'
Entrega Imediata:
+  500 Video Aulas MS Excel VBA
+  35.000 Planilhas Excel e VBA
+  Coleção 25.000 Macros MS Excel VBA
+  141 Planilhas Instruções Loops
+  341 Planilhas WorksheetFunctions(VBA)
+    04 Módulos Como Fazer Excel VBA
+  Curso Completo MS Excel VBA
+  Planilhas Inteligentes


Pesquisa Google SaberExcel

Publicidade Google

<script type="text/javascript"><!--

google_ad_client = "ca-pub-2317234650173689";

/* retangulo 336 x 280 */

google_ad_slot = "0315083363";

google_ad_width = 336;

google_ad_height = 280;

//-->

</script>

<script type="text/javascript"

src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

</script>

Publicidade

RSFirewallProtected


Google Associados

Depoimentos

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