VBA

Se quisermos saber o nome do utilizador e a data e hora do acesso a determinado workbook, como no exemplo: Obteremos o seguinte resultado: O Código do exemplo: 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) …

Se pretendermos efectuar um filtro, utilizando dados provenientes de determinadas células, como no exemplo: podemos utilizar um pouco de Código VBA: '—————————————————————' Procedure : Filtra_Click' DateTime  : 24-04-2006 19:07' Author    : JRod' Purpose   : Efectua um filtro por data anterior ou posterior'           : (célula I3) à data inscrita na célula I5'           : Se I5 for vazio, desfaz o filtro'—————————————————————'Private Sub Filtra_Click()     Dim …

Se pretendermos filtrar, por exemplo, por cliente e preparar a impressão de modo a só imprimir os dados filtrados, podemos utilizar o seguinte código: '——————————————————————————-' Procedure : Filtra_Cliente_Click' DateTime  : 02-05-2006 20:23' Author    : JRod' Purpose   : Efectua Filtro por Cliente e prepara para impressão filtrada'——————————————————————————-'Private Sub Filtra_Cliente_Click()    Dim myCliente     myCliente = ActiveCell.Value    Range("E6:E700").Select     If myCliente = "" Then        Selection.AutoFilter        Range("K1").Select    Else        Selection.AutoFilter Field:=1, Criteria1:="=" & myCliente, Operator:=xlAnd        ActiveSheet.PageSetup.PrintArea …

Se pretendermos verificar em determinado Range se uma célula de uma coluna tem no seu conteúdo, por exemplo, o texto "REPARADO" e, em caso afirmativo, marcar toda a linha desse Range com um fundo colorido (no exemplo, o verde): e, se, ao apagarmos o texto da célula, a cor da linha também venha a ser desfeita, como no exemplo: Então …

Se pretendermos verificar em determinado Range se uma célula de uma coluna tem no seu conteúdo, por exemplo, o texto "REPARADO" e, em caso afirmativo, marcar toda a linha desse Range com um fundo colorido (no exemplo, o verde): e, se, ao apagarmos o texto da célula, a cor da linha também venha a ser desfeita, como no exemplo: Então …