Home Excel - Dicas Microsoft Excel VBA Excel VBA - Maiusculas Minuscula Propria Excel planilha vba maiuscula minuscula propria com options userform

Excel planilha vba maiuscula minuscula propria com options userform

E-mail Imprimir PDF

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 planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel


    Baixe o exemplo de planilha contendo os procedimentos e macros acima
 Excel planilha vba maiuscula minuscula propria com options userform (23.57 kb)

Última atualização em Sáb, 13 de Agosto de 2011 19:34  

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

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje587
mod_vvisit_counterOntem4798
mod_vvisit_counterEsta Semana32642
mod_vvisit_counterSemana passada39550
mod_vvisit_counterEsse mês9884
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10432713
Aprenda MS Excel VBA

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