VBA

Normalmente, nas nossas Macros, quando pretendemos seleccionar uma Sheet, ou, por exemplo, limitar a uma área de scroll, utilizamos o seguinte Código:

Se pretendermos apagar linhas inteiras a partir de células vazias num determinado range, incluindo uma mensagem de alerta se, nesse range, não houver nenhuma célula vazia, podemos utilizar o seguinte código:

Para aparecer a mensagem Atenção!!!! São horas de ACORDAR!!! a uma determinada hora (no exemplo, às 18:19:00), podemos utilizar, adaptado, os seguintes módulos: Sub Auto_Open() Application.OnTime TimeValue("18:19:00"), "Mensagem" End Sub Sub Mensagem() Dim msg As String msg = MsgBox("Atenção!!!! São horas de ACORDAR!!!") End Sub

Então, perguntei ao John como poderíamos somar valores existentes nessa combinação de Ranges, sem que se adicionassem, por duas vezes, a intersecção das linhas com as colunas. A resposta foi dada da seguinte maneira: Como se pode verificar, a rotina, em primeiro lugar, efectua um loop através de todas as células, utilizando o método UNION, para obter o valor total …

Para desabilitar a utilização da tecla "ESCAPE", pode incluir-se no procedimento Auto_Open() o comando que produz aquele efeito: