나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 ljhw (hanschrmn)

추천:  2
파일:     조회:  1401
제목:   문자자료의 숫자자료화 하기
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...): 

* 아래줄에 질문을 작성하세요 >>
문자자료로 된 수치를 계산이 가능한 숫자자료로 변경이 가능한지요?
예)'12345 [문자자료]→12345 [숫자자료]로 변경
 
[불량 게시물 신고]  
02셀서식에서 변경하면 됩니다.
오른쪽마우스 클릭해서 일반으로 해놓고 계산해보시거나
그래도 안되면  전체를 복사해 선택하여 붙여넣기에서 값만을 준다음 함 해보시지요.
09-02 (16:32)
삭제 ■신고
ljhw다 해봤는데 안되네요!
어쩌지?
09-02 (16:41)
삭제 ■신고
ljhw아! 그냥 value 쓰니까 되네요!09-02 (16:53)
삭제 ■신고
졸따구안녕하세요?

다음의 '사용자정의' 함수를 사용해 보세요. '사용자정의' 함수만드는 법은 '자료실(new)'에 가면 있습니다.

Public Function strTOnum(문자 As String) As Single
  Dim intA As Integer
  Dim intB As Integer
  Dim strA As String
  Dim TempS As String
  strA = Trim(문자)
  intB = Len(strA)
  For intA = 1 To intB
    If IsNumeric(Mid(strA, intA, 1)) Or Mid(strA, intA, 1) = "." Then
      TempS = TempS & Mid(strA, intA, 1)
    End If
  Next intA
  If TempS = "" Then
    strTOnum = 0
  Else
    strTOnum = CSng(TempS)
  End If
End Function
09-02 (17:22)
삭제 ■신고
황기성FAQ 게시물에서 원하는 대로 계산이 아니 될 때란 제목의 글을 참고하시구요

그대로 되지 않는다면, 유령문자인지 확인해 보세요...유령문자란 키워드로 검색해 보심...

그럼...행운이 있으시길...!

09-02 (18:36)
삭제 ■신고
        
  

작성일 : 2003-09-02(16:08)
최종수정일 : 2003-09-02(16:08)