Как сгенерировать случайную дату в определенном формате в ячейке с помощью VBA?

Мой фрагмент кода выглядит следующим образом

  Dim num As IntegerDim dblRandBetween As DoubleDim startDate As Date, endDate As DatestartDate = "1/1/1990" endDate =  «01.01.2012» num = InputBox («Сколько номеров IC необходимо сгенерировать») For i = 1 To num Set curCell = Worksheets («Sheet1»). Cells (i, 3) dblRandBetween = WorksheetFunction.RandBetween (  startDate, endDate) ActiveCell.Value = dblRandBetween ActiveCell.Value.NumberFormat = "d/m/yyyy" ActiveCell.Offset (1, 0) .ActivateNext i  

Я нажимаю «Выполнить» ошибка времени: 438 «: объект не поддерживает это свойство или метод.


2

Это так же просто, как изменить:

  ActiveCell.Value.NumberFormat = "d/m/yyyy"  

до

   ActiveCell.NumberFormat = "d/m/yyyy"  

Поскольку числовой формат должен применяться к активной ячейке, а не к значению.

Может быть, попробуйте полное редактирование, как показано ниже:

  Dim num As IntegerDim dblRandBetween As DoubleDim startDate As Date, endDate As DatestartDate = "1/1/1990" endDate = "1/ 1/2012 "num = InputBox (" Сколько номеров IC необходимо сгенерировать ") For i = 1 To num dblRandBetween = WorksheetFunction.RandBetween (startDate, endDate) With Worksheets (" Sheet1 "). Cells (i, 3).  Value = dblRandBetween .NumberFormat = "d/m/yyyy" Конец WithNext i  

Улучшите этот ответ
отредактировано 04 янв. в 9:04
ответил 4 января ’16 в 8:53
  • Все еще получаю ту же ошибку, хотя я изменил код числового формата — Ашвин Баладжи Куппурадж 4 января 2016 г., 8:56
  • Я отредактировал код полностью и тестирует ОК для меня (с простой и долгой заменой). Пожалуйста, попробуйте и посмотрите. — The_Barman 04 янв., В 9:05
  • По-прежнему возникает та же ошибка после использования приведенного выше кода 🙁 — Ашвин Баладжи Куппурадж, 4 января 2016 г., 9:10
  • Я полагаю, что randbetween неприменимо в Excel 2003. Сейчас нужно найти альтернативу для генерации случайных дат — Ашвин Баладжи Куппурадж 4 января 2016, 9:40
  • если вы закомментируете строку randbetween, код работает нормально? — The_Barman 04 янв. ’16 в 9:45
| показать 1 дополнительный комментарий

Это так же просто, как изменить:

  ActiveCell.Value.NumberFormat = "d/m/yyyy"  

до

  ActiveCell.NumberFormat  = "d/m/yyyy"  

Поскольку числовой формат должен применяться к активной ячейке, а не к значению.

Возможно, попробуйте полное редактирование, как показано ниже :

  Dim num As IntegerDim dblRandBetween As DoubleDim startDate As Date, endDate As DatestartDate = "1/1/1990" endDate = "1/1/2012" num = InputBox (  «Сколько номеров IC необходимо сгенерировать») Для i = 1 До num dblRandBetween = WorksheetFunction.RandBetween (startDate, endDate) With Worksheets ("Sheet1"). Cells (i, 3) .Value = dblRandBetween .NumberFormat = "d /m/yyyy "End WithNext i  


Как быстро сгенерировать случайную дату между двумя датами в Excel?

Как быстро сгенерировать случайную дату между двумя датами в Excel?

Когда вы используете файл Excel, иногда вы хотите сгенерировать случайную дату для некоторых целей, конечно, вы можете ввести дату вручную по одной, но если вам нужно вставить несколько дат, этот метод будет трудоемким и утомительным. Как быстро сгенерировать случайную дату на Земле в Excel?

Сгенерировать случайную дату между двумя датами в ячейках с формулой

Генерация случайной даты между двумя датами в ячейках с полезной функцией


Генерация случайной даты между двумя датами в ячейках с формулой

В Excel вы можете смешивать функцию Randbetween и Date для создания случайной даты. Для этого выполните следующие действия:

1 . Выберите ячейку, в которую вы хотите вставить случайную дату, и введите эту формулу:

= RANDBETWEEN (DATE (2019, 1, 1), DATE (2019, 10, 20 ))

Примечание : в функции (2019, 1, 1) — это дата начала, а (2019, 10, 20) — дата окончания, вы можете заменить их по мере необходимости.

2 . Затем перетащите дескриптор заполнения вниз к ячейкам, которые вы хотите заполнить этой формулой, в ячейке отобразится пятизначное число, см. Снимок экрана:

. Затем вы должны отформатировать числа в формате даты, выберите ячейку и щелкните правой кнопкой мыши, выберите Форматировать ячейки в контекстном меню.

4 . В диалоговом окне Формат ячеек перейдите на вкладку Число и выберите Дата в Категории , затем выберите нужный формат даты из раскрывающегося списка Тип . См. Снимок экрана:

5 . Нажмите OK , числа преобразованы в обычные даты. И даты между указанными двумя датами были сгенерированы случайным образом. См. Снимок экрана:

  • Советы . Если вы хотите генерировать случайные рабочие дни, исключая выходные, примените следующую формулу:
  • = WORKDAY (RANDBETWEEN (ДАТА (2019, 1, 1), ДАТА (2019, 10, 1)) — 1,1)

Генерация случайной даты между двумя датами в ячейках с полезной функцией

Кажется, что описанный выше метод вызывает некоторые затруднения, есть ли более простой и быстрый способ решить эту проблему проблема? Не волнуйтесь, с помощью инструмента Вставить случайные данные в Kutools for Excel вы можете быстро вставить случайную дату, как показано ниже. Нажмите, чтобы загрузить Kutools for Excel!

Советы. Чтобы применить эту функцию Вставить случайную дату , сначала , вам следует загрузить Kutools for Excel , а затем быстро и легко применить эту функцию.

После установки Kutools for Excel , сделайте следующее:

1 . Выберите список ячеек, в который вы хотите вставить случайную дату.

2 . Нажмите Kutools > Вставить > Вставить случайные данные , см. Снимок экрана:

3 . Во всплывающем диалоговом окне Вставить случайные данные нажмите вкладку Дата , затем укажите диапазон дат и выберите тип даты (рабочий день, дата выходного дня или уникальная дата) как вам нужно. Затем нажмите кнопку OK , и даты между двумя конкретными датами будут вставлены случайным образом. См. Скриншоты:


Другие статьи об относительных случайных данных:

  • Вставить случайные (целые) числа между двумя числами
  • Вам нужно вставлять случайные числа в Microsoft Excel? Существует несколько методов вставки случайных чисел в диапазон, как показано ниже..
  • Генерация случайных строк символов в диапазоне
  • Иногда вам может потребоваться сгенерировать случайные строки в ячейках, например, разные пароли. В этой статье делается попытка показать вам некоторые приемы создания различных случайных строк в Excel.
  • Генерировать случайные Время в Excel
  • В Excel, как правило, большинству из нас может потребоваться вставить случайные числа, дату или текстовые строки по своему желанию. Но иногда вы когда-нибудь пытались вставить время случайным образом в диапазон ячеек? Фактически, мы можем применить некоторые формулы для вставки случайного времени в рабочий лист.
  • Создать случайное Да Или нет в Excel
  • В некоторых особых случаях мы можем захотеть сгенерировать случайное Да или Нет в диапазоне в Excel, здесь я расскажу вам несколько формул для быстрого генерирования случайного Да или Нет в Excel.

Лучшие инструменты для повышения производительности Office

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Повторное использование : быстро вставьте сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки паролем; Создавайте список рассылки и отправляйте электронные письма …
  • Панель супер формул (легко редактировать несколько строк текста и формул); Чтение макета (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон …
  • Объединить ячейки/строки/столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки/столбцы … Предотвратить дублирование ячеек; Сравнить диапазоны …
  • Выбрать повторяющиеся или уникальные строки; Выберите пустые строки (все ячейки пусты); Супер поиск и нечеткий поиск во многих книгах; Случайный выбор …
  • Точное копирование нескольких ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставка маркеров, флажков и прочего …
  • Извлечь текст, добавить текст, удалить по положению, удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии …
  • Суперфильтр (сохранение и применение схем фильтрации к другим листам); Расширенная сортировка по месяцам/неделям/дням, частоте и другим параметрам; Специальный фильтр жирным шрифтом, курсивом …
  • Объединить рабочие книги и рабочие таблицы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF …
  • Группировка сводной таблицы по номеру недели, дню недели и другим параметрам … Показывать разблокированные, заблокированные ячейки разными цветами; Выделите ячейки с формулой/именем … ->

  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2019 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

Подробнее … Скачать бесплатно … Купить …

Вкладка Office: переносит интерфейс с вкладками в Office и делает вашу работу намного проще

  • Разрешите редактирование и чтение с вкладками в Word, Excel, PowerPoint , Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов в новом вкладки того же окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Подробнее … Скачать бесплатно … Купить …
  • 4 комментария
  • Войти
  • Сортировать по самым новым
    • Лучшим
    • Популярные
    • Самые новые
    • Самые старые
Вы гость
или отправьте сообщение в качестве гостя, но ваше сообщение не будет опубликовано автоматически.
Загрузка комментария … Комментарий будет обновлен после 00:00.
  • Для публикации в качестве гостя ваш комментарий не будет опубликован.
    · 1 год назад
    Lapolisia te baneara esta pagina panchito huevonazo
    • Ответить
  • Для публикации в качестве гостя ваш комментарий не опубликовано.
    · 1 год назад
    ПАНЧИТО ДЖОПУТА
    • Ответить
  • Для публикации в качестве гостя ваш комментарий не будет опубликован.
    · 4 года назад
    Случайные даты
    22 июня 2018 г.
    3 июля 2018 г.
    21 октября 2022 г.
    1 июня 2026 г.
    3 июля 2045 г.
    • Ответ
  • Для публикации в качестве гостя ваш комментарий не будет опубликован.
    · 4 года назад
    2-я неделя сезона НФЛ 2017
    Сиэтл Сихокс Патриоты Новой Англии
    Сан-Диего Чарджерс Вашингтон Редскинс
    Лос-Анджелес Рэмс Тампа bay Buccaneers
    Philadelphia Eagles Pittsburgh Steelers
    • Ответить
Оцените статью
logicle.ru
Добавить комментарий