Excel VBA - Cores

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Ascendente ]

    vba cores selecionar nao preencher celula interior colorido vba cores selecionar nao preencher celula interior colorido

    popular!
    Adicionado em: 20/11/2010
    Modificado em: 20/11/2010
    Tamanho: Vazio
    Downloads: 645

    vba cores ordena cores baseado em célula vba cores ordena cores baseado em célula

    popular!
    Adicionado em: 20/11/2010
    Modificado em: 20/11/2010
    Tamanho: Vazio
    Downloads: 802

    Saberexcel - site das macros
    Essa macro do Aplicativo Microsoft Excel VBA, classifica cores baseando no nome da célula digitado em uma Inputbox(Entrada de Dados).

    2010-11-20
    Option Explicit

    Sub Classifica_cores()
    Dim vCelulaInicial As String
    Dim vCelulaFinal As String
    Dim rgClassifica As Range
    Dim rnCell As Range

    On Error GoTo ClasssificarCores_Err:

    Application.ScreenUpdating = False

    vCelulaInicial = InputBox("Entre com o nome Célula [A1:A11])" & _
    "Somente nesta área específica será classificada, " & _
    Chr(13) & "Ex A1", "Saberexcel - o site das macros")

    If vCelulaInicial <> "" Then
    vCelulaFinal = Range(vCelulaInicial).End(xlDown).Address
    Range(vCelulaInicial).EntireColumn.Insert
    Set rgClassifica = Range(vCelulaInicial, vCelulaFinal)
    For Each rnCell In rgClassifica
    rnCell.Value = _
    rnCell.Offset(0, 1).Interior.ColorIndex
    Next

    Range(vCelulaInicial).Sort Key1:=Range(vCelulaInicial), _
    Order1:=xlAscending, Header:=xlNo, _
    Orientation:=xlTopToBottom
    Range(vCelulaInicial).EntireColumn.Delete

    End If

    ClasssificarCores_Exit:
    Application.ScreenUpdating = True
    Set rgClassifica = Nothing
    Exit Sub

    ClasssificarCores_Err:
    MsgBox Err.Number & ": " & Err.Description, _
    vbOKOnly, "Erro ao ordenar cores"
    Resume ClasssificarCores_Exit

    End Sub


    Aplicativo
    Microsoft Excel VBA com SaberExcel



    Baixe o exemplo de planilha contendo a macro acima
    vba cores ordena cores baseada nome celula (34.02 KB 2010-09-20 07:36:29)



    Compre com segurança e garantia nas lojas SubMarino
    Cine & Foto - Submarino.com.br

    vba cores localiza proxima e anterior celula colorida vba cores localiza proxima e anterior celula colorida

    popular!
    Adicionado em: 17/02/2011
    Modificado em: 17/02/2011
    Tamanho: Vazio
    Downloads: 576

    Saberexcel - site das macros

    Essas macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), seleciona a próxima linha célula colorida, com interior colorido, irá selecionando na coluna desejada até atingir o limite da última linha, neste ponto voce poderá retroceder a seleção de células coloridas,
    pois, selecionará até o ponto inicial ou final e emitirá uma mensagem, alertando sobre o limite maximo atingido.
    Observe que o macro também insere cores na fonte.

    Option Explicit

    Sub Procurar_cores_abaixo()
    Dim vLinha As Long
    vLinha = Range("A65536").End(xlUp).Row
    If ActiveCell.Row >= vLinha Then
    MsgBox "Atingiu última linha.", vbInformation, "Saberexcel - site das macros"
    Exit Sub
    End If
    Do
    Selection.Offset(1, 0).Select
    ActiveCell.Offset(1, 0).Font.ColorIndex = 5
    Loop Until (ActiveCell.Interior.ColorIndex <> xlColorIndexNone And ActiveCell.Interior.ColorIndex <> 1) Or ActiveCell.Row = vLinha
    End Sub

    Sub Procurar_cores_acima()
    Dim vLinha As Long
    vLinha = 2
    If ActiveCell.Row <= vLinha Then
    MsgBox "Atingiu a primeira linha.", vbInformation, "Saberexcel - site das macros"
    Exit Sub
    End If

    Do
    Selection.Offset(-1, 0).Select
    ActiveCell.Offset(1, 0).Font.ColorIndex = 9
    Loop Until (ActiveCell.Interior.ColorIndex <> xlColorIndexNone And ActiveCell.Interior.ColorIndex <> 1) Or ActiveCell.Row = vLinha
    End Sub


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

    vba cores insere cores e codigos das cores na coluna a vba cores insere cores e codigos das cores na coluna a

    popular!
    Adicionado em: 20/11/2010
    Modificado em: 20/11/2010
    Tamanho: Vazio
    Downloads: 666
    CORES - MACRO INSERE CORES DO VBA E CODIGO NA COLUNA(A)

    Esta macro cores nas células(A1:A56) com os respectivos números códigos.
    na coluna a inseri as cores e coluna(B) os códigos referente as cores
    insira no módulo comum a macro abaixo que terá o resultado desejado!



    Sub cores_codigos()
    For i = 1 To 55
    For Each c In Range("A1:A56").Cells
    c.Interior.ColorIndex = i
    c.Offset(0, 1).Value = "VB CODIGO: " & i
    i = i + 1
    Next
    Next
    End Sub

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel

    PRODUTOS SABEREXCEL
    Coleção 15.000 Macros Microsoft Excel VBA
    DVD 14.000 Planilhas Exemplos Microsoft Excel VBA
    Curso Completo Microsoft Excel VBA
    DVD 3.000 Apostilas e Ebooks Microsoft Excel VBA e Excel Avançado
    COMO FAZER - Programação Microsoft Excel VBA (Vários Módulos)





     
    Compras com segurança na internet Lojas Submarino, milhares de ofertas

    Beleza & Saúde - Submarino.com.br

    vba cores fonte funcoes cores personalizadas vba cores fonte funcoes cores personalizadas

    popular!
    Adicionado em: 20/11/2010
    Modificado em: 20/11/2010
    Tamanho: Vazio
    Downloads: 534

    SaberExcel - o site das macros
    Este exemplo de Funções do Aplicativo Microsoft Excel VBA, filtra dados pela cor e Estilo da Fonte. (Cor e Negrito)
    ,
    Observe as Funções

    =Filtra_Txt_Cores(A2) =(as cores abaixo)

    Function Filtra_Txt_Cores(sb As Range)
    Application.Volatile
    Select Case sb.Font.ColorIndex
    Case 3
    Filtra_Txt_Cores = "Vermelho"
    Case 4
    Filtra_Txt_Cores = "Verde"
    Case 1
    Filtra_Txt_Cores = "Preto"
    Case 2
    Filtra_Txt_Cores = "Branco"
    Case Else
    Filtra_Txt_Cores = "outras cores"
    End Select
    End Function

    Essa função retorna se a fonte esta normal ou negritada.
    =Negrito(C12)

    Function Negrito(sb As Range)
    Application.Volatile
    Negrito = IIf(sb.Font.Bold, "Negrito", "Normal")
    End Function


    Aprenda Microsoft Excel VBA -- com Saberexcel
    sozinho, em casa, com baixo custo,


    Página 1 de 3

    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