0162-Dica VBA: Você sabia que pode colocar várias instruções numa mesma linha de código?

Algumas vezes, por questão de estética ou para facilitar a leitura do código podemos querer reduzir o número de linhas de nossas macros.
É possível juntar várias linhas numa só, utilizando dois pontos (:) para separar as instruções.
Vejamos por exemplo, o código a seguir que foi publicado em 0026-Testando múltiplas condições em código VBA (Select Case)

Function StatusNotaV2(nota)
    Select Case nota
    Case Is < 30
    StatusNotaV2 = "desqualificado"
    Case Is < 40
    StatusNotaV2 = "situação crítica"
    Case Is < 50
    StatusNotaV2 = "estado de alerta"
    Case Is < 60
    StatusNotaV2 = "sob monitoramento"
    Case Is < 70
    StatusNotaV2 = "aceitável"
    Case Is < 80
    StatusNotaV2 = "bom"
    Case Is < 90
    StatusNotaV2 = "muito bom"
    Case Else
    StatusNotaV2 = "excelente"
    End Select
End Function

O mesmo código pode ser reorganizado da forma a seguir, mantendo a sua funcionalidade:

Function StatusNotaV2(nota)
    Select Case nota
    Case Is < 30:    StatusNotaV2 = "desqualificado"
    Case Is < 40:    StatusNotaV2 = "situação crítica"
    Case Is < 50:    StatusNotaV2 = "estado de alerta"
    Case Is < 60:    StatusNotaV2 = "sob monitoramento"
    Case Is < 70:    StatusNotaV2 = "aceitável"
    Case Is < 80:    StatusNotaV2 = "bom"
    Case Is < 90:    StatusNotaV2 = "muito bom"
    Case Else:       StatusNotaV2 = "excelente"
    End Select
End Function

Na minha opinião é mais fácil interpretar o código quando ele é escrito da segunda forma, colocando ao lado de cada condição a instrução ou instruções a serem executadas.
Nem sempre é útil utilizar esta estratégia, mas como ela é pouco divulgada, gostaria de compartilhá-la com vocês.
Abraços e boa semana.

Sobre adilsonsoledade

In Excel We Trust