Programando o Excel ® Vba Para Leigos - 2ª Ed 2013 NoDRM (1)

354 Parte V: Juntando Tudo
A Figura 21-2 mostra o UserForm1. Os cinco botões de opção estão
dentro de um controle Quadro. Além disso, o UserForm tem um botão
Cancelar (chamado de CancelButton) e um botão OK (chamado de
OKButton).
Figura 21-2:
O User-
Form para
o add-in
Change
Case.
O código executado quando o botão Cancelar é clicado é muito simples.
Este procedimento descarrega o UserForm sem ação:
Private Sub CancelButton_Click()
Unload UserForm1
End Sub
A seguir, o código que é executado quando o botão OK é clicado. Este
código faz todo o trabalho:
Private Sub OKButton_Click()
Dim TextCells As Range
Dim cell As Range
Dim Text As String
Dim i As Long
‘ Cria um objeto com constantes de texto somente
On Error Resume Next
Set TextCells = Selection._
SpecialCells(xlConstants, _
xlTextValues)
‘ Desliga a atualização de tela
Application.ScreenUpdating = False
‘ Faz o Loop pelas células
For Each cell In TextCells
Text = cell.Value
Select Case True
Case OptionLower ‘lowercase
cell.Value = LCase(cell.Value)
Case OptionUpper ‘UPPERCASE
cell.Value = UCase(cell.Value)
Case OptionProper ‘Proper Case
cell.Value = _
WorksheetFunction.Proper(cell.Value)