Excel VBA - Espacos

  • - Acesso Livre
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    Excel planilha vba insere retorna espacos iniciais Excel planilha vba insere retorna espacos iniciais

    popular!
    Adicionado em: 13/11/2011
    Modificado em: 13/11/2011
    Tamanho: Vazio
    Downloads: 682

    Escola Saberexcel VBA Estudos - o site de quem precisa aprender macros ms Excel VBA

    Essa Função, Macros e Procedimentos do aplicativo Microsoft Excel VBA, tem por finalidade retornar o total de espaços vazios iniciais contidos em determinada célula.

    Function SBespacos(vCelula) As Long
    'ler e retornar total espaços inicial na célula
    SBespacos = vCelula.IndentLevel 'preenchimento da célula à esquerda
    End Function
    '- - - - - - - - - - - - - - - - - - -'

    'Essa macro insere na célula (E5) o total de espaços vazios determinados pela célula(G1).value
    Sub sbx_inserir_espacos_iniciais_celulas()
    With
    Range("E5")
    .IndentLevel = Saber1.[G1].Value
    End With
    Range("E3").Formula = "=SBespacos(E5)"
    MsgBox "Na célula E5 há [ " & SBespacos(Range("E5")) & " ] espaços iniciais", vbInformation, _
    "Escola SaberExcel VBA Estudos®"
    End Sub
    '- - - - - - - - - - - - - - - - - - -'

    'Essa macro retorna uma mensagem do total de espaços iniciais existente na célula (E5) l
    Sub sbx_chamando_funcao_total_SBespacos()
    Range("E3").Formula = "=SBespacos(E5)"
    sbx = "Na célula E5 há [ " & SBespacos(Range("E5")) & " ] espaços iniciais"
    MsgBox sbx, vbInformation, "Escola Saberexcel VBA Estudos®"
    End Sub
    '- - - - - - - - - - - - - - - - - - -'
    NO MÓDULO DE CÓDIGO DA FOLHA DE PLANIHA INSIRA.
    'Observe que inserimos os mesmos códigos no EventoChange(ao digitar), ao inserir a quantidade de espaço desejado,
    'o procedimento sera executado automaticamente, foi inserido um argumento 1 e 2 para escolha da execução dos códigos.

    Private Sub Worksheet_Change
    (ByVal Target As Range)
    If Saber1.[G2].Value = 1 Then
    If Target.Address = "$G$1" And Target.Count = 1 Then
    With Range("E5")
    .IndentLevel = Saber1.[G1].Value
    End With

    Range("E3").Formula = "=SBespacos(E5)"
    MsgBox "Na célula E5 há [ " & SBespacos(Range("E5")) & " ] espaços iniciais", vbInformation, _
    "Escola SaberExcel VBA Estudos®"
    End If
    Else
    Exit Sub
    End If
    End Sub
    '- - - - - - - - - - - - - - - - - - -'
    Esse procedimento com evento ao selecionar a célula(G1) na folha de planilha abre automaticamente,
    a lista suspensa(Validação de Dados) para escolha..

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$G$1" And Target.Count = 1 Then
    SendKeys "%{down}"
    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 Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.






     

    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