Home Excel - Dicas Microsoft Excel VBA Excel VBA - Maiusculas Minuscula Propria Excel planilha vba maiuscula minusculas em todo livro exemplo checkbox caption

Excel planilha vba maiuscula minusculas em todo livro exemplo checkbox caption

E-mail Imprimir PDF

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 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 as macros acima
Excel planilha vba maiuscula minusculas em todo livro exemplo checkbox caption (32.36 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_counterHoje4049
mod_vvisit_counterOntem4432
mod_vvisit_counterEsta Semana30572
mod_vvisit_counterSemana passada46212
mod_vvisit_counterEsse mês17778
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10440607
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