About Me
Estatisticas
6:01 da tarde | 
Publicada por
JRod - PORTUGAL
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:
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