엑셀함수 관련해서 질문합니다 (__)

님에게 딱 맞는 답변을 한 적이 있어서 그대로 올립니다.

==================================================

답변에 조금 추가 합니다.

 

아래 아래 코드는 소수점 등 복잡한 수식이 들어갈 때는 그릇된 값을 리턴하는 문제가 있어서

 

아예 자바스크립트의 함수를 가져다 쓰도록 하는 아래 코드를 쓰세요

 

=eval2(A1)

(A1 은 "1+2*3-1"과 같은 수식 문자열이 입력된 셀)

 

단, 다음과 같은 설정을 꼭 해 주셔야 합니다.

1. VBA편집기를 여시고

2. "도구-참조" 여시고,

3. Microsoft Script Control 1.0(혹은 다른 숫자)에 꼭 체크표시를 하시고

'확인'을 누릅니다.

 

그 다음 아래 코드를 붙여넣으시고 워크시트에서 일반함수 처럼 사용하세요.

 

Function eval2(rng As Range)
   
   Dim sc
  
   Set sc = CreateObject("ScriptControl")
   sc.Language = "JScript"
  
    eval2 = sc.eVal(rng.Value)

 

End Function

==================================================

덧셈, 나눗셈, 곱하기, 괄호가 들어간 수식 등 어떤 수식 문자열이라도

계산 결과가 나오게 하려면 다음과 같은 사용자 정의함수를 이용하시면 됩니다.

 

자바스크립트 등의 =eval(문자열) 함수같은 것이지요.

 

아래 방법 그대로 따라하십시요.

 

1. 해당 워크시트에서 Alt+F11을 눌러 VBA편집기를 엽니다.

2. 위의 메뉴바에서 '삽입-모듈'을 실행합니다.

3. 빈 하얀 화면이 나오면 아래 코드를 그대로 복사해 붙여넣습니다.

4. 다시 Alt+F11을 눌러 원래 워크시트로 돌아옵니다.

5. 워크시트에서 =eval(A1)과 같이, 일반 함수처럼 쓰세요

 

(A1 은 "1+2*3-1"과 같은 수식 문자열이 입력된 셀)

 

Function eVal(str As String)

 

    Dim val1, val2, charN, calc, i
    calc = Asc("+")    
    For i = 1 To Len(str)    
        charN = CInt(Asc(Mid(str, i, 1)))        
        If Asc("0") <= charN And charN <= Asc("9") Then val2 = val2 * 10 + charN - Asc("0")        
        If charN = Asc("+") Or charN = Asc("-") Or charN = Asc("*") Or charN = Asc("/") Or charN = Asc("=") Or i = Len(str) Then           
            Select Case calc
                Case Asc("+")
                     val1 = CInt(val1) + CInt(val2)
                Case Asc("-")
                    val1 = val1 - val2
                Case Asc("*")
                    val1 = val1 * val2
                Case Asc("/")
                    val1 = val1 / val2
            End Select            
            calc = charN
            val2 = 0            
        End If        
    Next i    
    eVal = val1

End Function