수식을 시트에 그대로 표시하기

Step 1: 수식과 결과를 함께 표시하기

아래와 같은 표가 있습니다. 투입율과 지점계 부분에는 수식이 들어 있고 그 옆(또는 아래) 셀에는 해당 수식의 내용이 표시되어 있습니다.

보통 입력되어 있는 수식을 화면상에 표시하고자 할 경우, Ctrl + `키를 사용합니다. 이렇게 하면 해당 시트 내의 모든 수식을 볼 수가 있는 반면, 열 너비가 임의대로 수정이 되고 계산 결과값을 볼 수 없다는 단점이 있습니다.

따라서 이런 경우에는 수식을 다른 셀로 복사를 한 다음, 문자열로 인식하도록 하면 해결이 됩니다. 즉, 수식(Formula) 앞에 '(작은 인용부호)나 공백을 하나 삽입하시면 되겠습니다. 하지만 수식이 많을 경우, 이것도 불편하다는 생각이 들게 됩니다.

빨간색으로 둘러싸인 부분에는 ShowFormulas라는 사용자 정의 함수가 사용되었습니다.

Step 2: ShowFormulas 함수

Function ShowFormulas(XXX As Range)
    Dim strTemp 'As String

    If XXX.HasArray Then
        strTemp = "{" & XXX.Formula & "}"
    ElseIf XXX.HasFormula Then
        strTemp = XXX.Formula
    Else
        strTemp = "Just Values"
    End If
    '//이 사용자 정의 함수는 지정한 셀에 세 가지 검사를 수행합니다. 즉, 셀에 입력된 내용이
    '//배열수식이면 수식의 앞 뒤에 중괄호({})를 첨가합니다. 배열수식이 아니라 그냥 일반적인
    '//수식이면 수식을 strTemp 변수에 담습니다.
    '//이 두 가지 경우가 아니라면 Just Values라는 문자열 값을 strTemp에 저장합니다.

    ShowFormulas = strTemp
    '//strTemp 변수에 저장된 내용을 되돌려 줍니다.

End Function

마무리

간단하니까 설명을 하고말고 할 것도 없군요. ^^ 도저히 이해가 안된다 하는 분은 질문을 하시기 바랍니다..

오늘은 짧게 여기까지…

정리 — 수식 표시 함수 핵심

자주 묻는 질문 (FAQ)

마치며

간단한 사용자 정의 함수만으로 수식과 결과값을 한 화면에 함께 보여 줄 수 있습니다.