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

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

 
Formula verifca se o ano é bissexto e retorna verdadeiro ou falso
Saberexcel - Dicas de Fórmulas e funções

Essas fórmulas verificam se o ano de determinada data é ou não bissexto, fiz uma fórmula que concatena(&)
esses dados e retorna uma mensagem, também tem uma FC (Formatação Condicional)

Fórmula verifica se ano é bissexto ou não, retornando VERDADEIRO ou FALSO
Fórmula: '=MOD(ANO(A1);4)=0

Fórmula melhorada:
Fórmula: '=OU(MOD(ANO(I6);400)=0;E(MOD(ANO(I6);4)=0;MOD(ANO(I6);100)<>0))

Sugestão do amigo Reginaldo (Aucas Informática)
Fórmula: '=MÊS(DATA(ANO(I6);2;29))=2


Aprenda tudo sobre o Aplicativo microsoft Excel VBA com Saberexcel

Compre o que deseja nas lojas submarino com garantia e segurança

Fórmulas do aplicativo Microsoft Excel convertem formato 'horas 14:45:38' para formato decimal '14,.7,5'
Saberexcel - dicas do excel fórmulas e funções

Exemplos:
Célula(A1) = 14:45:38
Fórmula Usada ......: =HORA(A1)&"."&SUBSTITUIR(MINUTO(A1)/6;".";"")
Retorno............... : 14.7,5

Use com o formato Geral para retorno do Decimal
Fórmula Usada ......: =24*A1
Retorno............... : 18:15:12


Fórmula também gera o mesmo resultado (Formato Geral)
Fórmula Usada ......: =HORA(A1)+(MINUTO(A1)/60)
Retorno................: 14,75


Fórmula também gera o mesmo resultado (Formato Geral)
Fórmula Usada ......: =HORA(A1)+(MINUTO(A1)/60)+(SEGUNDO(A1)/3600)
Retorno................: 14,76055556


Fórmula também gera o mesmo resultado (Formato Geral)
Fórmula Usada ......: =TEMPO(HORA(A1);MINUTO(A1);SEGUNDO(A1))*24
Retorno................: 14,76055556

Formula Allternativa
Fórmula Usada ......: =INT(4*(A1*24-INT(A1*24)))*0,25
Retorno................: 0,75


Fórmula usando a Função MARRED() para arredondar hora
para funcionar, instale Suplemento Ferramenta de Análise
Fórmula Usada ......: =((HORA(A1)*60)+MARRED(MINUTO(A1);15))/60
Retorno................: 14,75


Use a formatação PM e ou AM
Fórmula Usada ......: =SE(MOD(A1;12)=0;12;MOD(A1;12))
Retorno................: 2:45:38 PM



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel








Compre com segurança e garantia pela internet nas lojas Submarino

Fórmula sugere o dia útil mais proximo de uma data final de semana (Sábado ou Domingo)
Saberexcel - dicas funções e fórmulas

Evite fins de semana usando fórmulas do Microsoft Excel, que fórnece a dia da semana útil mais perto da sua data de entrega
Digamos que você deva entregar em um dia útil mas a data mostrada em B2 está em um sábado ou no domingo.
Use esta fórmula para ser atriguido ao dia precedente na Sexta-feira e ou Segunda-Feira
(se a data for já um dia útil, ele mostrará somente a data na célula onde contém a fórmula)


Sugestão dia para embarque:

para obter a data sexta feira precedente a data na célula B2
Supondo que data seja ()....: 24/10/2010 (Domingo)
Fórmula usada................... : =MÍNIMO(A1-(DIA.DA.SEMANA(A1;2)-5);A1)
Retona da Fórmula..............: 22/10/2010 sexta-feira

Use esta fórmula mostrar a próxima Segunda feira, da data na célula B2, mostra a próxima segunda feira a essa data se for fim de semana
Supondo que data seja () 24/10/2010 (Domingo)
Fórmula usada...................: '=SE(DIA.DA.SEMANA(B2;2)>5;B2+(8-DIA.DA.SEMANA(B2;2));B2)
Retona da Fórmula.............: 25/10/2010 segunda-feira

ou

Retona da Fórmula.............: 25/10/2010 segunda-feira
Retona da Fórmula.............: =SE(DIA.DA.SEMANA(B2;2)>6;B2+(8-DIA.DA.SEMANA(B2;2));B2)



Concatenando dados para montar uma mensagem:
Msg: Se você tem um embarque para fazer nesta data [ 24-domingo-outubro-2010 ] sugiro que faça nesta data:[ sexta-feira-22-outubro-2010 ]

Fórmula usada:
="Se você tem um embarque para fazer nesta data [ "&TEXTO(A1;"dd-dddd-mmmm-aaaa")&" ] sugiro que faça nesta data:[ "&TEXTO(G11;"dddd-dd-mmmm-aaaa")&" ]"



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel