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

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