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

SaberExcel - o site das macros
Essa macro abaixo do Aplicativo Microsoft Excel VBA retorna o nome do usuário da seguinte forma.
VOU DESCREVER A O QUE ACONTECERÁ COM A EXECUÇÃO DA MACRO ABAIXO.
veja a imagem do resultado da execução da macro na planilha (baixe o exemplo no final da página)
usaremos o meu nome: Expedito Marcondes

Célula(F3) = [Nome tipo Expedito]
Célula(F4) = [O total de letras que contém o Nome Expedito]
Célula(F5] = [Retorna o nome sem o primeiro poderia ter mais Sobrenomes : Marcondes]
Célula(F6] = [O total de letras que contém o segundo nome Marcondes]
Célula[C7] = [Retorna o meu nome em LETRA MAIUSCULA "EXPEDITO MARCONDES"]
Célula[C8 ]= [Retorna o meu nome em todas a letras minúsculas. "expedito marcondes"]
Célula[C9 ]= [Retorna o meu nome usando propriedade ProperCase(nomeProprio)"Expedito Marcondes"]
Célula[C10]=[Retorna o meu nome ao contrario "sednocraM otidepxE" (espelho) ]
Célula[C11] =[Retorna o meu nome separado por uma virgula "Marcondes, Expedito" ]
é isso ai... boa sorte..
'........................'
Sub Nome_Usuario()
Dim vNomeUsuario As String
Dim vPrimeiroNome As String
Dim vUltimoNome As String
Dim strLength As Integer
Dim spaceLoc As Integer
'.................'
'Entre com o primeiro e o segundo nome
'.................'
On Error Resume Next
limpar
vNomeUsuario = InputBox("Entre com o primeiro e segundo nome", "Nome", "Excel VBA Estudos®")
spaceLoc = InStr(1, vNomeUsuario, " ")
vPrimeiroNome = Left(vNomeUsuario, spaceLoc - 1)
'.................'
'localiza os dados na planilha a ser inserido os dados
'.................'
Range("C3").Value = vPrimeiroNome
strLength = Len(vPrimeiroNome)
Range("C4").Value = strLength 'extrai o primeiro nome
strLength = Len(vNomeUsuario)
vUltimoNome = Mid(vNomeUsuario, spaceLoc + 1, strLength - spaceLoc)
Range("C5").Value = vUltimoNome
strLength = Len(vUltimoNome)
Range("C6").Value = strLength
Range("C7").Value = UCase(vNomeUsuario)
Range("C8").Value = LCase(vNomeUsuario)
Range("C9").Value = StrConv(vNomeUsuario, vbProperCase)
Range("C10").Value = StrReverse(vNomeUsuario)
Range("C11").Value = vUltimoNome & ", " & vPrimeiroNome
descriminar
End Sub
Sub limpar()
Range("c3:D11").ClearContents
End Sub

Sub Atribuir()
Dim X As String
X = InputBox("Digite o nome da cidade", "Entrada", "Santo André")
ActiveCell.Value = X
End Sub


Aprenda tudo sobre Aplicativo Microsoft Excel VBA com SaberExcel

Saberexcel - o site das macros
Essas macros do Aplicativo Microsoft Excel VBA, converte todas as letras de todo objeto Workbook(Livro) em letras maiúsculas e ou minúsculas, também contém um objeto checkbox da barra de ferramentas Formulário, que muda o caption ao ser selecionada, executando a macro.



Sub Converte_para_Maiusculas()

Dim ws As Object
Dim LCell As Range

'vamos tirar a atualização de tela para aumentar a performance
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

'Movimento por cada folha na sua planilha
For Each ws In ActiveWorkbook.Sheets
On Error Resume Next
ws.Activate

'Converta todas as constantes e valores de texto ao caso 'próprio'
For Each LCell In Cells.SpecialCells(xlConstants, xlTextValues)
LCell.Formula = UCase(LCell.Formula)
Next
Next ws

'voltando as configurações da tela
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub

Sub Converte_para_Minusculas()

Dim ws As Object
Dim LCell As Range

'vamos tirar a atualização de tela para aumentar a performance
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

'Movimento por cada folha na sua planilha
For Each ws In ActiveWorkbook.Sheets
On Error Resume Next
ws.Activate

'Converta todas as constantes e valores de texto ao caso 'próprio'
For Each LCell In Cells.SpecialCells(xlConstants, xlTextValues)
LCell.Formula = LCase(LCell.Formula)
Next
Next ws

'voltando as configurações da tela
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub

Sub cbclick()
If ActiveSheet.CheckBoxes("xc").Value = 1 Then
ActiveSheet.Shapes("xc").Select
ActiveSheet.Shapes("xc").Select
Selection.Characters.Text = "Maiuscula em todo workbook"
Range("I6").Select
Converte_para_Minusculas
Else
ActiveSheet.Shapes("xc").Select
ActiveSheet.Shapes("xc").Select
Selection.Characters.Text = "Minusculas em todo workbook"
Range("I6").Select
Converte_para_Maiusculas
End If
End Sub

Sub Voltar()
ActiveSheet.Previous.Select
End Sub


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel

Saberexcel - o site das macros
Esse procedimento do Aplicativo Microsoft Excel VBA, insere letras maiúsculas ao digitar em em determinado intervalo de células na folha de planilha.
neste caso foi sensibilizado pelo Evento Change o intervalo de células ($A$1:$J$10) podendo ser expandido para adequação em algum projeto.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next ' no caso de precisar deletar alguma coisa
If Not Intersect(Target, Range("A1:J10")) Is Nothing Then Target = UCase(Target)
End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - SaberExcel

Baixe o exemplo de planilha contendo o procedimento acima



Publicidade:
Compre livros na maior livraria do Brasil com garantia, segurança e preços baixos

Saberexcel o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, converte as letras minusculas de determinada coluna em letras maiúsculas.

Sub Converte_texto_selecionado_para_maiusculo()
Dim vTexto As String
Dim vCelulas As Range
Dim vContaCelulas As Integer
Range("A1").Select
On Error Resume Next

Set vCelulas = ActiveSheet.Range(ActiveWindow.Selection.Address)

For vContaCelulas = 1 To vCelulas.End(xlDown).Row

If Not vCelulas.Cells(vContaCelulas).HasFormula Then
vTexto = vCelulas.Cells(vContaCelulas).Value
vCelulas.Cells(vContaCelulas).Value = UCase(vTexto)
End If

vCelulas.Offset(1, 0).Select
Next vContaCelulas

[D3].Value = "LETRAS MINÚSCULAS CONVERTIDAS PARA MAIÚSCULAS "
[d4].Value = "a linha de código no inicio Range(A1) select - determina a coluna "
End Sub


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - com Saberexcel




Baixe o exemplo de planiha contendo a macro acima



Publicidade
Compre com garantia, segurança e ótimos preços nas lojas submarino