엑셀 사용법(셀에서 숫자만 뽑아서 계산하기) calstr 함수

엑셀을 사용하다 보면 셀에서 숫자만 뽑아서 계산해야 하는 경우가 생긴다. 

 

예를 들면

 

 

위과 같은 식으로 말이다. 

 

하지만 저것은 엑셀에서 계산이 되지 않는다. 

 

왜냐하면 숫자만 있지 않기 때문이다.

 

이런 경우에 사용하는 사용자 정의 함수(사용자가 만들어서 사용하는 함수)가 바로

 

calstr함수이다.

 

그 사용법을 알아보자. 

 

 

1. 비주얼 베이직 사용모드 설정하기

(파일) - (더보기) - (옵션)

 

 

 

 

2. (리본 사용자 지정) - (개발도구)

 

 

그러면 개발도구가 상단에 뜨고, 비주얼 베이직을 클릭한다.

 

 

3. (삽입) - (모듈) 선택

 

 

그러면 하얀색 메모장이 나온다.

 

 

 

4. 그 메모장에 아래의  // 사이의  내용을 복사 붙여넣기한다.

(이 함수를 정의해 주는 것)

 

//

 

Function CalStr(strS As String)

Dim i As Integer
Dim Tmp_Text, strText As String


On Error Resume Next
Tmp_Text = ""
For i = 1 To Len(strS) + 1
    strText = Mid(strS, i, 1)

    If (strText Like "[0-9]" Or strText Like "[+*/.%)(-]") Then
        Tmp_Text = Tmp_Text & strText
    End If

Next i
    
If Tmp_Text = "" Then
    CalStr = 0
Else
    CalStr = Evaluate(Tmp_Text)
    
    If CalStr Mod 1000 > 0 Then
        CalStr = ((CalStr \ 1000) + 1) * 1000
    End If
End If

End Function

Function CalMinus(thisY As Double, lastY As Double)

    CalMinus = thisY - lastY

End Function

//

 

5. (모듈)을 닫으면 안되고 전체 창을 닫는다.

 

 

 

이제 일반적인 방법으로 함수를 사용하면 된다.

 

=calstr(셀이름)