EXCELer Tudo sobre EXCEL em Português

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 …

Para protegermos uma folha sem termos que recorrer a Ferramentas|Protecção|Proteger Folha, podemos utilizar uma Check Box e associá-la a um pouco de código, de modo a que, ao clicarmos nela, a folha fique protegida ou desprotegida. Vejamos o resultado, em primeiro lugar: Passemos agora ao desenvolvimento:Criar a Check Box: Depois de criarmos a Check Box, vamos associá-la com o seguinte …

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

Para desactivar uma tecla de função, podemos utilizar o seguinte Código: Application.OnKey "{F3}", "" Para activar novamente: Application.OnKey "{F3}"

Por vezes temos interesse em que não seja possível aceder às diferentes folhas de um workbook através dos respectivos tabuladores. Para isso, temos que nos socorrer de um pouco de código para conseguirmos esse efeito. Exemplo: Acedemos então ao Editor de VBE, clicando no icone do workbook com a tecla direita do rato, para incluirmos o respectivo código no mesmo …