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)