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

 졸따구 (zolddagu)

추천:  2
파일:     0830이상한숫자합계내기.xls (31KB) 조회:  1509
제목:   사용자정의 함수를 이용한 숫자만들기
     
  제가 월별 신청자 수를 웹에서 복사에서 엑셀에 가지고와서 정리를 하는데요..

1일 부터 오늘까지 신청자 수를 선택해서 합버튼을 눌렀는데  계산이 안되고 

맨위에 있는 셀이 합치는 함수 기호로 변경만 되고 합치기가되지 않습니다. 

고수님들 도와 주세요..
==============[lake님 글에 대한 답변입니다]==============

안녕하세요?

'사용자정의' 함수를 이용하여 합계를 구하여 보았습니다.

그럼..

사용자정의 함수중 소수부분 전환이 원할치 못하고 값이 없을때 생기는 오류를 보완하기 위해 다음과 같이 사용자정의 함수를 수정합니다.

Public Function strTOnum(문자 As String) As Single  '반환값을 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) '반환값을 'Single'로 
  End If
End Function
 
[불량 게시물 신고]  
황기성Sub dhTest()
    Cells.Replace what:=Right$(Range("B4"), 1), replacement:="", lookat:=xlPart
End Sub

라고 하셔서...유령문자를 삭제하심 간단하게 해결됩니다.

늘, 고생하시는 졸따구님께 감사드리며...

그럼...행운이 있으시길...!
08-30 (13:03)
삭제 ■신고
졸따구도와 주셔서 감사합니다. 황선생님08-30 (14:10)
삭제 ■신고
        
  

작성일 : 2003-08-30(12:26)
최종수정일 : 2003-08-30(14:16)
 


 ◎ 관련글

  제 목   작성자   날짜
셀합이되지 않습니다. 도와주세요. lake 2003-08-30
사용자정의 함수를 이용한 숫자만들기 졸따구 2003-08-30