EXCELer

Abaixo, mostro uma utilização curiosa da Função Indirect(), em B13, utilizando o operador de intersecção ESPAÇO (caracter espaço):

A propósito de uma questão que me foi formulada por e-mail sobre funções de Data, mostro, de seguida, algumas aplicações dessas funções, nomeadamente das Funções DATE(), DAY() e EOMONTH(), esta última incluída no Add-In Analysis ToolPak e ainda da sua conjugação com a Função ROWS() e com a Função TEXT().

Nos exemplos, pretende-se mostrar como se pode apresentar o último dia de cada mês e, bem assim, o número de dias que cada mês tem, utilizando métodos diferentes de abordagem.

Créditos para Chip Peterson, Norman Harker, Ron Rosenfeld, David McRitchie, entre outros.

Se pretendermos efectuar uma ordenação por escolha através de uma InputBox, como no exemplo:

para o resultado:

ou:

para o resultado:

podemos utilizar o seguinte código:

Uma pequena adaptação ao post anterior para mostrar como é que se pode apresentar, no comentário, quantos dias já passaram sobre determinada data (cfr. exemplo):

O Código, adaptado:

NOTA: O Código deve ser inserido no próprio workbook:

Private Sub CommandButton1_Click()
    Dim oOutlook As Object
    Dim oMailItem As Object
    Dim oRecipient As Object
    Dim oNameSpace As Object

    Set oOutlook = CreateObject("Outlook.Application")
    Set oNameSpace = oOutlook.GetNameSpace("MAPI")
    oNameSpace.Logon , , True


    Set oMailItem = oOutlook.CreateItem(0)
    Set oRecipient = _
    oMailItem.Recipients.Add(Range("F1").Value)
    oRecipient.Type = 1


    With oMailItem
        .Subject = "ATENÇÃO!"
        .Body = "Já passaram mais de 3 dias! Contacte o Serviço com urgência!"
        .Display
    End With

End Sub

O resultado será este:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim name As String
    Dim name1 As String
    Dim name2 As String
    Dim Start As Long
    
    Cancel = True
    
    name = ActiveCell.Address
    name1 = Left(name, 2)
    name2 = ActiveCell.End(xlUp).Address
    Start = 2
    Range(name).Formula = _
    "=SUM(" & name1 & Start & ":" & name2 & ")"
End Sub

O Código:

Código num módulo:

Sub MakeToolBar()
 
    On Error Resume Next
    Application.CommandBars("MyToolBar").Delete
    On Error GoTo 0


    With Application.CommandBars.Add(Name:="MyToolBar", _
                                     Position:=msoBarTop, MenuBar:=False)

        .Protection = msoBarNoCustomize


        With .Controls.Add(Type:=msoControlButton)
            .Style = msoButtonCaption
            .DescriptionText = "Imprime, Grava e Sai"
            .TooltipText = "Imprime, Grava e Sai"
            .Caption = "Imprime/Grava/Sai"
            .OnAction = "Imprime_Grava" 
        End With

        With .Controls.Add(Type:=msoControlButton)
            .Style = msoButtonCaption
            .DescriptionText = "Limpar os Dados Anteriores"
            .TooltipText = "Limpa os Dados Anteriores"
            .Caption = "Limpa Dados"
            .OnAction = "Limpa"
        End With

        With .Controls.Add(Type:=msoControlButton)
            .Style = msoButtonCaption
            .DescriptionText = "Gravar o Novo Mês"
            .TooltipText = "Grava o Novo Mês"
            .Caption = "Novo Mês"
            .OnAction = "GravaSai"
        End With

        With .Controls.Add(Type:=msoControlButton)
            .Style = msoButtonCaption
            .DescriptionText = "Inserção do valor que vem do fecho do mês anterior"
            .TooltipText = "Digitar o Valor do Mês Anterior"
            .Caption = "Valor Mês Anterior"
            .OnAction = "Valor_Anterior"
        End With

        Application.CommandBars("MyToolBar").Visible = True

    End With
End Sub

Sub DeleteToolBar()
    Dim bar As CommandBar
    On Error Resume Next
    Application.CommandBars("MyToolBar").Delete
    On Error GoTo 0
End Sub

Código no Workbook:

Private Sub Workbook_Activate()

    On Error Resume Next

    With Application.CommandBars("TranslateIT")
        .Enabled = False
        .Visible = False
    End With

    MakeToolBar

    On Error GoTo 0
End Sub


Private Sub Workbook_Deactivate()