|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
05.11.2009, 08:07 | #1 |
Форумчанин
Регистрация: 30.09.2008
Сообщений: 104
|
автоматическая вставка даты в нужном падеже
Здравствуйте!
Необходимо вставить дату в диапазон ячеек E2:En в формате 05 ноября 2009г. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("D2:D100")) Is Nothing Then With Target(1, 2) .Value = Format(Now, "Long Date") End With End If If IsEmpty(Target) Then Target(1, 2) = Empty End If End Sub при выполнении данного кода получаю 5 Ноябрь 2009 г. |
05.11.2009, 08:26 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Код:
|
05.11.2009, 10:10 | #3 | |
Форумчанин
Регистрация: 30.09.2008
Сообщений: 104
|
Цитата:
|
|
05.11.2009, 11:37 | #4 |
Пользователь
Регистрация: 04.10.2009
Сообщений: 71
|
Всем большой привет!
Ради Бога, извените меня за непрошенное вторжение! Но, все таки, как вставить месяц словом в падеже, с маленькой буквы да еще и на украинском языке. Например так: 05 листопада 2009 р. Спасибо! Последний раз редактировалось ХочуЗнать; 05.11.2009 в 11:43. |
05.11.2009, 12:04 | #5 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Цитата:
Код:
Код:
|
|
05.11.2009, 12:40 | #6 |
Пользователь
Регистрация: 04.10.2009
Сообщений: 71
|
Еще раз спасибо!
Но, На листе Эксель работает, а вот в коде ВБА почемуто не хочет. Коды привожу ниже Private Sub Calendar1_Activate() If Not IsEmpty(ActiveCell.Value) And IsDate(ActiveCell.Value) Then Me.Calendar1.Value = ActiveCell.Value Else Me.Calendar1.Value = Date End If Me.Caption = "Сьогодні - " & Date & " року" End Sub Private Sub Calendar1_Click() End Sub Application.EnableEvents = False ActiveCell = Me.frm_Calendar.Value ActiveCell.NumberFormat = "dd.mm.yyyy р." Unload Me Application.EnableEvents = True End Sub |
05.11.2009, 13:17 | #7 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
А что, нельзя было попробовать так:
Код:
|
05.11.2009, 14:08 | #8 |
Пользователь
Регистрация: 04.10.2009
Сообщений: 71
|
В том и дело, что пробовал, но ничего не получается. Пишет 5 Листопад 2009 р.
А нужно мне это для календарика, который нашел на Планета РУ и хочу приспособить на свою форму. Этот файл с календариком прикрепляю.А саму дату вы можете найти в шапке выпадающего календарика. Последний раз редактировалось ХочуЗнать; 05.11.2009 в 14:12. |
05.11.2009, 14:33 | #9 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Надо свой формат создать.
Через часик ,что нибудь придумаю
Анализ,обработка данных Недорого
|
05.11.2009, 15:09 | #10 | |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Цитата:
у меня это давно и успешно работает: назви місяців українською мовою у родовому відмінку (починаються з маленької літери)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вставка даты в БД | artemavd | БД в Delphi | 4 | 07.08.2009 18:06 |
вставка даты циклом из edit | artemavd | Общие вопросы Delphi | 30 | 03.08.2009 18:44 |
автоматическая вставка результата поиска в прайсе в файл расчета | ATTA | Microsoft Office Excel | 23 | 29.01.2008 14:07 |
Вставка текущей даты в БД! | Oleg Romanchuk | БД в Delphi | 5 | 21.08.2007 19:59 |
Вставка даты в несколько DBDateTimeEditEh одновременно!? | John_chek | Компоненты Delphi | 3 | 12.02.2007 16:34 |