Страницы: 1
RSS
Date Picker. Как включить в проект mscomct2.ocx, чтобы запускать на любом компьютере?
 
Добрый день, смастерил генератор заполнения случайными датами, но проблема в том, что в проект добавлен mscomct2.ocx (поля со списком выбора дат) и если запускать этот документ на другой машине с Windows 10, эти элементы не прорисовываются, возникает ошибка. Это на каждом клиенте прижется вручную регистрировать mscomct2? А можно как-то включить библиотеку сразу в документ?
 
Вместо mscomct2.ocx использовать календарь
 
Честно сказать, не понял, как в нем вытаскивать дату - там просто примеры календарей. Особенно впечатляет бесконечная лента событий нажатия на ту или иную клетку даты:
 
Цитата
shupike написал:
не понял, как в нем вытаскивать дату - там просто примеры календарей.
В одном из примеров дата выводится в активную ячейку, в другом в MsgBox. Что не так?
 
Ничего там не выводится - есть 2 кнопки - показать и скрыть календари. Выскакивает 4 варианта, при нажатии на любом из них он просто исчезает. Возможно, мы говорим о разных файлах, я скачал вот этот архив: https://www.planetaexcel.ru/bitrix/components/bitrix/forum.interface/show_file.php?fid=55836&amp...
 
Всё тавм выводится. Вот вариант с выводом в MsgBox.
 
А с ячейкой можете сбросить, если не затруднит?
 
Просто замените MsgBox на activecell
 
Неа.
 
= )))
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Подождите, так это и на Mac OS не будет ведь работать стандартный Date Picker из MS Date Time Picker 6.0? То есть только такой огород городить?
 
Цитата
shupike написал:
Неа.
Игорь Вам подсказывает, что пропустили знак "равно": activecell = ...
И причём тут Мас?
 
Цитата
Юрий М написал:
И причём тут Мас?
Да это я от себя уже просто - понял, что даже если бы удалось выкрутиться с OCX, зарегистрировав его на нужном компьютере, то с Mac точно не прокатило бы...
 
Спасибо, затупил страшно :-) А интервал выделенный так можно заполнить? Например, было вот так у меня:
Код
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
 
Можно или нет - это Вы в состоянии проверить самостоятельно. А вот код следует оформлять соответствующим тегом. Ищите такую кнопку (См. скрин) и исправьте своё сообщение.
 
Всем спасибо за помощь! :-)
Страницы: 1
Наверх