|
 Saberexcel - o Site das Macros
Esses Eventos do Aplicativo Microsoft Excel VBA, inserem letras MAIÚSCULAS, minúsculas e Próprias com auxílio de objetos Options em um Userform, os options estão sensibilizados pelo Evento Duplo Click, isto é, você poderá selecionar a área de células desejadas e logo em seguida dar click duplo na opção desejada que afetará diretamente na folha de planilha na área escolhida, como também pode optar pelo botão Ok.
EM UM MÓDULO COMUM INSIRA OS CÓDIGOS:
Esses códigos referencia aos objetos Options com Evento Duplo Click (DblClick) que chamam determinada macro e fecha o Userform.
Option Explicit
Private Sub optMinuscula_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Minuscula 'chama a macro Sub Minuscula() ao duplo click
Unload Me
End Sub
Private Sub optProprio_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Proprio 'chama a macro Sub Proprio() ao duplo click
Unload Me
End Sub
Private Sub optMaiuscula_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Maiuscula 'chama a macro Sub Proprio() ao duplo click
Unload Me
End Sub
'ao inicializar o Userform seleciona o objeto Options Minuscula.
Private Sub UserForm_Initialize()
Me.optMinuscula = True
End Sub
no botão Ok chama a macro que contém as tres condições (IF) da seleção dos objetos options
Private Sub cmdOK_Click()
Maiuscula_minuscula_proprio
Unload Me
End Sub
Private Sub cmdCancel_Click()
Unload Me
End Sub
EM UM MÓDULO COMUM (STANDARD) INSIRA AS MACROS ABAIXO
Option Explicit
Dim objCelula As Object
Sub Abrir_formulario()
frmLetras.Show
End Sub
Essa macro verifica o objeto option que foi selecionado e executa o macro a ele atribuido
Sub Maiuscula_minuscula_proprio()
If frmLetras.optMinuscula = True Then
Minuscula
ElseIf frmLetras.optMinuscula = True Then
Maiuscula
Else
Proprio
End If
End Sub
Sub Minuscula()
For Each objCelula In Selection
objCelula.Value = LCase(objCelula.Formula)
Next objCelula
End Sub
Sub Maiuscula()
For Each objCelula In Selection
objCelula.Value = UCase(objCelula.Formula)
Next objCelula
End Sub
Sub Proprio()
For Each objCelula In Selection
objCelula.Value = Application.Proper(objCelula.Formula)
Next objCelula
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel
 Baixe o exemplo de planilha contendo os procedimentos e macros acima
|