Как перевести формат ДАТА в ТЕКСТ в ячейках Excel?

Question

[Олег]

В ячейках ДАТА (ВРЕМЯ)
---
6:10:00
6:15:00
---

Если сменить тип ячейки в текстовой, получаем соответственно:
---
0,256944444444444
0,260416666666667
---

Мне нужно провести конкатенацию данных в ячейках с датой.
И соответственно мой код вставляет текстовые значения типа "0,2604".

Помогите, перевести ДАТА в ТЕКСТ.
Как это делается в VBA?

Sub qqwe2()

Dim r As Long, rn As Range
Set rn = Intersect(ActiveSheet.UsedRange, [B:B])
For r = rn(rn.Count).Row To rn(1).Row Step -1
  If Cells(r, 1) <> Empty Then
    Cells(r, 1).Formula = Now
        date_str2 = CStr(Cells(r, 1).Value)
    Cells(r, 1).Value = "ANCHOR " & date_str & ":00:00"
  End If
Next
End Sub

Answer 1

[Пычев Анатолий]

На самом деле все очень просто если есть в руках VBA

Создаем модуль, добавляем функцию, вызываем функцию на листе.

Public Function ToText(ByRef rng As Range) As String
   ToText = rng.Text
End Function

Результат

Comments

[Олег]

Интересно. Попробую. Мне как раз и надо обработать массу ячеек с датами из VBA, конвертировав их в Стринг.
Я так понимаю, VBA мне разрешит вызывать функцию внутри цикла.

[Пычев Анатолий]

Я так понимаю, VBA мне разрешит вызывать функцию внутри цикла.

Конечно разрешит. Это же его родное.
Но я бы порекомендовал, для обработки через VBA использовать массивы. Объектная модель, капец, какая тормознутая.
Копируете область в массив, и конвертируете дату уже програмными методами.

Answer 2

[Владимир Коротенко]

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

Comments

[Олег]

В том и дело, что руками корректно перевести так же не получилось. Что спец.вставкой, что через форматы... ни как. Я на выходе получаю дробь.

[Владимир Коротенко]

Олег, я сейчас не у компьютера но поищите внутреннее представление даты в Эксель, в этой же статье будут и функции для работы с данными и корректным переводом их в строки

Answer 3

[DrAkosh365]

Sub взять_текст_из_дата()

Dim a As Object
Dim b As Range
Set a = ActiveSheet. Range("C5")
Set b = ActiveSheet.Range("C6")
a = a.Text
b = b.Text
With ActiveSheet.Range("D102")
.Value = a + b
End With
End Sub
Это просто пример что бы обратится своевольству ячейку .Text