Дата --> Текст

[stanislav24]

Добрый день!

Есть колонки заполненные датой.
Как можно эти же даты сделать текстом. Т.е. так, чтобы даты не меняли формат при переносе на различные компьютеры. Даты нигде не участвуют в расчетах, поэтому формат данных не критичен. Требуется только их визуальное отражение.

Спасибо.

[Юнлинг]

Если нужно чтобы формат был текстовый с соблюдением значений. то выдели колонки и используя формат преврати в текст. При переносе колонки если они снова становятьс тесктом то внчале необходимо перенести формат (специальная вставка) а затем сами значения с использованием (специальной вставки)

[stanislav24]

Можно немного подробнее.
Когда я меняю формат то я теряю данные - они превращаются как я понимаю в текстовые значения (т.е. 12.12.2008 становится чем-то вроде 36025 и все). А вот второй Ваш способ я не совсем понял.

[SAS888]

Следующий макрос сделает то, что Вы хотели для активного листа.

Sub DateText()
    For Each x In ActiveSheet.UsedRange
        If IsDate(x) Then
            If Len(Month(x.Value)) = 1 Then m = 0 & Month(x.Value) Else m = Month(x.Value)
            x.Value = Day(x.Value) & "." & m & "." & Year(x.Value)
            x.NumberFormat = "General"
        End If
    Next
End Sub

Если требуется, можно организовать цикл по всем листам. Так же, можно этот макрос "привязать" к наиболее подходящему событию (открытие книги, закрытие, сохранение и т.п.).

[valerij]

Сообщение от stanislav24

Как можно эти же даты сделать текстом...

Я делаю так:
1. В листе, от куда надо взять дату, выделяю колонку и "Ctrl + C", закрываем док xls.
2. На рабочем столе создаю текстовый документ и в нем "Ctrl + V".
3. В листе, куда надо вставить дату, выделяю колонку, например F, Формат ячеек.. - Текстовый -ОК.
4. В текстовом документе: "Ctrl + А" и "Ctrl + C", а в листе(п.3) ставим курсор на F1 и "Ctrl + V".
Работы на 5 сек. И все ОК.

[stanislav24]

Вот так вот все работает )

Спасибо!

Сообщение от valerij

Я делаю так:
1. В листе, от куда надо взять дату, выделяю колонку и "Ctrl + C", закрываем док xls.
2. На рабочем столе создаю текстовый документ и в нем "Ctrl + V".
3. В листе, куда надо вставить дату, выделяю колонку, например F, Формат ячеек.. - Текстовый -ОК.
4. В текстовом документе: "Ctrl + А" и "Ctrl + C", а в листе(п.3) ставим курсор на F1 и "Ctrl + V".
Работы на 5 сек. И все ОК.