Home Excel - Dicas Microsoft Excel VBA Excel VBA - Espacos Excel planiha vba insere retorna espacos iniciais

Excel planiha vba insere retorna espacos iniciais

E-mail Imprimir PDF

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)

 

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

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

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