[엑셀] 다른 셀의 수식 계산하기

=EVALUATE()
로 이름수식자를 만들어준다

그런데 매번 수식 < 이름관리자 로 들어가서 새 이름을 만들자니 귀찮기 짝이 없다.

이 문제는 새로운 매크로를 만들어 해결한다.

1. 원하는 엑셀 창에서 Alt + F11을 눌러 Microsoft Visual Basic for Applications 창을 연다.

2. 삽입 < 모듈을 실행한다.

3. 아래 글자를 삽입한다.

Function ev(A As String)

  ev = Evaluate(A)

End Function

4. 이제 ev라는 새로운 함수가 생긴 셈이다.  ex) =ev(A1)

그리고 아래는 네이버지식인에서 퍼 온 글자있어서 계산해주는 매크로 수식

Option Explicit

Sub extract_And_Calculate()

    Dim rngC As Range '각 셀을 넣을 변수
    Dim i As Long'각 셀의 문자 길이 만큼 반복할 변수
    Dim strText As String '각 각의 문자를 넣을 변수
    Dim strU As String '각 문자를 합쳐 넣을 변수
   
    For Each rngC In Columns(1).SpecialCells(2)    'A열의 각셀을 순환
        For i = 1 To Len(rngC)'각 셀의 문자 길이 만큼 반복
            strText = Mid(rngC, i, 1)'각 문자를 앞에서 부터 추출
            If strText Like "[0-9]" Or strText Like "[+*/)(-]" Then'문자가 0~9 또는 +, -, * , / (, ) 이면
                strU = strU & strText'문자를 합쳐감
            End If
        Next i
       
        rngC.Next = Evaluate(strU)'합쳐진 문자를 evaluate 함수로 계산
        strU = vbNullString'재사용 위하여 초기화
    Next rngC
   
End Sub 

출처는 

http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=138591054&qb=7JeR7IWAIOyImOyLnSDquIDsnpAg67m86rOgIOqzhOyCsA==&enc=utf8&section=kin&rank=2&search_sort=0&spq=0

여기