Saberexcel - o site das macros
Excel Funções personalizadas retornam a Fórmula da célula
Funções retornam a fórmula usada em uma região e ou célula
Observem que o código Cell.FormulaLocal Retorna ou define a
fórmula para o objeto, usando referências de estilo A1 no idioma
do usuário.


Essa Função retorna a fórmula usada, mas em Ingles
Function Retorna_Formula(Cell As Range) As String
Retorna_Formula = Cell.Formula
End Function

Essa Funçao retorna a Fórmula usada em Portugues(Br-pt)
Function Retorna_Formula_Local(Cell As Range) As String
Retorna_Formula_Local = Cell.FormulaLocal
End Function

Aprenda tudo sobre o Aplicativo microsoft Excel VBA com Saberexcel

Contando semanas usando Fórmulas
Saberexcel - Dicas de Fórmulas e Funções

Esta formula calcula quantas semanas faltam para terminar o mês a partir da data
Digita na uma data desejada na célula(A1)

Obtendo uma reposta concatenando dado:
Até a presente data 01/09/2010 faltam 5 semanas para terminar o mês de setembro 2010
5 semanas para terminar o mês de setembro 2010

Fórmula Usada
="Até a presente data "&TEXTO(A1;"dd/mm/aaaa")&" faltam "&INT((DATA(ANO(HOJE());MÊS(HOJE())+1;0)-DATA(ANO(HOJE());MÊS(HOJE());DIA(A1)))/7+1)&" semanas para terminar o mês de "&TEXTO(A1;"mmmm")&" "&TEXTO(A1;"aaaa")

=INT((DATA(ANO(HOJE());MÊS(HOJE())+1;0)-DATA(ANO(HOJE());MÊS(HOJE());DIA(A1)))/7+1) &" semanas para terminar o mês de "&TEXTO(A1;"mmmm")&" "&TEXTO(A1;"aaaa")

Contando semanas entre duas datas baseado no dia da semana da célula(A1)
Neste intervalo de datas: [01-setembro-2010 e 09-outubro-2010]
5 Semanas

Formulas usadas
="Neste intervalo de datas: ["&TEXTO(A1;"dd-mmmm-aaaa")&" e "&TEXTO(B1;"dd-mmmm-aaaa"&"]")
=SOMARPRODUTO(--(DIA.DA.SEMANA(LIN(INDIRETO(A1&":"&B1));1)=C1))& " Semanas"

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel








Produtos de beleza e saúde a bons preços com a confiança das Lojas submarino

Fórmula do aplicativo microsoft excel conta o total de anos bissexto entre um intervalo de datas
Saberexcel - Dicas fórmulas e Funções


Esta fórmula do aplicativo microsoft excel contará anos bissexto entre duas datas2 datas.
Observe a que a data na célula(E4) deve ser igual ou maior que a data a ser comparada na célula(c4)
para que não haja erro no cálculo tendo em vista que estamos lidando com um calendário Gregroriano
pois esse calendário é mais usado por muitos países.
Por Exemplo:
Célula(C4) = digite a data inicial: ( ex: 01/01/1950 )
Célula(E4) = digite =HOJE() : (ex: 19/07/2010 )
Celula(I15)= Insira a Fórmula :
'=DATA(ANO(E4);1;1)-DATA(ANO(C4);1;1)-((ANO(E4)-ANO(C4))*365)+E(MÊS(DATA(ANO(C4);2;29))=2;MÊS(DATA(ANO(E4);2;29))=2)*1

Retorno : 15 (anos bissextos neste intervalo)

Concatenando os dados
Aqui fiz um exemplo de concatenação para voce aprender a usar no seu dia-a-dia, que bom aprender.
Fórmula usada para obtençao da mensagem concatenada com os dados desejados:

="Neste intervalo de dadas(C4:E4): [ "&TEXTO(C4;"dd-mmmm-aaaa")&" ] à "&"[ "&TEXTO(E4;"dd-mm-aaa")&" ] há [ "&I15&" ] anos bissextos"

Resultado da fórmula concatenação:
Neste intervalo de datas(C4:E4): [ 01-outubro-1950 ] à [ 29-07-2010 ] há [ 15 ] anos bissextos




Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel

Saberexcel - o Site das Macros.
Essa funçao do Aplicativo Microsoft Excel, função FIMMÊS, retorna o último dia de determinado mês, aqui inserí um exemplo de formula alternativa para a função FIMMÊS.

Usando a Funçao FIMMÊS para retornar último dia do mês

31/01/2011 =SE(B15="";"";FIMMÊS(E9;0))
28/02/2011 =SE(B16="";"";FIMMÊS(E9;B15))

Formula opcional à Funçao FIMMÊS
31/01/2011 =DATA(ANO(E6);B15+1;1)-1

01/01/2011

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com SaberExcel

Fórmulas para obter uma data flutuante a partir de células separadas
Saberexcel - Dicas de Fórmulas e Funções

Para obter a data flutuante temos que inserí-las separadamente em células diferentes na folha de planilha do aplicativo microsoft Excel
Celula(C5) = Ano (2011);
Célula(C6) = Mês(Maio) '5
Celula(C7) = 1 é o dia (5) durante o primeiro domingo; 2 durante a primeira Segunda-feira ...
o número máximo será 35 que ser igual ao quinto sábado (lembrando que o mês de fato tem 5 sábados)

Celula(C5) 2011 << Ano 201 1 Segunda-Feira
Célula(C6) 5 << Mês 2 Terça-Feira
Celula(C7) 5 << Dia 3 Quarta-Feira
4 Quinta-Feira
5 Sexta-Feira
6 Sábado
7 Domingo


Obtendo a data baseado nas células(C5;C6;C7)
05/05/2011
Fórmula usada:
=SE(MÊS(DATA(C4;C5;1))<>MÊS(SE(DIA.DA.SEMANA(DATA(C4;C5;1)-(DIA.DA.SEMANA(DATA(C4;C5;1))-C6))<DIA.DA.SEMANA(DATA(C4;C5;1));DATA(C4;C5;1)+(C6-DIA.DA.SEMANA(DATA(C4;C5;1)))+7;DATA(C4;C5;1)-(DIA.DA.SEMANA(DATA(C4;C5;1))-C6)));"";SE(DIA.DA.SEMANA(DATA(C4;C5;1)-(DIA.DA.SEMANA(DATA(C4;C5;1))-C6))<DIA.DA.SEMANA(DATA(C4;C5;1));DATA(C4;C5;1)+(C6-DIA.DA.SEMANA(DATA(C4;C5;1)))+7;DATA(C4;C5;1)-(DIA.DA.SEMANA(DATA(C4;C5;1))-C6)))

Exemplo de concatenação de datas:
5/5/2011
Fórmula usada:
=C6&"/"&C5&"/"&C4


Formula retorna o último dia do mês da data
Se você quis o dia útil no mês atual, no mes precedente ou anterior ; use esta fórmula
(Esta fórmula calcula como em cima exceto há só 7 dias para selecionar; no domingo = 1; na Segunda-feira = 2.... No sábado = 7)


26/05/2011 quinta-feira
fórmula usada:
=SE(C6<>MÊS(DATA(C5;C6+1;0)-(DIA.DA.SEMANA(DATA(C5;C6+1;0))-C7));DATA(C5;C6+1;0)-(DIA.DA.SEMANA(DATA(C5;C6+1;0))-C7)-7;DATA(C5;C6+1;0)-(DIA.DA.SEMANA(DATA(C5;C6+1;0))-C7))

Fórmula melhorada e reduzida (Retorna a última dia da semana no mês)
Enviada pelo amigo Reginaldo (Aucas Informatica Visual Basic Net)
26/05/2011 quinta-feira
Fórmula usada: =DATA(C5;C6+1;0)-DIA.DA.SEMANA(DATA(C5;C6+1;0))+C7+SE(DIA.DA.SEMANA(DATA(C5;C6+1;0))<C7;-7;0)

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel - o site das macros