VBA Functoin 코드가 작동이 안됩니다.

Function wtsum(재질, 종류, D, T, W, L, EA)

Application.ScreenUpdating = False

'A = D값사용하는 수식

'B = T값 사용하는 수식

Dim A As Integer
Dim B As Integer
Dim SP As Integer

A = Application.WorksheetFunction.IfError(XLookup(D, Worksheet("파이프 치수표").Range("A3:A38"), Worksheet("파이프 치수표").Range("B3:B38")), D)  ' D가 파이프치수표 시트의 일치하는 값 불러오기.

B = Application.WorksheetFunction.IfError(XLookup(D, Worksheet("파이프 치수표").Range("A3:A38"), XLookup(T, Worksheet("파이프 치수표").Range("C1:S1"), Worksheet("파이프 치수표").Range("C3:S38"))), T) 'D와 T의 일치한는 숫자를 파이프치수표 시트에서 불러오기.

SP = Application.WorksheetFunction.XLookup(1, (재질 = Worksheet("소재중량식").Range("B")) * (종류 = Worksheet("소재중량식").Range("A")), Worksheet("소재중량식").Range("H"), 0)     '재질과 종류 일치하는 값을 소재중량식 시트에서 불러오기.

If 종류 = "PIPE" Then '종류가 PIPE와 일치할 경우

wtsum = ((A - B) * B * 3.14 * SP * L * EA / 10000) / 100

ElseIf 종류 = "PLATE" Then

wtsum = (B * W * L * SP * EA / 10000) / 100

ElseIf 종류 = "R/B" Then

wtsum = (A / 2 * A / 2 * 3.14 * SP * L * EA / 10000) / 100

ElseIf 종류 = "" Then

wtsum = ""

End If

End Function

위와 같이 커스텀 함수를 만들고 싶어서 작성했습니다.

그러나 오류가 났는지 자꾸 VALUE! 가 뜨더라구요 ㅠㅠ.

제가 수정을 여러번 했으나 도무지 어디서 오류가 났는지 몰라 헤매고있습니다.

수정 첨삭 부탁드립니다 ㅠㅠ