Descricao: |
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.

|