Excel에서 숫자를 날짜로 변환

Question

EXPLAIN에서 문자열을 구문 분석하고 같은 양식의 인접한 셀에 결과를 분배하는 SPLIT() 함수를 구현하려고합니다. 구문 분석 된 용어가 숫자 인 경우를 제외하고 다음은 예상대로 작동합니다.

"0.25"나는 결과 strAttr 값에 CSTR을() 시도에 "1/0/1900 오전 6시 0분 0초"

구문 분석,하지만 효과가없는 것으로 보인다. 어떤 아이디어?

Sub splitText() 

Dim i As Integer 
Dim x As Integer 
Dim strText As String 
Dim strAttr As Variant 
Dim strFirst As String 
Dim NumRows As Integer 

    strFirst = "A4" 

    Sheets("Data").Activate 
    Range(strFirst).Select 
    NumRows = Range(strFirst, Range(strFirst).End(xlDown)).Rows.Count 

    For x = 1 To NumRows 

     ActiveCell.Offset(1, 0).Select 

     strText = ActiveCell.Value 
     strAttr = Split(strText, " ") 

     For i = 0 To UBound(strAttr) 
      Cells(x + 4, i + 2).Value = strAttr(i) 
     Next i 

    Next 

End Sub 

Answer 1

는 참고 :

나는 모든 것을 제외하고, 원하는 결과를 제공 할 것으로 보인다 문자열 = TEXT의 전면에 (') 강제 :

For i = 0 To UBound(strAttr) 
     Cells(x + 4, i + 2).Value = "'" & strAttr(i) 
    Next i 

인가가 이 작업을 수행하고 숫자 값으로 "0.25"를 유지하는 더 좋은 방법은 무엇입니까?

감사합니다,이 도움이 될 수

Answer 2

마르크. 교체 :와

strText = ActiveCell.Value 

:

strText = ActiveCell.Text