locked
celular - mudar a cor quando clicar RRS feed

  • Pergunta

  • Ola pessoal
    tenho uma planilha, e queria saber se é possivel fazer com que ao clicar na celular, ela muda a cor de fundo por exemplo, e ao sair da celula, ela volte a formatacao original
    é possivel fazer isso?
    se sim, eu tenho como usar os estilos ao definir como vai ficar essa celula?

    acho que é so

    abs
    T+
    quinta-feira, 4 de setembro de 2008 13:17

Respostas

  • Você teria de mudar apenas o evento para funcionar em todas as planilhas.... E fazer uns ajustes para gravar a cor também..

    Code Snippet

    Dim endereco$, Cor As Double

    Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
        If endereco <> "" Then
            Range(endereco).Interior.ColorIndex = Cor
        End If
        Cor = ActiveCell.Interior.ColorIndex
        If ActiveCell.Address <> endereco Then
            ActiveCell.Interior.Color = vbGreen
        End If

        endereco = ActiveCell.Address

    End Sub

     

     

    Se o usuário desabilitar macros este evento não funcionará..

     

    Tabela de ColorIndex...o index 0=Branco...index 1=preto.....

    [Color 0] [Color 0]   [Color 15] [Color 15]   [Color 30] [Color 30]   [Color 45] [Color 45]
    [Color 1] [Color 1]   [Color 16] [Color 16]   [Color 31] [Color 31]   [Color 46] [Color 46]
    [Color 2] [Color 2]   [Color 17] [Color 17]   [Color 32] [Color 32]   [Color 47] [Color 47]
    [Color 3] [Color 3]   [Color 18] [Color 18]   [Color 33] [Color 33]   [Color 48] [Color 48]
    [Color 4] [Color 4]   [Color 19] [Color 19]   [Color 34] [Color 34]   [Color 49] [Color 49]
    [Color 5] [Color 5]   [Color 20] [Color 20]   [Color 35] [Color 35]   [Color 50] [Color 50]
    [Color 6] [Color 6]   [Color 21] [Color 21]   [Color 36] [Color 36]   [Color 51] [Color 51]
    [Color 7] [Color 7]   [Color 22] [Color 22]   [Color 37] [Color 37]   [Color 52] [Color 52]
    [Color 8] [Color 8]   [Color 23] [Color 23]   [Color 38] [Color 38]   [Color 53] [Color 53]
    [Color 9] [Color 9]   [Color 24] [Color 24]   [Color 39] [Color 39]   [Color 54] [Color 54]
    [Color 10] [Color 10]   [Color 25] [Color 25]   [Color 40] [Color 40]   [Color 55] [Color 55]
    [Color 11] [Color 11]   [Color 26] [Color 26]   [Color 41] [Color 41]   [Color 56] [Color 56]
    [Color 12] [Color 12]   [Color 27] [Color 27]   [Color 42] [Color 42]      
    [Color 13] [Color 13]   [Color 28] [Color 28]   [Color 43] [Color 43]      
    [Color 14] [Color 14]   [Color 29] [Color 29]   [Color 44] [Color 44]      

    Neste link tem mais coisas sobre cores...

    http://www.mvps.org/dmcritchie/excel/colors.htm 

     

     

    sexta-feira, 5 de setembro de 2008 16:57

Todas as Respostas

  •  

    Olá...Coloque o código na sua planilha..

     

     

    Code Snippet

    Dim endereco$

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If ActiveCell.Address <> endereco Then
             ActiveCell.Interior.Color = vbYellow 'amarelo
             If endereco <> "" Then
                Range(endereco).Interior.ColorIndex = xlNone
             End If         
        End If
        endereco = ActiveCell.Address
    End Sub

     

     

    Até...

    sexta-feira, 5 de setembro de 2008 11:46
  • blz
    funcionou, mas so uma pergunta besta
    eu adicionei no "Esta_Pasta_trabalho", mas nao funcionou, mas acidionando o código em cada planilha, ai sim, funciona

    fora isso, blz, funcinou certinho

    perguntas!
    1-onde eu tenho que acidionar o código para que ela funcione em todas as planilhas?
    2-onde eu consigo a relacao de todas as cores
    3-tem como eu definir a cor via codigo, tipo no HTML( #CCCCCC) por exemplo
    4-colocando esse código eu tenho que ter as macros habilitadas para funcionar certo?
    e nos casos em que o usuario desabilitar as macros, a planilha funciona "normal" a nao ser por essa funcionalidade que adicionei?
    5-meio que um bug, se a celula ja tiver uma cor de fundo, ao sair, ele deixa em branco, como eu pergunto qual a cor pra que na hora de eu sair, eu volte a cor original
    6-eu posso ao invez de definir cores, usar estilos(eles ja estao criados no excel)

    abs
    e obrigado

    sexta-feira, 5 de setembro de 2008 13:44
  • Você teria de mudar apenas o evento para funcionar em todas as planilhas.... E fazer uns ajustes para gravar a cor também..

    Code Snippet

    Dim endereco$, Cor As Double

    Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
        If endereco <> "" Then
            Range(endereco).Interior.ColorIndex = Cor
        End If
        Cor = ActiveCell.Interior.ColorIndex
        If ActiveCell.Address <> endereco Then
            ActiveCell.Interior.Color = vbGreen
        End If

        endereco = ActiveCell.Address

    End Sub

     

     

    Se o usuário desabilitar macros este evento não funcionará..

     

    Tabela de ColorIndex...o index 0=Branco...index 1=preto.....

    [Color 0] [Color 0]   [Color 15] [Color 15]   [Color 30] [Color 30]   [Color 45] [Color 45]
    [Color 1] [Color 1]   [Color 16] [Color 16]   [Color 31] [Color 31]   [Color 46] [Color 46]
    [Color 2] [Color 2]   [Color 17] [Color 17]   [Color 32] [Color 32]   [Color 47] [Color 47]
    [Color 3] [Color 3]   [Color 18] [Color 18]   [Color 33] [Color 33]   [Color 48] [Color 48]
    [Color 4] [Color 4]   [Color 19] [Color 19]   [Color 34] [Color 34]   [Color 49] [Color 49]
    [Color 5] [Color 5]   [Color 20] [Color 20]   [Color 35] [Color 35]   [Color 50] [Color 50]
    [Color 6] [Color 6]   [Color 21] [Color 21]   [Color 36] [Color 36]   [Color 51] [Color 51]
    [Color 7] [Color 7]   [Color 22] [Color 22]   [Color 37] [Color 37]   [Color 52] [Color 52]
    [Color 8] [Color 8]   [Color 23] [Color 23]   [Color 38] [Color 38]   [Color 53] [Color 53]
    [Color 9] [Color 9]   [Color 24] [Color 24]   [Color 39] [Color 39]   [Color 54] [Color 54]
    [Color 10] [Color 10]   [Color 25] [Color 25]   [Color 40] [Color 40]   [Color 55] [Color 55]
    [Color 11] [Color 11]   [Color 26] [Color 26]   [Color 41] [Color 41]   [Color 56] [Color 56]
    [Color 12] [Color 12]   [Color 27] [Color 27]   [Color 42] [Color 42]      
    [Color 13] [Color 13]   [Color 28] [Color 28]   [Color 43] [Color 43]      
    [Color 14] [Color 14]   [Color 29] [Color 29]   [Color 44] [Color 44]      

    Neste link tem mais coisas sobre cores...

    http://www.mvps.org/dmcritchie/excel/colors.htm 

     

     

    sexta-feira, 5 de setembro de 2008 16:57