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: 87.76 KB
    Downloads: 503

    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.






     


    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