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

264
Parte IV: Como se Comunicar com Seus Usuários
fato de a propriedade Cancel do botão Cancelar estar configurada
para True, pressionar Esc também dispara o procedimento
CancelButton_Click.
2. Insira a seguinte declaração dentro do procedimento (antes da
declaração End Sub):
Unload UserForm1
Esta declaração fecha o UserForm (e o remove da memória)
quando o botão Cancelar é clicado.
3. Pressione Shift+F7 para voltar ao UserForm.
4. Clique duas vezes no botão OK.
O VBE ativa a janela de código para o UserForm e insere um
procedimento Sub chamado
Private Sub OKButton_Click
Quando o UserForm é exibido, clicar OK executa esse procedimento.
Porque esse botão tem a sua propriedade Default (Padrão)
configurada para True, pressionar Enter também executa o
procedimento OKButton_Click.
5. Entre com o seguinte código dentro do procedimento:
Private Sub OKButton_Click()
Dim WorkRange As Range
‘ Processa apenas células com texto, sem fórmulas
On Error Resume Next
Set WorkRange = Selection.SpecialCells _
(xlCellTypeConstants, xlCellTypeConstants)
‘ Letras Maiúsculas
If OptionUpper Then
For Each cell In WorkRange
cell.Value = Ucase(cell.Value)
Next cell
End If
‘ Letras Minúsculas
If OptionLower Then
For Each cell In WorkRange
cell.Value = Lcase(cell.Value)
Next cell
End If
‘ Iniciais Maiúsculas
If OptionProper Then
For Each cell In WorkRange
cell.Value = Application. _
WorksheetFunction.Proper(cell.Value)