Как сгенерировать случайную дату буднего или выходного дня в Excel?
В этом руководстве говорится о создании в Excel только случайных дней недели или только случайных дат выходных. Чтобы получить более подробную информацию, выполните следующие действия.
Создавать только случайные дни недели в Excel
Создавать только случайный будний день или только случайные выходные с Kutools for Excel
Создавать только случайные дни недели в Excel
В Excel есть два метода, которые помогут вам рандомизировать только будние дни в диапазоне дат по мере необходимости.
Метод 1: создание случайного дня недели с помощью формулы
Выберите ячейку и введите эту формулу = ДАТА (2014; 1; 1) + БОЛЬШОЙ (ЕСЛИ (ДЕНЬ НЕДЕЛИ (ДАТА (2014; 1; 1) + СТРОКА (1 долл. США) -365; 1) <2, СТРОКА (6 долл. США: 1 долл. США) -365, "" ), RANDBETWEEN (1, SUM (- (WEEKDAY (DATE (1, 2014, 1) + ROW ($ 1: $ 1) -365, 1) <2)))), Затем нажмите Shift + Ctrl + Ввод одновременно, а затем перетащите маркер заполнения в диапазон, который вы хотите создать для дня недели. Смотрите скриншот:
Наконечник:
1. Если вы хотите создать уникальные случайные дни недели, вы можете использовать эту формулу =DATE(2014, 1, 1)+(LARGE(IF(WEEKDAY((DATE(2014, 1, 1)+ROW($1:$365)-1)*((COUNTIF($A$1:A1, DATE(2014, 1, 1)+ROW($1:$365)-1))=0), 2)<6, ROW($1:$365)-1, ""), RANDBETWEEN(1, SUM(--(WEEKDAY((DATE(2014, 1, 1)+ROW($1:$365)-1)*((COUNTIF($A$1:A1, DATE(2014, 1, 1)+ROW($1:$365)-1))=0), 2)<6))))) и не забудьте нажать Shift + Ctrl + Ввод.
2. В приведенных выше формулах 2014,1,1 - это начальная дата необходимого диапазона дат, 365 - количество дней в вашем диапазоне дат, вы можете изменить их по своему усмотрению.
3. Вы не можете поместить формулу, генерирующую уникальные случайные дни недели в A1.
Метод 2 сгенерировать случайный будний день в течение года с помощью VBA
Если вы хотите рандомизировать рабочие дни в течение года и знакомы с VBA, вы можете сделать следующее:
1. Нажмите Alt + F11 ключи для открытия Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модули, затем вставьте ниже код VBA во всплывающие окна.
VBA: рандомизировать будний день в течение года.
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. Сохраните код и закройте окно, чтобы вернуться на рабочий лист, и введите эту формулу.= RandomizeDates (2014) в ячейку, затем нажмите Enter и перетащите маркер заполнения в нужный диапазон. Смотрите скриншот:
Создавать только случайный будний день или только случайные выходные с Kutools for Excel
Kutools for Excel, с более чем 300 удобные функции, облегчающие вашу работу. |
После бесплатная установка Kutools for Excel, сделайте следующее:
1. Выберите диапазон, для которого вы хотите создать дни будни или выходных, затем щелкните Кутулс > Вставить случайные данные. Смотрите скриншот:
2. в Вставить случайные данные диалоговое окно, нажмите Время вкладка, а затем кнопка календаря чтобы выбрать желаемую дату начала и дату окончания, затем установите флажок Рабочий день or Выходные вариант, который вам нужен, если вы хотите сгенерировать уникальную дату, вы можете проверить Уникальное Произведение вариант. Смотрите скриншот:
3. Нажмите Ok чтобы применить и закрыть диалоговое окно, то при выборе генерируются уникальные даты выходных.
Наконечник: Если вам разрешено вставлять дубликаты данных, просто снимите флажок Уникальные ценности в диалоге
С помощью функции «Вставить случайные данные» вы также можете рандомизировать целое число, время, строку и настраиваемый список. Кликните сюда для получения дополнительной информации.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!