VBA

Por vezes, temos necessidade de criar um registo de entradas em determinado workbook, que, para além de conter o nome do utilizador, poderá ainda conter a data e a hora do acesso: Resultado: O Código: Sub Auto_Open()Dim Ops(1 To 5) As StringDim msg As String Ops(1) = Day(Date)Ops(2) = Month(Date)Ops(3) = Year(Date)Ops(4) = Hour(Time)Ops(5) = Minute(Time) msg = Ops(3) & …

Se pretendermos criar uma mensagem de informação a partir de um botão de comando, como no exemplo seguinte, podemos utilizar um pouco de VBA. O Código: Private Sub CommandButton1_Click()    Dim Ops(1 To 3) As String    Dim Msg As String    Dim Texto As String     Application.Cursor = xlNormal     Ops(1) = "Elaborado por: "    Ops(2) = "EXCELer, "    Ops(3) = "Vilamoura, Julho de 2005"     Texto = Ops(1) + …

Se pretendermos que, em determinada coluna, os números negativos sejam apresentados a BOLD, como no exemplo, podemos utilizar um pouco de VBA. O Código: Private Sub CommandButton1_Click()Sheets("Sheet1").Select    Columns("A:A").Select        On Error Resume Next        Call CheckCells(Selection.SpecialCells(xlConstants, 23))    Call CheckCells(Selection.SpecialCells(xlFormulas, 23))        Range("b1").Select    End Sub Sub CheckCells(CurrRange As Range)     For Each cell In CurrRange         If cell.Value < 0 Then            cell.Font.Bold = True        End If         If cell.Value >= 0 Then            cell.Font.Bold = False            Selection.Interior.ColorIndex = …

O Código: Sub Auto_Open()    Dim num As Integer     num = ActiveWorkbook.Worksheets.Count    ActiveWorkbook.Worksheets(num).Activate End Sub

Se pretendermos que o utilizador digite, por exemplo, na célula "A1", valores que não sejam negativos ou zero, como no exemplo: podemos socorrer-nos de um pouco de VBA. O Código:Private Sub Worksheet_SelectionChange(ByVal Target As Range)     If IsEmpty(Range("A1")) Then        Exit Sub    End If     If Range("A1") < 0 Then        MsgBox "O valor não pode ser negativo! Tente outra vez!!!"        Range("A1").ClearContents    ElseIf Range("A1") = 0 Then        MsgBox "O valor …