VBA

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 …

O indicador RANDOMIZE inicia o gerador aleatório de números (neste exemplo gera 6 números entre 1 e 49):  

Se quisermos executar um determinado procedimento ciclicamente (p.ex. ao fim de cada 5 minutos passados), podemos utilizar o seguinte: Sub Auto_Open() Call Teste End Sub Public Sub Teste() Dim msg msg = MsgBox("Isto é um Teste") Application.OnTime Now + TimeValue("00:05:00"), "Teste" End Sub

Se a célula A3 for igual a SIM, então A2 diminui 1 unidade: Private Sub CommandButton1_Click() Dim Val Val = Range("A2").Value If Range("A3") = "SIM" Then Val = Val – 1 Range("A2") = Val End If End Sub

Ao clicar-se no Botão de comando, aparece o resultado em C1, que é a soma de B1:B10: O Código em VBE, é: Private Sub CommandButton1_Click() Dim myRange As Range Dim Var1 As Long Set myRange = Worksheets("Sheet1").Range("B1:B10") Var1 = Application.WorksheetFunction.Sum(myRange) Range("C1") = Var1 End Sub