EXCELer

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 = 0
        End If

    Next cell

End Sub

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) + vbCr
    Texto = Texto + Ops(2) + vbCr
    Texto = Texto + Ops(3)

    Msg = MsgBox(Texto, Buttons:=vbInformation, Title:="AUTOR")

    Select Case Msg
    End Select

End Sub

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 String
Dim 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) & "-" & Ops(2) & "-" & Ops(1) & " " & Ops(4) & ":" & Ops(5)

Sheets("Sheet1").Select

Range("A65536").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select

Application.Cursor = xlNormal

Do While IsEmpty(ActiveCell)

ActiveCell.FormulaR1C1 = InputBox(Prompt:="Introduza o seu NOME:", _
Title:="Nome do Utilizador")
ActiveCell.FormulaR1C1 = UCase(ActiveCell)

Loop

Range("B65536").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.FormulaR1C1 = msg

End

End Sub

Se pretendermos que, ao abrir um workbook, nos seja pedido para digitarmos o nome do utilizador, podemos utilizar o seguinte exemplo:






O Código:

Sub Auto_Open()
Range("B1").Value = Application.InputBox("Escreva o seu nome")
End Sub