2012-08-03 3 views
2

텍스트 파일의 숫자가 워크 시트에 삽입되는 스크립트를 VBA에 작성했습니다. 값을 삽입 한 후 Excel에서 문자열의 값을 숫자로 변환하도록 권합니다. 셀 안의 녹색 삼각형이 나타납니다. 셀을 선택한 후에는 셀 안의 값의 서식을 지정하기 위해 선택할 수있는 여러 가지 옵션이 있습니다.Excel에서 값을 문자열에서 숫자로 변경

또한 VBA에서 값을 CDbl(string)으로 두 번 변환하려고했지만 아무 일도 일어나지 않습니다.

NumberFormat도 변경되지 않습니다. VBA와 Excel에서 다른 값을 시도했습니다.

또한 방법을 선택하는 동안 매크로를 기록하려고했지만 매크로에 저장된 내용이 없습니다.

아무도이를 수행하는 방법을 알고 계십니까?

enter image description here

+0

그것은 매크로 (스크립트)을 수정할 아마 최선의 시트에 텍스트 파일 데이터를 넣습니다 : 더 일반적으로

, 당신은 myrange을 통해 루프, 가정 수 있습니다 당신이 해결하고자하는 범위입니다. 이 작업을 수행하는 코드를 게시하면 숫자로 삽입하도록 코드를 수정할 수 있습니다. –

답변

0

이보십시오. 나는 셀 A1을 예로 들었다. 또한 십진수 값이있는 경우 Long 대신 Double을 사용하고 그에 따라 NumberFormat을 변경하십시오.

Sub Sample() 
    Dim clVal As Long 

    With Sheet1.[a1] 
     clVal = Val(.Value) 
     .NumberFormat = "0" 
     .ClearContents 
     .Formula = clVal 
    End With 
End Sub 
+0

감사합니다. 배열 안의 값에 하나의 타입이 있다는 것을 잊어 버렸습니다. 나는 그것을 삽입하는 그것을 변환하지만 루프에서 다시 액세스 한 후 다시 문자열되었습니다. –

0

다소 바보 같지만 시도해 보셨습니까? Range("A1").Value = Range("A1").Value?

For Each c in myrange 
    c.Value = c.Value 
Next 
+0

셀 서식이 텍스트로되어 있으면 도움이되지 않습니다. :) –

관련 문제