1

Тема: Отображение даты

Здравствуйте!
При использовании функции слияния в Word дата отображается в таком виде 01/17/2018, т.е. месяц/число/год мне же нужно отображать дату в виде 17.01.2018
Подскажите пож. как решить мою проблему

2

Re: Отображение даты

Здравствуйте,

На сколько мне известно, отображение даты берется из "региональных настроек" windows.
Предполагаю, у вас англоязычная OC. Вам надо в "Control panel" изменить в "regional settings" настройки на Russian. Если непонятно, в личку... Отправлю картинки.

"Ты не умничай, ты пальцем покажи"
"Кто поработал с многоуровневым списком в Ворде, тот в цирке не смеется"

3

Re: Отображение даты

Посмотрел формат даты как Вы советовали - формат отображается правильно, т.е. dd.mm.yyyy
У меня уже был подобный случай и там проблема решалась добавлением к имени поля описания нужного формата. К сожалению я не сохранил запись. Проблема актуальна.

4

Re: Отображение даты

Пожалуйста, приложите к сообщению фрагмент вашего файла. "Чувствительную" информацию удалите. Посмотрим...

"Ты не умничай, ты пальцем покажи"
"Кто поработал с многоуровневым списком в Ворде, тот в цирке не смеется"

5

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
"Ты не умничай, ты пальцем покажи"
"Кто поработал с многоуровневым списком в Ворде, тот в цирке не смеется"

6

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
"Ты не умничай, ты пальцем покажи"
"Кто поработал с многоуровневым списком в Ворде, тот в цирке не смеется"