Public Function F단가(도서코드, 정가)
If Len(도서코드) = 7 Then
F단가 = Round(정가 / Mid(도서코드, 3, 3), 0)
Else
F단가 = Round(정가 / Mid(도서코드, 3, 2), 0)
End If
모듈을 만들어서 모듈에 코드를 입력하신 것이라면
보안설정을 한번 해보시기 바랍니다.
아래 설명을 참고하여 주세요.
오피스 2007을 실행 하신 후에 왼쪽 위의 동그란 오피스 단추를 누르고
옵션을 선택 하신 후 아래 그림과 같이 설정 하세요. 
그리고 보안 설정을 하시고 나면 꼭 엑셀을 종료 하였다가 다시 실행하여 사용해 보세요.
수식입력줄 아래쪽이나 윗쪽에 보시면 보안경고에 대한 메시지가 있고 여기에 옵션 이라고 적힌 것이 있습니다.
옵션을 눌러 이콘텐츠 사용을 선택하고 확인 한 후 사용해 보시구요.
그래도 안되면 암호를 해제한 상태에서 작업하는 방법 밖에 없습니다. 암호를 삭제하는 방법은 문제 파일을 불러온 다음 [오피스 단추] - [다른 이름으로 지정]을 선택한 후 '다른 이름으로 저장' 대화상자에서 [도구] - [일반 옵션]을 선택한 다음 지정된 암호를 삭제해 주면 됩니다.
좋은 하루 되세요
"-
*2013-01-29 08:58:35
모듈을 만들어서 모듈에 코드를 입력하신 것이라면
보안설정을 한번 해보시기 바랍니다.
아래 설명을 참고하여 주세요.
오피스 2007을 실행 하신 후에 왼쪽 위의 동그란 오피스 단추를 누르고
옵션을 선택 하신 후 아래 그림과 같이 설정 하세요.
그리고 보안 설정을 하시고 나면 꼭 엑셀을 종료 하였다가 다시 실행하여 사용해 보세요.수식입력줄 아래쪽이나 윗쪽에 보시면 보안경고에 대한 메시지가 있고 여기에 옵션 이라고 적힌 것이 있습니다.
옵션을 눌러 이콘텐츠 사용을 선택하고 확인 한 후 사용해 보시구요.
그래도 안되면 암호를 해제한 상태에서 작업하는 방법 밖에 없습니다. 암호를 삭제하는 방법은 문제 파일을 불러온 다음 [오피스 단추] - [다른 이름으로 지정]을 선택한 후 '다른 이름으로 저장' 대화상자에서 [도구] - [일반 옵션]을 선택한 다음 지정된 암호를 삭제해 주면 됩니다.
좋은 하루 되세요
"