EXCELer Tudo sobre EXCEL em Português

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

Exemplos da utilização das Funções de texto ESQUERDA(), SEG.TEXTO() e DIREITA()  

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 …

A célula B1 contém referência relativa à célula A2, ou seja a coordenada da coluna é relativa e a linha também; A célula B2 contém referência absoluta à célula A2, ou seja, a coordenada da coluna é absoluta e a linha também; A célula B3 contém referência mista à célula A2, ou seja, a coordenada da coluna é relativa e …

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

Exemplo de procedimento para formatação de células a BOLD, se estas contiverem valores negativos: Sub BoldNegative() Sheets("Hard_Bill").SelectColumns("E:E").Select On Error Resume Next Call CheckCells(Selection.SpecialCells(xlConstants, 23)) Call CheckCells(Selection.SpecialCells(xlFormulas, 23)) Columns("H:H").Select On Error Resume Next Call CheckCells(Selection.SpecialCells(xlConstants, 23)) Call CheckCells(Selection.SpecialCells(xlFormulas, 23)) Range("a1").Select End Sub Sub CheckCells(CurrRange As Range) For Each cell In CurrRange If cell.Value <> cell.Font.Bold = True With cell.Interior.ColorIndex = 5.Pattern …