Detalhes de vba maiuscula minuscula propria com options userform

PropriedadeValor
Nome:vba maiuscula minuscula propria com options userform
Descricao:

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

Nome do arquivo:vba maiuscula minuscula propria com options userform.zip
Tamanho: Vazio
Tipo:zip (Tipo de Mime: application/zip)
Autor:SaberExcel
Criado em: 25/11/2010 10:42
Visitas:Todos
Responsavel:Editor
Acessos:1479 Acessos
Atualizado em: 25/11/2010 10:43
Site: