엑셀(Excel)에 매크로 추가기능 만들어 사용하기

1. 먼저 새문서를 만들다

2. Alt+F11 눌러 매크로 편집기 실행

3. 모듈 추가

4. 매크로 함수 넣기

예제

Function TTV(strChr As String) As Double
Dim i As Integer
Dim j As Integer
Dim newStr As String
Dim strTemp As String

i = Len(strChr)
If i = 0 Then Exit Function
For j = 1 To i
strTemp = Mid(strChr, j, 1)
Select Case strTemp
Case "+", "-", "*", "/", "(", ")", "^", "."
newStr = newStr & strTemp
Case "×"
newStr = newStr & "*"
Case "{"
newStr = newStr & "("
Case "}"
newStr = newStr & ")"
Case "÷"
newStr = newStr & "/"
Case Else
If IsNumeric(strTemp) Then
newStr = newStr & strTemp
End If
End Select
Next j
TTV = Application.Evaluate(newStr)
End Function

 

5. 매크로 편집기 닫고, 엑셀 파일을 다른이름으로 저장 선택 후 Microsoft Office 추가기능 선택 후 파일 저장

5.1 엑셀 시작 버튼에 준비에 속성 버튼 누르기

5.2 문서 속성에 데이터 쓰기

6. 엑셀 파일 닫기

7. 새로 엑셀 열기

8. 엑셀 메뉴에 옵션 선택

9. 추가 기능 선택

10. Excel 추가 기능 선택하고, 이동 버튼 누르기

11. 1~6까지 만든 추가 기능 이름이 있을 것임. 선택 후 확인 누르면 추가됨.