Макрос VBA для заполнения случайных дат

Question

У меня есть около 10000 записей в файле Excel. Я хочу поставить случайные даты для этих 10000 записей. Случайные даты, которые я буду давать Manaully.

Например:-

Random dates:- 01-OCt-15 to 30-Oct-15

Emp id   Emp Name Sal_Date
  101     JOhn     05-OCt-15
  102     Mathew   07-OCt-15
  103     Stephen  26-Oct-15
  105     Rahul    05-oct-15 

как это..............

Answer 1

Это действительно не требует VBA.

1. поместите даты начала и окончания в две ячейки
2. в первую ячейку "sal_date" введите:
   =RANDBETWEEN(<start_date>,<end-date>)
   • отформатируйте эту ячейку с нужным вам форматом даты
3. перейти к первой ячейке "emp name"
4. нажмите CTRL+вниз - это перейдет к последнему ряду ваших данных
5. нажмите вправо, чтобы перейти к столбцу "sal_date"
6. нажмите CTRL+SHIFT+вверх - теперь выбран весь столбец
7. нажмите CTRL+D - это заполняет формулу
8. если вы хотите преобразовать формулы в постоянные значения: CTRL+C, затем в ленте выберите вставку - значения

Answer 2

В какую-то ячейку введите:

=DATE(2015,10,RANDBETWEEN(1,30))

и скопировать вниз

Если вам нужно сделать это как часть более крупного макроса, тогда:

Sub DateFiller()
   Range("A1:A10000").Formula = "=DATE(2015,10,RANDBETWEEN(1,30))"
End Sub