Как использовать функцию DATEVALUE в коде vba

Question

Как использовать функцию DATEVALUE в коде VBA, чтобы преобразовать ячейку из текста в Date.

Ex. У меня есть E1= "29/10/2014"

EXCEL признает это как текст. Если я дважды щелкнул по ячейке, он правильно изменит ее на сегодняшний день.

Я хочу запустить макрос и преобразовать все эти значения в Date. Я должен сказать, что у меня есть лист excel, Range A1:BJ10223 и столбцы с датами - это E, H, S, V, AB, AF, AJ, AL, AO, AS, AY, BE, BH. Не все даты отражаются как текстовые значения. Некоторые из них в порядке.

Answer 1

Наиболее целесообразный метод, который я знаю для преобразования значений псевдотекста в значения фактической даты, осуществляется с помощью команды Data ► Data Tools ► Text-to-Columns, которая может быть закодирована в VBA.

Sub TXT2DMY() 
    Dim v As Long, vCOLs As Variant 
    vCOLs = Array("E", "H", "S", "V", "AB", "AF", "AJ", "AL", "AO", "AS", "AY", "BE", "BH") 
    With ActiveSheet 
     For v = LBound(vCOLs) To UBound(vCOLs) 
      If CBool(Application.CountA(.Columns(vCOLs(v)))) Then _ 
       .Columns(vCOLs(v)).TextToColumns Destination:=.Columns(vCOLs(v)), _ 
        DataType:=xlFixedWidth, FieldInfo:=Array(0, 4) 
     Next v 
    End With 
End Sub 

Разница может быть не заметна на небольших листах, но ничего более 500 строк данных, с тем, что многие столбцами, безусловно, будет быстрее.

Answer 2

Эквивалентная функция в VBA равна CDate, которая преобразует свой аргумент (формально Variant) в тип Date.