| Descricao: |
 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
|