Home Excel - Downloads / Areas Restritas Excel VBA - Formatação Condicional

Excel VBA - Formatação Condicional

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Ascendente ]

    vba formatacao condicional numeros aleatorios acima da media vba formatacao condicional numeros aleatorios acima da media

    popular!
    Adicionado em: 15/10/2010
    Modificado em: 17/11/2010
    Tamanho: Vazio
    Downloads: 948

    Saberexcel - site das macros
    Macro do Aplicativo Microsoft Excel VBA, usando o Objeto AboveAverage, que representa um visual acima da média de uma regra de formatação condicional. Aplica cor ou preenchimento em um intervalo ou seleção para ajudá-lo a ver o valor de células em relação a outras.

    Todos os objetos de formatação condicional estão contidos em um objeto da coleção FormatConditions, que é um filho de uma coleção Range. você pode criar uma regra de formatação acima da média usando o método Add ou AddAboveAverage da coleção FormatConditions.
    O exemplo a seguir cria um conjunto de dados dinâmicos e aplica cor aos valores acima da média através de regras de formatação condicional.

    'Visual Basic for Applications
    Sub FC_Acima_Media()

    ' inserindo uma numeração na palavra saberexcel
    Range("A1").Value = "Nome"
    Range("B1").Value = "Numero"
    Range("A2").Value = "SaberExcel-1"
    Range("A2").AutoFill Destination:=Range("A2:A26"), Type:=xlFillDefault
    Range("B2:B26").FormulaArray = "=INT(RAND()*101)" 'gera números aleatorios.

    Range("B2:B26").Select

    'Aplicando a formatacao condicional nos resultados acima da média.
    Selection.FormatConditions.AddAboveAverage
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).AboveBelow = xlAboveAverage

    With Selection.FormatConditions(1).Font
    .Color = -16752384
    .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .Color = 13561798
    .TintAndShade = 0
    End With
    MsgBox "adicionando a média condicional e formatos para os dados. Pressione F9 (aleatorios)", _
    vbInformation, "Saberexcel - site das macros"

    End Sub

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel




     

     

    vba fc formata determinadas linhas colunas criterio numero vba fc formata determinadas linhas colunas criterio numero

    Adicionado em: 20/02/2011
    Modificado em: 20/02/2011
    Tamanho: Vazio
    Downloads: 1



    Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), faz um tipo de formatação condicional, isto é depende do número que é a condição do critério atribuido, irá colorir a linha em determinadas colunas(A:E), de acordo com as cores atribuidas na macro abaixo, inserí somente dez cores relacionadas ao número 1,2,3...10. Mara - observe que a macro abaixo poderá ajudá-lo com a questão fc(formatação condicional) do aplicativo, poderá inserir no evento change do Objeto worsheet. Ok. Fiquem com Deus, Desejo-lhes todo bem.

    Sub sb_fc_formatacao_condicinal()
    Dim vDesejados As Range
    Set vDesejados = Range(Range("A1"), Range("A65536").End(xlUp))
    For Each c In
    vDesejados
    If c = 1 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 3
    If c = 2 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 44
    If c = 3 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 7
    If c = 4 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 4
    If c = 5 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 37
    If c = 6 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 22
    If c = 7 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 16
    If c = 8 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 29
    If c = 9 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 19
    If c = 10 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 14
    Next
    End Sub


    Sub limpar_sb()
    Set vDesejados = Range(Range("A1"), Range("A65536,B1").End(xlUp))
    Cells.ClearFormats
    End Sub



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

    vba fc formata determinadas linhas colunas criterio numero vba fc formata determinadas linhas colunas criterio numero

    popular!
    Adicionado em: 23/02/2011
    Modificado em: 23/02/2011
    Tamanho: Vazio
    Downloads: 1072

    Saberexcel - site das Macros

    Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), faz um tipo de formatação condicional, isto é depende do número que é a condição do critério atribuido, irá colorir a linha em determinadas colunas(A:E), de acordo com as cores atribuidas na macro abaixo, inserí somente dez cores relacionadas ao número 1,2,3...10. Mara - observe que a macro abaixo poderá ajudá-lo com a questão fc(formatação condicional) do aplicativo, poderá inserir no evento change do Objeto worsheet. Ok. Fiquem com Deus, Desejo-lhes todo bem.

    Sub sb_fc_formatacao_condicinal()
    Dim vDesejados As Range
    Set vDesejados = Range(Range("A1"), Range("A65536").End(xlUp))
    For Each c In
    vDesejados
    If c = 1 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 3
    If c = 2 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 44
    If c = 3 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 7
    If c = 4 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 4
    If c = 5 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 37
    If c = 6 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 22
    If c = 7 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 16
    If c = 8 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 29
    If c = 9 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 19
    If c = 10 Then Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 14
    Next
    End Sub


    Sub limpar_sb()
    Set vDesejados = Range(Range("A1"), Range("A65536,B1").End(xlUp))
    Cells.ClearFormats
    End Sub



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



    Excel planilha vba formatacao condicional treinamentos Excel planilha vba formatacao condicional treinamentos

    popular!
    Adicionado em: 07/10/2011
    Modificado em: 07/10/2011
    Tamanho: Vazio
    Downloads: 1511

    Saberexcel - o site das macros

    Esse procedimento do aplicativo Microsoft Excel VBA, insere determinadas FC(Formatações Condicionais) em determinadas células na folha de planilha, dependendo do valor inserido,
    essas formatações são configuradas em uma folha de planilha a parte. Observe que o procedimento foi inserido na folha de código do Livro ativo Workbook_SheetChange.
    ' Essa planilha faz parte dos Módulos Como Fazer - Programação MS Excel VBA - Treinando e Brincando com Excel VBA.



    'Option Explicit
    '-------------------------------------------------------------------------
    'Escola Saberexcel VBA Estudos® - Treinamentos Macros, Fórmulas e Funções
    '[email protected]
    '-------------------------------------------------------------------------
    Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim vTabTemp As Variant
    Dim vLinha As Long

    'se o usuário selecionar mais de uma célula sai da sub, sai do procedimento(macro)
    If Target.Cells.Count > 1 Then Exit Sub
    'If Target.Cells.Value = "" Then Exit Sub
    'Verifica se há a presenta de um formato condicional special na célula selecionada
    If Target.FormatConditions.Count < 1 Then Exit Sub

    If Target.FormatConditions(1).Formula1 = "=Saberexcel" Then

    With Sheets("Lista_Formatos")
    'Carrega preferencialmente em uma matriz variant temporária
    vLinha = .Range("A65536").End(xlUp).Row
    vTabTemp = .Range(.Cells(1, 1), .Cells(vLinha, 1)).Value

    'Determinando o formato a ser utilizado baseado no valor das células
    If Target.Value = "" Then
    vLinha = 1
    Else
    For vLinha = 2 To UBound(vTabTemp, 1)
    If Target.Value < vTabTemp(vLinha, 1) Then Exit For
    Next vLinha
    End If

    Application.EnableEvents = False
    'Aplicando o formato personalizado
    .Cells(vLinha, 2).Copy

    Target.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
    Target.FormatConditions.Add Type:=xlExpression, Formula1:="=Saberexcel"
    Application.CutCopyMode = False
    Application.EnableEvents = True
    End With
    End If
    End Sub

    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