Тема: Отображение даты
Здравствуйте!
При использовании функции слияния в Word дата отображается в таком виде 01/17/2018, т.е. месяц/число/год мне же нужно отображать дату в виде 17.01.2018
Подскажите пож. как решить мою проблему
Re: Отображение даты
Здравствуйте,
На сколько мне известно, отображение даты берется из "региональных настроек" windows.
Предполагаю, у вас англоязычная OC. Вам надо в "Control panel" изменить в "regional settings" настройки на Russian. Если непонятно, в личку... Отправлю картинки.
"Ты не умничай, ты пальцем покажи"
"Кто поработал с многоуровневым списком в Ворде, тот в цирке не смеется"
"Кто поработал с многоуровневым списком в Ворде, тот в цирке не смеется"
Re: Отображение даты
Посмотрел формат даты как Вы советовали - формат отображается правильно, т.е. dd.mm.yyyy
У меня уже был подобный случай и там проблема решалась добавлением к имени поля описания нужного формата. К сожалению я не сохранил запись. Проблема актуальна.
Re: Отображение даты
Пожалуйста, приложите к сообщению фрагмент вашего файла. "Чувствительную" информацию удалите. Посмотрим...
"Ты не умничай, ты пальцем покажи"
"Кто поработал с многоуровневым списком в Ворде, тот в цирке не смеется"
"Кто поработал с многоуровневым списком в Ворде, тот в цирке не смеется"
Re: Отображение даты
Познания мои в Excel так себе но чуть лучше знаю VBA. Как то так, преобразует данные ячейки из текстового формата в формат даты и задает формат ячейки.
Sub test1()
Set currentcell = Worksheets(1).Range("a1") '
Do While Not IsEmpty(currentcell) '
Set nextCell = currentcell.Offset(1, 0)
If IsDate(Format(currentcell, "d.mm.yyyy")) Then
currentcell.Value = Format(currentcell, "d.mm.yyyy")
currentcell.NumberFormat = "m/d/yyyy"
End If
Set currentcell = nextCell
Loop
End Sub"Ты не умничай, ты пальцем покажи"
"Кто поработал с многоуровневым списком в Ворде, тот в цирке не смеется"
"Кто поработал с многоуровневым списком в Ворде, тот в цирке не смеется"
Re: Отображение даты
Более универсально: выделил диапазон ячеек, запустил макрос...
Sub TextToDateViaSelect()
Dim rng As Range
Dim cel As Range
Set rng = Application.Selection
For Each cel In rng.Cells
If IsDate(Format(cel, "d.mm.yyyy")) Then
cel = Format(cel, "d.mm.yyyy")
cel.NumberFormat = "m/d/yyyy"
End If
Next cel
End Sub"Ты не умничай, ты пальцем покажи"
"Кто поработал с многоуровневым списком в Ворде, тот в цирке не смеется"
"Кто поработал с многоуровневым списком в Ворде, тот в цирке не смеется"