Search

A carregar...

About Me

A minha fotografia
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
Ocorreu um erro neste dispositivo
2007-04-30

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

 
NOTA: Este tema já foi focado anteriormente no EXCELer, num post datado de 15-11-2005.
2007-04-22

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.

2007-04-06

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:

 

Sub Ordena()
'
' Macro recorded 04-04-2007 by JRod
'

'

    Dim Choice As String
    Choice = InputBox("Ordenar por:")
    If Choice = "data" Then
        Range("A2:B6").Select
        Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
                       OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
                       DataOption1:=xlSortNormal
    ElseIf Choice = "nome" Then
        Range("A2:B6").Select
        Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
                       OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
                       DataOption1:=xlSortNormal
    Else
        Exit Sub
    End If
End Sub