EXCELer Tudo sobre EXCEL em Português

Dave Peterson, deu a conhecer uma UDF (Função definida pelo utilizador) que mostra, numa célula, o conteúdo de um comentário de outra célula. No exemplo, a Função chama-se GetComment(): O Código: Public Function GetComment(FCell As Range) As Variant    Application.Volatile        Set FCell = FCell(1)        If FCell.Comment Is Nothing Then        GetComment = “”    Else        GetComment = FCell.Comment.Text    End If    End Function

A Função que apresento hoje, mostra a data e a hora da última alteração que uma folha teve: O Código: Public Function DataHora(s As String) As String    Application.Volatile     s = "Última alteração à folha efectuada em: " & Date & "  hora:" & Time     DataHora = s End Function  

Por vezes, temos necessidade de enviar dados de uma folha do Excel para um determinado documento do Word. O exemplo a seguir, mostra um botão de comando que, ao ser pressionado, envia os dados do Range A1:B3 para um novo documento do Word. O Código: Private Sub CommandButton1_Click()     Dim MSWord As Object     Worksheets("sheet1").Range("A1:B3").Copy     Set MSWord = CreateObject("Word.Application")    MSWord.Visible = True    MSWord.ScreenUpdating = …

Dick Kusleika (Daily Dose of Excel) mostrou, há algum tempo num newsgroup de excel, como colocar uma linha no rodapé, para impressão: Sub LinhaRodape()     Dim sh As Worksheet    Dim wf As WorksheetFunction     Set sh = ActiveSheet    Set wf = Application.WorksheetFunction     sh.PageSetup.LeftFooter = wf.Rept("_", 88) & _                              vbLf & sh.PageSetup.LeftFooter End Sub NOTA – o valor 88 é modificável pelo tamanho da zona de …

Por vezes, podemos ter a necessidade de utilizar um formato novo no cabeçalho de uma impressão, como, por exemplo, a referência à data actual: O Código: Sub Muda_Formato_Data()    ActiveSheet.PageSetup.CenterHeader = Format(Now, "DD MMMM, YYYY")End Sub

Se quisermos ver o conteúdo de uma célula numa outra célula, como por exemplo, ver na célula "A1" o valor contido na célula "C4" (ou "C5","C1",etc): podemos utilizar o procedimento que a seguir transcrevo: Código: Private Sub Worksheet_SelectionChange(ByVal Target As Range)    Range("A1") = ActiveCell.ValueEnd Sub Atenção: clicar com o botão direito do rato no tabulador da folha, escolher "Ver Código" e …

Se pressionarmos a tecla de função F3, aparece, na célula pretendida, o resultado do Código a que a tecla está associada ( no exemplo, "Blog EXCELer"): O Código: Public Ops As String Sub Auto_Open()     Application.DisplayAlerts = False    Application.OnKey "{F3}", "InsereNome" End Sub Sub InsereNome()     Ops = Nome()    ActiveCell = Ops    End Sub Public Function Nome()     Nome = "Blog EXCELer"    End Function