Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » shupike
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Date Picker. Как включить в проект mscomct2.ocx, чтобы запускать на любом компьютере?
 
#
17.05.2021 17:47:45
Всем спасибо за помощь! :-)
 
Перейти    
Date Picker. Как включить в проект mscomct2.ocx, чтобы запускать на любом компьютере?
 
#
14.05.2021 18:29:07
Спасибо, затупил страшно :-) А интервал выделенный так можно заполнить? Например, было вот так у меня:
Код
Dim date1 As Date, date2 As Date, Cell As Range
     date1 = DTPicker1.Value
     date2 = DTPicker2.Value
     
     For Each Cell In Selection
         Cell.NumberFormat = "[$-FC19]dd mmmm yyyy г.;@"
         Cell = Application.WorksheetFunction.RandBetween(date1, date2)
     Next Cell
 
Перейти    
Date Picker. Как включить в проект mscomct2.ocx, чтобы запускать на любом компьютере?
 
#
14.05.2021 18:25:29
Цитата
Юрий М написал:
И причём тут Мас?
Да это я от себя уже просто - понял, что даже если бы удалось выкрутиться с OCX, зарегистрировав его на нужном компьютере, то с Mac точно не прокатило бы...
 
Перейти    
Date Picker. Как включить в проект mscomct2.ocx, чтобы запускать на любом компьютере?
 
#
14.05.2021 18:11:42
Подождите, так это и на Mac OS не будет ведь работать стандартный Date Picker из MS Date Time Picker 6.0? То есть только такой огород городить?
 
Перейти    
Date Picker. Как включить в проект mscomct2.ocx, чтобы запускать на любом компьютере?
 
#
14.05.2021 18:04:09
Неа.
 
Перейти    
Date Picker. Как включить в проект mscomct2.ocx, чтобы запускать на любом компьютере?
 
#
14.05.2021 16:48:10
А с ячейкой можете сбросить, если не затруднит?
 
Перейти    
Date Picker. Как включить в проект mscomct2.ocx, чтобы запускать на любом компьютере?
 
#
14.05.2021 15:13:26
Ничего там не выводится - есть 2 кнопки - показать и скрыть календари. Выскакивает 4 варианта, при нажатии на любом из них он просто исчезает. Возможно, мы говорим о разных файлах, я скачал вот этот архив: https://www.planetaexcel.ru/bitrix/components/bitrix/forum.interface/show_file.php?fid=55836&amp...
 
Перейти    
Date Picker. Как включить в проект mscomct2.ocx, чтобы запускать на любом компьютере?
 
#
14.05.2021 14:56:56
Честно сказать, не понял, как в нем вытаскивать дату - там просто примеры календарей. Особенно впечатляет бесконечная лента событий нажатия на ту или иную клетку даты:
 
Перейти    
Date Picker. Как включить в проект mscomct2.ocx, чтобы запускать на любом компьютере?
 
#
14.05.2021 12:27:40
Добрый день, смастерил генератор заполнения случайными датами, но проблема в том, что в проект добавлен mscomct2.ocx (поля со списком выбора дат) и если запускать этот документ на другой машине с Windows 10, эти элементы не прорисовываются, возникает ошибка. Это на каждом клиенте прижется вручную регистрировать mscomct2? А можно как-то включить библиотеку сразу в документ?
 
Перейти    
VBA, Заполнить диапазон ячеек рандомными датами
 
#
14.05.2021 12:15:26
Спасибо, сделал в итоге так:
Код
Private Sub CommandButton1_Click()
Dim date1 As Date, date2 As Date, Cell As Range
    date1 = DTPicker1.Value
    date2 = DTPicker2.Value
    
    For Each Cell In Selection
        Cell.NumberFormat = "[$-FC19]dd mmmm yyyy г.;@"
        Cell = Application.WorksheetFunction.RandBetween(date1, date2)
    Next Cell
End Sub

Даты нужно вставлять в виде "14 мая 2021 г."
 
Перейти    
VBA, Заполнить диапазон ячеек рандомными датами
 
#
14.05.2021 10:24:42
Цитата
New написал:
1Range("A1:A50").Formula = "=RANDBETWEEN(" & date1 & "," & date2 & ")"
Выдает вот такую ошибку:javascript: void(0);
 
Перейти    
VBA, Заполнить диапазон ячеек рандомными датами
 
#
13.05.2021 16:57:00
Добрый день! Подскажите, плиз - нужно при помощи формы задавать диапазон дат и в выбранном диапазоне заполнять лист рандомными датами. Сначала сделал вот так, без формы:
Range("A1:A50").Formula = "=RANDBETWEEN(DATE(2018,1,1),DATE(2020,1,1))"
Просто проверить чтобы. Добавил форму, набросал 2 Date Picker'а - рядом кнопка "Считать". Забираю значения дат и надо бы их передать в RANDBETWEEN, но не пойму, в каком формате это делается. То есть если -
Код
Private Sub CommandButton1_Click()
date1 = DTPicker1.Value
date2 = DTPicker2.Value
Range("A1:A50").Formula = "=RANDBETWEEN(date1,date2)"
End Sub

ничего не получается. Как правильно передать значение в данном случае? Заранее благодарен :-)
 
Перейти    
Страницы: 1
Наверх