Excel VBA - Cursor

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Ascendente ]

    vba cursor insere formatacao na linha acompanha celula ativa vba cursor insere formatacao na linha acompanha celula ativa

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

    Saberexcel - o site das macros
    Esta macro do Aplicativo Microsoft Excel VBA, Insere um marcador na linha do cursor realçando linha e coluna ativa um marcador para realçar a linha e a coluna ativa inserindo uma linha colorida na linha e coluna ativas, formata seleção no cursor linhas e colunas este evento insere um shape e navega junto com o cursor marcando selecionando as linhas e colunas ativadas pelo cursor retângulo. Observe que usamos o Evento Selection_Change da Folha de código da planilha.

    Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    '*** Definição de variáveis ***
    h = ActiveCell.Height
    w2 = ActiveCell.Width
    t = ActiveCell.Top
    w = ActiveCell.Left

    'Testa se os retangulos shapes são existentes.
    On Error Resume Next
    ActiveSheet.Shapes("RectangleV").Delete
    On Error Resume Next
    ActiveSheet.Shapes("RectangleH").Delete

    'Ajuste dos shapes retangulos

    ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, t, w, h).Name = "RectangleV"
    With ActiveSheet.Shapes("RectangleV")
    .Fill.Visible = msoFalse
    .Fill.Transparency = 0#
    .Line.Weight = 3#
    .Line.ForeColor.SchemeColor = 10
    .PrintObject = False
    End With

    ActiveSheet.Shapes.AddShape(msoShapeRectangle, w, 0, w2, t).Name = "RectangleH"

    With ActiveSheet.Shapes("RectangleH")
    .Fill.Visible = msoFalse
    .Fill.Transparency = 0#
    .Line.Weight = 3#
    .Line.ForeColor.SchemeColor = 10
    .PrintObject = False
    End With
    End Sub


    Aprenda Microsoft Excel VBA --(Saberexcel)--

    vba cursor formatacao condicional usando formulas celula ativa vba cursor formatacao condicional usando formulas celula ativa

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

    Formatando as linhas do cursor ao selecionar determinada célula
    Quanto a formatação existem diversos exemplos, mas gosto de simplicidade e eficácia, porém neste caso, a formatação fica muito sofisticada rs..
    Acho que este exemplo é o mais prático, não envolvem macros, somente fórmulas de FC(Formatação condicional) e um Evento(Abaixo)
    Vamos mudar a cor da fonte existente, fundo da célula, e bordas diferentes ao selecionar ok...

    1 )- Selecione a area onde deseja inserir a Formatação Condicional (Linhas cores seguindo o cursor)
    neste caso escolhi o as células abaixo marcadas por uma borda abaixo Ok...

    2 )- depois de selecionado até a caixa de diálogo FC(Formatação condicional ), e insira a seguinte fórmula
    Area escolhida ..........................................: =$E$19:$N$34
    Formula usada na formatação condicional)........: =LIN()=CÉL("lin")


    No módulo de Edição (programação do Folha de Planilha) digite o seguinte código
    Evento Selecion_Change ( toda vez que for selecionado uma célula "Faça...")

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Calculate
    End Sub



    Aprenda Microsoft Excel VBA --(( SaberExcel ))--

    Excel planilha vba cursor colorir celula ativa Excel planilha vba cursor colorir celula ativa

    popular!
    Adicionado em: 24/05/2011
    Modificado em: 24/05/2011
    Tamanho: Vazio
    Downloads: 2135

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

    Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere cor no interior da célula ativa, acompanhando o cursor, com a determinada pelas células na cor amarela.Observem que o procedimento cria dois Range(Name) 'nomeia células', a célula ativa (vEndereço) e também a cor determinada (vCores), veja no exemplo de planilha, baixe-o no final da página. Fique com Deus, Expedito Marcondes.
    (*) - observe que a cor amarelo inserido na formatação é retirada da célula após a seleção de outra célula.


    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If [vEndereco] <> "" Then Range([vEndereco]).Interior.ColorIndex = [vCores]
    ActiveWorkbook.Names.Add Name:="vEndereco", RefersToR1C1:=""

    If Not Intersect([A1:D20], Target) Is Nothing And Target.Count = 1 Then
    ActiveWorkbook.Names.Add Name:="vEndereco", RefersToR1C1:="=" & Chr(34) & Target.Address & Chr(34)
    ActiveWorkbook.Names.Add Name:="vCores", RefersToR1C1:="=" & Target.Interior.ColorIndex
    Target.Interior.ColorIndex = 6
    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

    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