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