Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Преобразование текста в дату макрос - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Преобразование текста в дату макрос (Макросы Sub)
Преобразование текста в дату макрос
Jidorevluis Дата: Пятница, 09.08.2013, 12:22 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день.

Подскажите, пожалуйста, макрос для Преобразование текста в дату макрос, колонка arrival & departure.
к сожалению, обычный макрос, записанный через макрорекордер, не работает.

В чем может быть причина?
К сообщению приложен файл: date.xlsx (66.7 Kb)

ввв
 
Ответить
СообщениеДобрый день.

Подскажите, пожалуйста, макрос для Преобразование текста в дату макрос, колонка arrival & departure.
к сожалению, обычный макрос, записанный через макрорекордер, не работает.

В чем может быть причина?
Автор - Jidorevluis
Дата добавления - 09.08.2013 в 12:22
Serge_007 Дата: Пятница, 09.08.2013, 12:31 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Работает:
[vba]
Код
Sub Макрос1()
     Columns("C:D").Select
     Selection.Replace What:=".", Replacement:=".", LookAt:=xlPart, _
         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
         ReplaceFormat:=False
End Sub
[/vba]

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеРаботает:
[vba]
Код
Sub Макрос1()
     Columns("C:D").Select
     Selection.Replace What:=".", Replacement:=".", LookAt:=xlPart, _
         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
         ReplaceFormat:=False
End Sub
[/vba]
Автор - Serge_007
Дата добавления - 09.08.2013 в 12:31
Jidorevluis Дата: Пятница, 09.08.2013, 16:01 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Serge_007,

К сожалению, у меня нет, пробовал, у меня excel 2010, хотя здесь я думаю не важно, возможно дело в настройках даты и времени?
Хотя через CTRL+H таким же способом все работает..

ввв
 
Ответить
СообщениеSerge_007,

К сожалению, у меня нет, пробовал, у меня excel 2010, хотя здесь я думаю не важно, возможно дело в настройках даты и времени?
Хотя через CTRL+H таким же способом все работает..
Автор - Jidorevluis
Дата добавления - 09.08.2013 в 16:01
SkyPro Дата: Пятница, 09.08.2013, 17:24 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
Выделяете и запускаете:
[vba]
Код
Sub NeFormat()
        With Application: .ScreenUpdating = False: .EnableEvents = False: End With
        Dim rCell As Range
        For Each rCell In Selection.Areas
        rCell.FormulaLocal = rCell.FormulaLocal
        Next
        With Application: .ScreenUpdating = True: .EnableEvents = True: End With
End Sub
[/vba]

skypro1111@gmail.com

Сообщение отредактировал SkyPro - Пятница, 09.08.2013, 18:49
 
Ответить
СообщениеВыделяете и запускаете:
[vba]
Код
Sub NeFormat()
        With Application: .ScreenUpdating = False: .EnableEvents = False: End With
        Dim rCell As Range
        For Each rCell In Selection.Areas
        rCell.FormulaLocal = rCell.FormulaLocal
        Next
        With Application: .ScreenUpdating = True: .EnableEvents = True: End With
End Sub
[/vba]
Автор - SkyPro
Дата добавления - 09.08.2013 в 17:24
KuklP Дата: Пятница, 09.08.2013, 18:33 | Сообщение № 5
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Цитата (SkyPro, 09.08.2013 в 17:24, в сообщении №4)
Sub Format

SkyPro, настоятельно не рекомендую использовать зарезервированные слова Эксель в качестве имен процедур, переменных и т.д.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение
Цитата (SkyPro, 09.08.2013 в 17:24, в сообщении №4)
Sub Format

SkyPro, настоятельно не рекомендую использовать зарезервированные слова Эксель в качестве имен процедур, переменных и т.д.
Автор - KuklP
Дата добавления - 09.08.2013 в 18:33
SkyPro Дата: Пятница, 09.08.2013, 18:44 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
Да. Чет не подумал :)
Это в любом языке не рекомендуется.
Уже изменил.

skypro1111@gmail.com

Сообщение отредактировал SkyPro - Пятница, 09.08.2013, 18:45
 
Ответить
СообщениеДа. Чет не подумал :)
Это в любом языке не рекомендуется.
Уже изменил.
Автор - SkyPro
Дата добавления - 09.08.2013 в 18:44
KuklP Дата: Пятница, 09.08.2013, 21:27 | Сообщение № 7
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Кстати, можно без цикла
[vba]
Код
Public Sub www()
     Dim r As Range
     With ActiveSheet
         Set r = Intersect(.UsedRange, .[c:d]).Offset(1)
         r.FormulaLocal = r.FormulaLocal
     End With
End Sub
[/vba] yes

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеКстати, можно без цикла
[vba]
Код
Public Sub www()
     Dim r As Range
     With ActiveSheet
         Set r = Intersect(.UsedRange, .[c:d]).Offset(1)
         r.FormulaLocal = r.FormulaLocal
     End With
End Sub
[/vba] yes
Автор - KuklP
Дата добавления - 09.08.2013 в 21:27
Jidorevluis Дата: Понедельник, 12.08.2013, 16:50 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Да спасибо работает!!!!))))))))))))))))))))))))))))))

УУИИИИ)))

ввв
 
Ответить
СообщениеДа спасибо работает!!!!))))))))))))))))))))))))))))))

УУИИИИ)))
Автор - Jidorevluis
Дата добавления - 12.08.2013 в 16:50
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Преобразование текста в дату макрос (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!