Excel planiha vba insere retorna espacos iniciais

Dom, 13 de Novembro de 2011 12:48 Expedito Marcondes
Imprimir

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.




  Baixe o exemplo de planilha contendo os procedimentos e macros acima
Excel planilha vba insere retorna espacos iniciais (87.76 KB)

 

Tags:
Última atualização em Dom, 13 de Novembro de 2011 13:29