Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 31.08.2012, 15:10   #1
Tanit
Пользователь
 
Регистрация: 31.08.2012
Сообщений: 19
Восклицание Проблемы с форматом ячеек

В файле есть даты в виде дд.мм.гг, мне нужно перевести их в формат дд.мм.гггг. Нажимаю Формат ячеек - Дата, меняю,но никаких изменений нет. Изменения появляются только после двойного щелчка на ячейку.

Как этот двойной щелчок можно прописать в макросе, учитывая то, что даты будут разные на каждой неделе.

Заранее спасибо.
Вложения
Тип файла: rar формат ячеек.rar (5.3 Кб, 21 просмотров)
Tanit вне форума Ответить с цитированием
Старый 31.08.2012, 16:37   #2
ZORRO2005
Форумчанин
 
Аватар для ZORRO2005
 
Регистрация: 26.11.2006
Сообщений: 584
По умолчанию

Самый простой способ:
Изображения
Тип файла: jpg Текст-Дата.jpg (58.2 Кб, 184 просмотров)
ZORRO2005 вне форума Ответить с цитированием
Старый 31.08.2012, 17:34   #3
Tanit
Пользователь
 
Регистрация: 31.08.2012
Сообщений: 19
По умолчанию

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

Но уже подсказали, можно просто: "=ДАТАЗНАЧ(A6)" и все будет правильно показывать. Только вот почему получился такой глюк- неизвестно
Tanit вне форума Ответить с цитированием
Старый 31.08.2012, 18:26   #4
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Записал

Код:
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 31.08.2012 by Hugo
'

'
    Range("A6:A9").Select
    Selection.NumberFormat = "m/d/yyyy"
    Selection.TextToColumns Destination:=Range("A6"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
    Columns("A:A").EntireColumn.AutoFit
End Sub
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Копирование с форматом liker125 Microsoft Office Word 3 01.09.2012 00:10
Работа с форматом ISO Lier Общие вопросы Delphi 5 13.05.2012 20:13
Проблема с форматом ячеек clasterit Microsoft Office Excel 1 02.03.2012 09:18
Проблемы с форматом данных maxic Microsoft Office Excel 9 17.09.2009 16:33
Робота с форматом png BIBOSS Мультимедиа в Delphi 1 26.06.2009 20:08