Excel VBA - Cores

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    Excel planilha cores formatos limpa duplo click Excel planilha cores formatos limpa duplo click

    popular!
    Adicionado em: 04/06/2011
    Modificado em: 04/06/2011
    Tamanho: 61.32 KB
    Downloads: 773

    Saberexcel - o site de quem precisa Aprender Macros Microsoft Excel VBA

    Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere cor em determinas células nas colunas especificas (B:D), retiram a formação ao dupoclick, como também retira a formatação da células na folha de planilhas nestas colunas específicas.
    Veja bem aqui esta como duplo clique, mas você poderá fazer a formatação com condição, se determinado valor de determinada células em uma folha de planilha for igual a 1,20, 494, etc.. , baixe o exemplo de planilha no final da página... Fiquem com Deus, Expedito Marcondes.

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column >= 2 And Target.Column <= 4 Then 'eu penso que se o aluno memorizar determinados códigos facilita o aprendizado.
    If Target.Interior.ColorIndex = xlNone Then
    Range(Cells(Target.Row, 2), Cells(Target.Row, 4)).Interior.ColorIndex = 3 'xlNone - corresponde a nada.(branco)
    ' If Target.Interior.Color = Cells(2, Target.Column).Interior.ColorIndex = 3 Then
    ' Target.Interior.Color = Cells(2, Target.Column).Interior.ColorIndex = 4 'Then
    ' End If
    Else
    Range(Cells(Target.Row, 2), Cells(Target.Row, 4)).Interior.ColorIndex = xlNone
    End If
    End If
    Cancel = True
    End Sub




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





    Baixe o exemplo de planilha contendo procedimento acima



    Publicidade
    Compre com segurança, garantia e ótimos preços
    Eletrônicos - Submarino.com.br

    Excel planilha vba cores aleatorias frase Excel planilha vba cores aleatorias frase

    popular!
    Adicionado em: 22/04/2011
    Modificado em: 22/04/2011
    Tamanho: 72.45 KB
    Downloads: 597

    Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA.

    Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere cores aleatórias em todas as palavras contidas em determinadas células,
    neste caso específico insere em uma célula(H3) uma condição IF, para que voce possa testar e entender melhor o exemplo, por exemplo se o valor da célula [H3] for igual a "cores", o macro irá inserir cores no interior da célula e também cores aleatórias em cada palavra da célula a cada execução da macro, caso escolha o valor da célula "branco", então não vai inserir cores no interior da célula, somente cores aleatórias em todas as palavras contidas na frase na célula A1. Por exemplo a frase ficaria assim, com cores aleatórias a cada execução do macro.

      A B
    1 Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel  
    2    


    Espero que gostem do exemplo, Fique com Deus, Expedito Marcondes.
    Esta planiha faz parte do MODULO COMO FAZER - Programação Microsoft Excel VBA_V
    ( há alguns exemplos dos módulos COMO FAZER Programação MS Excel VBA, como demonstração) - São muito bons.


    Public Sub cores_aleatorias_frase()
    Dim vRange As Range
    Dim vCorInterior As Integer
    Dim sbArray
    Dim i As Long, vTemp As Long

    'Todas as palavras de uma célula com a cor da fonte aleatória


    Set vRange = Saber1.Range("A1")

    If vRange.Value = "" Then
    MsgBox "Não há nenhum texto na célula", vbInformation, "Saberexcel - site das macros"
    Exit Sub
    End If

    sbArray = Split(vRange.Value)
    Randomize
    '[A1].Select
    For i = 0 To UBound(sbArray)
    vCorInterior = Int((56 * Rnd) + 1)
    vRange.Characters(Start:=vTemp + i, Length:=Len(vRange)).Font.ColorIndex = vCorInterior

    '(condição IF) somente para ilustrar o teste mudar a cor de fundo do intervalo de células
    If [H3].Value = "cores" Then
    [A1:J1].Interior.ColorIndex = vCorInterior
    [H5].Value = "H3 = palavra 'cores' Mudará as cores da fonte de cada letra da frase e interior da célula"
    [H5].Font.ColorIndex = 11
    Else
    [A1:J1].Interior.ColorIndex = xlNone
    [H5].Value = "H3 = palavra 'branco' Mudará apenas as cores da fonte de cada letra da frase"
    [H5].Font.ColorIndex = 7
    End If

    vTemp = vTemp + Len(sbArray(i))

    Next i

    Set vRange = Nothing
    Erase sbArray
    End Sub


    Essas macros abaixo são apenas auxiliar para o teste, para facilitar, mas uso muito em aplicações em programas acho de boa utilidade.
    Sub visualizar_macros_vbe()
    Dim Resposta As String

    Resposta = MsgBox("Deseja visualizar as macros no módulo VBE?", vbYesNo, "Saberexcel - o site das macros")
    If Resposta = 6 Then ' 6 é igual a vbyes
    Application.Goto reference:="cores_aleatorias_frase"
    Else
    Saber1.Shapes("sb").Visible = True
    End If
    End Sub

    Sub oc()
    Saber1.Shapes("sb").Visible = False
    End Sub





    Aprenda tudo sobre planilhas do 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
    Eletrônicos - Submarino.com.br

    Excel planilha vba cores duplo click colunas Excel planilha vba cores duplo click colunas

    popular!
    Adicionado em: 03/06/2011
    Modificado em: 03/06/2011
    Tamanho: 65.66 KB
    Downloads: 667

    Saberexcel - o site de quem precisa Aprender Macros Microsoft Excel VBA

    E
    sse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere determinada cor em determinada coluna ao dar um duplo clique na célula, insere a letra 'x' com cor determinante, ao clicar novamente na célula formatada, que poderá ser um status, limpa novamente a cor e o 'x' inserido.

    Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range, Cancel As Boolean)

    If Target.Column = 2 Then
    If Cells(Target.Row, 2).Interior.ColorIndex <> 3 Then
    Cells(Target.Row, 2).Interior.ColorIndex = 3
    Cells(Target.Row, 2).Value = "x"
    Else
    Cells(Target.Row, 2).Interior.ColorIndex = 2
    Cells(Target.Row, 2).Value = ""
    End If
    End If

    If Target.Column = 3 Then
    If Cells(Target.Row, 3).Interior.ColorIndex <> 6 Then
    Cells(Target.Row, 3).Interior.ColorIndex = 6
    Cells(Target.Row, 3).Value = "x"
    Else
    Cells(Target.Row, 3).Interior.ColorIndex = 2
    Cells(Target.Row, 3).Value = ""
    End If
    End If

    If Target.Column = 4 Then
    If Cells(Target.Row, 4).Interior.ColorIndex <> 4 Then
    Cells(Target.Row, 4).Interior.ColorIndex = 4
    Cells(Target.Row, 4).Value = "x"
    Else
    Cells(Target.Row, 4).Interior.ColorIndex = 2
    Cells(Target.Row, 4).Value = ""
    End If
    End If

    End Sub




    Aprenda tudo sobre planilhas do 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
    Eletrônicos - Submarino.com.br

    Excel planilha vba cores fc cores e numeros Excel planilha vba cores fc cores e numeros

    popular!
    Adicionado em: 20/05/2011
    Modificado em: 20/05/2011
    Tamanho: 78.71 KB
    Downloads: 602

    Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA

    Esses macros e procedimentos do Aplicativo Microsoft Excel VBA, inserem cores personalizadas, em intervalos de células
    determinados na folha de planilha dependendo da condição, neste caso optamos pela palavra' OK' (Maiúsculo)
    '................................................'
    os macros abaixo inseridos no procedimento com o EventoChange na folha de planilha, ocorre ao digitar em determinado range na folha de planilha.

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim sb As Range
    For Each sb In ActiveSheet.Range("A1:J20")
    If sb = "" Then 'poderia usar essa condição, se celula estiver em branco, retira formatação(0)
    'If sb <> "OK" Then
    sb.Interior.ColorIndex = 0
    ElseIf sb = "OK" Then
    sb.Interior.ColorIndex = 6
    End If
    Next
    End Sub
    '................................................'

    Sub FC_formatacao_condicional_celulas(Target)
    Dim sb As Range
    'If sb = "" then 'poderia usar essa condição, se celula estiver em branco, retira formatação(0)
    For Each sb In ActiveSheet.Range("A1:J20")
    If sb = "" Then
    sb.Interior.ColorIndex = 0
    sb.Font.ColorIndex = 0
    ElseIf sb = "OK" Then
    sb.Interior.ColorIndex = 20
    sb.Font.ColorIndex = 9
    End If
    Next
    End Sub

    Sub FC_Cores_rotina()
    Call FC_formatacao_condicional_celulas("A1:J20")
    End Sub

    Sub Mostrar_cores_numeros()
    Saber2.Select
    limpar_teste
    For c = 1 To 56
    Cells(c, 1).Value = c
    'número das repectivas cores na coluna(1)
    Cells(c, 2).Interior.ColorIndex = c 'cores com seus respectivos números.
    Next c
    Cells.Font.Size = 8
    End Sub

    Sub Mostrar_cores_numeros_I()
    Saber2.Select
    limpar_teste
    For i = 1 To 56
    For Each c In Range("A1:A56").Cells
    c.Interior.ColorIndex = i
    c.Offset(0, 1).Value = "COR VBA CÓDIGO: " & i
    i = i + 1
    Next
    Next
    Cells.Font.Size = 8
    End Sub

    Sub limpar_teste()
    If ActiveSheet.Name = "Auxiliar" Then
    Saber2.[A1:C100].Clear
    Cells.Font.Size = 8
    Exit Sub
    Else
    Saber2.[A1:C100].Clear
    MsgBox ("Fomatação na planilha Auxiliar deletadas com sucesso!"), vbInformation, "Saberexcel - o site dos Macros"
    'caso tiver em outra planilha
    Cells.Font.Size = 8
    End If
    End Sub



    Aprenda tudo sobre planilhas do 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
    Eletrônicos - Submarino.com.br

    Excel planilha vba cores fonte e interior case Excel planilha vba cores fonte e interior case

    popular!
    Adicionado em: 05/05/2011
    Modificado em: 05/05/2011
    Tamanho: 68.65 KB
    Downloads: 842

    Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA.

    Este macro do Aplicativo Micrososoft Excel VBA(Visual Basic Application), insere cores no interior e fonte das células na coluna (O), dependendo da letra nas células, observe que estamos usando uma instrução Case para realização do teste, No macro foram usados somente (4) quatro letras, A, B, C e D, para cada letra inserida, foi estipulado uma cor de fundo da célula e também uma fonte diferente. Veja também que usei o mesmo Loop For next, usado na instrução case para localizar as células na coluna desejada, para retirar a formatação, isso para ajudar na realização do teste, porque senão a cada execução do macro voce teria que apagar os formatos de células.

    Sub Colorir_fonte_interior_letra()
    For N = 1 To Range("O65536").End(xlUp).Row

    Select Case Range("O" & N)
    Case "A"
    Range("O" & N).Interior.ColorIndex = 3
    Range("O" & N).Font.ColorIndex = 1

    Case "B"
    Range("O" & N).Interior.ColorIndex = 4
    Range("O" & N).Font.ColorIndex = 2

    Case "C"
    Range("O" & N).Interior.ColorIndex = 5
    Range("O" & N).Font.ColorIndex = 3

    Case "D"
    Range("O" & N).Interior.ColorIndex = 7
    Range("O" & N).Font.ColorIndex = 12

    Case Else
    Range("O" & N).Interior.ColorIndex = 6
    Range("O" & N).Font.ColorIndex = 4
    End Select

    Next N

    End Sub

    Para ajudá-los com a criatividade com macros vamos usar o mesmo Loop acima para mudar a formatação, para nos auxliar com o teste.
    observe que o loop verificará todos as células com cores do interior das estiverem com cores diferentes de 02(branco) , insere a cor branco no interior das células, aqui poderiamos usar um clearformats em todas as células usadas , seria também outra alternativa usando o Loop For next.

    Sub limpar_formatacao_teste()
    For N = 1 To Range("O65536").End(xlUp).Row
    If Range("O" & N).Interior.ColorIndex <> 1 Then
    Range("O" & N).Interior.ColorIndex = 1
    End If
    Next N
    End Sub


    Aprenda tudo sobre planilhas do 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

    Eletrônicos - Submarino.com.br

    Página 1 de 3

    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