Como gerar uma data aleatória de dia útil ou fim de semana no Excel?
Este tutorial mostra como gerar datas aleatórias exclusivamente em dias úteis ou apenas nos fins de semana no Excel. Siga os passos abaixo para mais detalhes.
Gerar apenas dias úteis aleatórios no Excel
Gerar apenas dias úteis aleatórios ou apenas fins de semana com Kutools para Excel 
Gerar apenas dias úteis aleatórios no Excel
No Excel, existem dois métodos que o podem ajudar a gerar apenas dias úteis aleatórios num intervalo de datas, conforme necessário.
Método 1: gerar dia útil aleatório com fórmula
Selecione uma célula e introduza esta fórmula:=DATA(2014;1;1)+MAIOR(SE(DIA.SEMANA(DATA(2014;1;1)+LIN($1:$365)-1;2)<6;LIN($1:$365)-1;«»);ALEATÓRIOENTRE(1;SOMA(--(DIA.SEMANA(DATA(2014;1;1)+LIN($1:$365)-1;2)<6)))). Depois, prima Shift + Ctrl + Enter simultaneamente e arraste a alça de preenchimento até ao intervalo onde pretende gerar dias úteis. Veja a imagem:
Dica:
1. Se pretender gerar dias úteis aleatórios e únicos, utilize esta fórmula:=DATA(2014;1;1)+(MAIOR(SE(DIA.SEMANA((DATA(2014;1;1)+LIN($1:$365)-1)*((CONTAR.SE($A$1:A1;DATA(2014;1;1)+LIN($1:$365)-1))=0);2)<6;LIN($1:$365)-1;«»);ALEATÓRIOENTRE(1;SOMA(--(DIA.SEMANA((DATA(2014;1;1)+LIN($1:$365)-1)*((CONTAR.SE($A$1:A1;DATA(2014;1;1)+LIN($1:$365)-1))=0);2)<6)))) e não se esqueça de premir Shift + Ctrl + Enter.
2. Nas fórmulas acima, 2014,1,1 é a data de início do seu intervalo de datas pretendido e 365 é o número de dias desse intervalo; pode alterá-los conforme necessário.
3. Não é possível introduzir na célula A1 a fórmula que gera dias úteis aleatórios e únicos.
Método 2: gerar dia útil aleatório dentro de um ano com VBA
Se pretender gerar dias úteis aleatórios dentro de um ano e estiver familiarizado com VBA, proceda da seguinte forma:
1. Prima Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o código VBA abaixo na janela que surge.
VBA: Gerar dias úteis aleatórios num determinado ano.
Dim RandomizedYet As Boolean
'Updateby20150108
Function RandomizeDates(pYear As Long)
Dim i As Long
Dim DaysInYear As Long
Dim xIndex As Long
Dim RndIndex As Long
Dim Temp As Date
Dim Weekdays() As Variant
If Not RandomizedYet Then
RandomizedYet = True
Randomize
End If
DaysInYear = DateSerial(pYear + 1, 1, 1) - DateSerial(pYear, 1, 1)
ReDim Weekdays(1 To DaysInYear)
For i = 1 To DaysInYear
If Weekday(DateSerial(pYear, 1, i), vbMonday) < 6 Then
xIndex = xIndex + 1
Weekdays(xIndex) = DateSerial(pYear, 1, i)
End If
Next
ReDim Preserve Weekdays(1 To xIndex)
For i = xIndex To 1 Step - 1
RndIndex = Int(i * Rnd + 1)
Temp = Weekdays(RndIndex)
Weekdays(RndIndex) = Weekdays(i)
Weekdays(i) = Temp
Next
RandomizeDates = Application.WorksheetFunction.Transpose(Weekdays)
End Function
3. Guarde o código e prima Fechar esta janela para regressar à sua folha de cálculo. Introduza a fórmula =DatasAleatórias(2014) numa célula, prima a tecla Enter e arraste a alça de preenchimento até ao intervalo pretendido. Veja a imagem:
Gerar apenas dias úteis aleatórios ou apenas fins de semana com Kutools para Excel
Após instalar gratuitamenteKutools para Excel, proceda da seguinte forma:
1. Selecione o intervalo onde pretende gerar dias úteis ou datas de fim de semana e clique em Kutools > Inserir dados aleatórios. Veja a imagem:
2. Na caixa de diálogo Inserir dados aleatórios, clique no separador Data e, em seguida, no botão do calendário para selecionar a data de início e a data de término pretendidas; marque depois a opção Dia útil ou Fim de semana que necessita. Se pretender gerar datas únicas, pode ativar a opção Único. Veja a imagem:
3. Clique em Ok para aplicar e fechar a caixa de diálogo; as datas únicas de fim de semana serão então geradas na seleção.
Dica: Se lhe for permitido inserir dados duplicados, basta desativar a opção Valores Únicos na caixa de diálogo.
Com a função Inserir Dados Aleatórios, pode ainda gerar números inteiros, horas, cadeias de caracteres e listas personalizadas.Clique aqui para saber mais.
Artigos Relacionados
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos