|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
28.04.2010, 08:04 | #1 |
Форумчанин
Регистрация: 09.05.2009
Сообщений: 369
|
Календарь для ввода даты
Здравствуйте. Есть календарь на форме для ввода дат, работающий в Excel, подскажите как его переделать, чтобы он работал в Worde (хотя бы кнопка "Ок").
|
28.04.2010, 10:30 | #2 |
Пользователь
Регистрация: 02.08.2008
Сообщений: 94
|
Попробуйте такой календарь, специально для Word:
http://wordexpert.ru/page/kalendar-v-word |
28.04.2010, 11:06 | #3 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
Похоже, что нужно просто заменить вот эти процедуры:
Код:
Лучше день потерять — потом за пять минут долететь!©
|
29.04.2010, 07:33 | #4 |
Форумчанин
Регистрация: 09.05.2009
Сообщений: 369
|
Всем спасибо за помощь. Я выбрал:
Selection.Text = Format(dt_1, "dd.mm.yyyy H:MM") Подскажите пожалуйста код, который прописывает даты во все выделенные ячейки Wordовской таблицы. |
29.04.2010, 07:54 | #5 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
Код:
Лучше день потерять — потом за пять минут долететь!©
|
29.04.2010, 10:10 | #6 |
Форумчанин
Регистрация: 09.05.2009
Сообщений: 369
|
viter.alex, спасибо. А как сделать, что бы работало и в ячейках и вне ячеек? Я попробовал так, не работает:
Dim oCell As Cell If oCell = Nothing Then Selection.Text = Format(dt_1, "dd.mm.yyyy H:MM") Else For Each oCell In Selection.Cells oCell.Range.Text = Format(dt_1, "dd.mm.yyyy H:MM") End If |
29.04.2010, 10:24 | #7 |
Форумчанин
Регистрация: 09.05.2009
Сообщений: 369
|
Состряпал такой код, вроде работает:
Private Sub Cmd_Select_Click() Dim oCell As Cell On Error GoTo db For Each oCell In Selection.Cells oCell.Range.Text = Format(dt_1, "dd.mm.yyyy H:MM") Next Exit Sub db: Selection.Text = Format(dt_1, "dd.mm.yyyy H:MM") End Sub Может сделаете, что нибудь получше? Последний раз редактировалось agregator; 29.04.2010 в 13:13. |
29.04.2010, 15:52 | #8 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
Например, так
Код:
Лучше день потерять — потом за пять минут долететь!©
|
30.04.2010, 04:35 | #9 |
Форумчанин
Регистрация: 09.05.2009
Сообщений: 369
|
Viter.alex, последний код работает в таблице, а вне таблицы пишет Debug на
Код:
|
30.04.2010, 08:13 | #10 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
Тогда вместо Selection.Cells.Count используйте Selection.Information(wdWithinTable ):
Код:
Лучше день потерять — потом за пять минут долететь!©
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
выпадающий календарь для ввода дат | mbrost | Microsoft Office Excel | 35 | 26.02.2018 13:29 |
Поля для ввода параметров картинки | Naroto | HTML и CSS | 5 | 28.04.2010 22:48 |
Календарь для ввода даты в поле формы | novak_26 | Microsoft Office Excel | 3 | 24.02.2010 00:45 |
Как сделать запрет ввода букв в поле для ввода input | zvezda_t | PHP | 1 | 27.12.2009 22:02 |
Как создать маску ввода даты в TextBox? | AnnNet | Microsoft Office Excel | 6 | 24.07.2008 10:42 |