| Descricao: |
 Escola Saberexcel VBA Estudos e Treinamentos com Macros Fórmulas e Funções
O CRITÉRIO USADO É O NÚMERO 1 'UM'
O macro verifica as quatro colunas como você pode observar,por exemplo verifica se existe o número (1) , poderia ser qualquer número ou palavra.
Um contador com a instrução (For ..Next) entra na coluna(B) verifica se existe o número (1), desloca uma coluna à direita e insere a cor vermelho se o valor for igual a 1 também. na realização do teste o que for diferente de (1) não será verificado e não será inserido a formatação vermelho.
Se voce é aprendiz de VBA ou está iniciando, depois de dominar bem todo vocabulário do vb, as propriedades dos objetos e com seus métodos e eventos, é de extrema importância aprender tudo sobre as instruções LOOP (\While...Wend \Do...While...Loop \Do...Loop...While\ Do...until..Loop \ Do...Loop...unti l \ For...Next \For...Each...next ) e também sobre a propriedade DESLOC(offset) e finalmente praticar bastante, pois não há outro caminho para o aprendizado a não ser centenas e até milhares de horas praticando com macros e observando resultados, pois qualquer linguagem de programação é um universidade de dados, cálculos e lógica.
Aprender a programar e desenvolver é algo fascinante, nosso objetivo é oferecer aos nossos alunos material didático para prática com excelente qualidade e baixo custo. Ser um programado/desenvolvedor precisa de esforço, tenacidade, criatividade, atenção e muita determinação, a lógica vai acontecendo com a prática.
Desejo-lhes todo o bem
Fique com Deus, paz, saúde, hamonia e alegria de viver.
Expedito Marcondes
Escola Saberexcel VBA Estudos® - Treinamento com Macros, Fórmulas e Funções
Laila , minha aluna querida.
veja bem ao inserir cores, poderiamos fazer mil ações.
deletar planilha, deletar células, deletar linhas, deletar colunas, inserir, copiar, apagar, substituir, deslocar, formatar, adicionar, somar, dividir, et.......
é só usar a criatividade, veja que nesse momento, voce poderá relacionar uma lista enorme de ações que poderiamos fazer ao retornar critério "(true= verdadeiro)" a ação instrução loop. não é mesmo? Fique com Deus. Expedito Marcondes
Sub Inserir_cores_celula_determinada()
Dim vContador As Long
Dim UltimaLinha As Long
Dim vPrimeiraLinha As Long
Dim UltimaColuna As Long
Dim vPrimeiraColuna As Long
Dim vArea As Long
[B2:E22].ClearFormats 'limpando os formatos para o procedimento entrar com novas formatações.
'formatando a area depois do clearformats
[B2:E22].Borders.LineStyle = xlHairline 'xlThick
[B2:E22].Font.Size = 8
[B2:E22].Font.Name = "Consolas"
[B2:C22].Interior.ColorIndex = 35
[D2:E22].Interior.ColorIndex = 36
'localizando linhas e colunas
UltimaLinha = Range("A1000000").End(xlUp).Row 'Procura pela última linha
UltimaColuna = Range("XFD4").End(xlToLeft).Column 'determina última coluna utilizada
vContador = 0 'Contador linhas
vPrimeiraLinha = 4 'Primeira linha dados desejado
'instrução For Next com Select Case para identificar as células com o critério desejado (neste caso o número.1)
For vArea = vPrimeiraLinha To UltimaLinha
For vPrimeiraColuna = 3 To UltimaColuna Step 2 'escolha proxima D coluna
Select Case Cells(vArea, vPrimeiraColuna - 1).Value 'verifica a entrada da coluna anterior
Case 1
If Cells(vArea, vPrimeiraColuna).Value = 1 Then 'verifica se o valor é igual a 1
Cells(vArea, vPrimeiraColuna).Interior.Color = RGB(254, 0, 0) 'define a cor do interior da célula localizada
vContador = vContador + 1 'incrementa o contador da célula encontrada
End If
Case 0 'caso for zero não faça nada (end select)
End Select
Next vPrimeiraColuna
Next vArea
MsgBox "verificação concluida colorida " & vContador & " casos ", vbInformation, "Escola Saberexcel VBA Estudos®"
[G7].Value = "Foram verificados [ " & vContador & " ] casos em que ocorreram o critério(1) e correspondencia"
End Sub
'retorna o número da ultima coluna usada
'observe que usei esse código no macro acima para identificar a coluna desejada,
'não deixe de ver nosso trabalho sobre a propriedade desloc(offset (linhas, células e colunas))
Sub treinamento_saberexcel_ultima_coluna()
UltimaColuna = Range("XFD4").End(xlToLeft).Column
MsgBox UltimaColuna
End Sub
'macro apenas para treinamento localiza ultima linha também usada também no macro acima
'não deixe de ver nosso trabalho sobre a propriedade desloc(offset (linhas, células e colunas))
Sub treinamento_saberexcel_ultima_linha()
UltimaLinha = Range("A1000000").End(xlUp).Row
MsgBox UltimaLinha
End Sub
'macro apenas para treinamento insere bordas, usada também no macro acima
Sub treina_saberexcel_bordas()
Range("A1:G17").Borders.LineStyle = xlThick 'xlContinuous
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.
|