VBA

Utilizando o Código do post anterior com uma pequena alteração, podemos adicionar mais um pouco de código para tentar simular um blink entre o negro e o encarnado no conteúdo da Label: O Código: Option Explicit Private Sub UserForm_Initialize()    Dim dblTotal As Double    Dim strTotal As String     strTotal = Worksheets("Sheet1").Range("A7").Value    dblTotal = Worksheets("Sheet1").Range("B7").Value    Me.Label1.Caption = strTotal & " " & dblTotal End Sub Private …

Elaborado a partir de uma peça de código apresentada por David Hager em 01/11/1999: O Código (adaptado): Public acValPublic allVal    ' adicionado Private Sub Worksheet_Change(ByVal Target As Excel.Range)    On Error Resume Next    Target.AddComment    Target.Comment.Text "O valor anterior foi: " & acVal & _       vbLf & allVal ' modificado/adicionadoEnd Sub Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)    If ActiveCell.Address <> Target.Address Then Exit Sub    If Target.Value = "" …

No seguimento do post anterior, se pretendermos listar o conteúdo de todos os comentários e os respectivos endereços (células) numa nova worksheet: podemos utilizar uma peça de código que foi mostrada por Debra Dalgleish. O Código: Sub ListComms()    Dim cell As Range    Dim sh As Worksheet    Dim csh As Worksheet    Set csh = ActiveWorkbook.Worksheets.Add    csh.Name = "Comments"    For Each sh In ActiveWorkbook.Worksheets        If sh.Name <> csh.Name Then            For …

Nos dois posts anteriores, foi mostrado como se podem acrescentar dados a um comentário e como copiar o conteúdo desse comentário para uma nova folha.Hoje mostro como se podem efectuar alterações num comentário múltiplo, como no exemplo: O Código (adaptado do apresentado num forum sobre Excel, em 27-01-2005): Sub AlterarNoComentario()    Dim temp1 As String, temp2 As String, temp3 As String, temp4 …

Se pretendermos abrir um determinado programa (no exemplo o programa Calc.exe, que abre a calculadora) através de uma tecla de função (v.g. F3): Podemos utilizar o seguinte Código: Sub Auto_Open()    Application.DisplayAlerts = False    Application.OnKey "{F3}", "ShowCalc"    Application.DisplayAlerts = TrueEnd Sub Sub ShowCalc()    Shell "Calc.Exe", vbNormalFocusEnd Sub