Attribute VB_Name = "UtilforInfoSheet"
'============================================================
'
'  QSET User Defined Functions (UDF) Library
'
'  ──────────────────────────────────────────
'  [값 조회]
'    GV(col_name)                  - Get Value (IFCGUID 기반 통합 값 조회)
'
'  [거푸집 - FormWork]
'    FWS(step_no, [prev_length])   - FormWork Specification (단별 높이 구간 스펙)
'    FWH(step_no, [prev_length])   - FormWork Height (단별 높이)
'    FWAE(step_no, [prev_length])  - FormWork Area Exterior (외측 단별 면적)
'    FWAI(step_no, [prev_length])  - FormWork Area Interior (내측 단별 면적)
'    FWA(step_no, [prev_length])   - FormWork Area (외측+내측 단별 합산 면적)
'    FWD(se_flag)                  - FormWork Deduction (거푸집 공제, 단면적)
'
'  [도장 - Paint]
'    PTE()                         - PainT Exterior (외측 도장 면적)
'    PTI()                         - PainT Interior (내측 도장 면적)
'    PTA()                         - PainT Area (외측+내측 도장 합산 면적)
'
'  ──────────────────────────────────────────
'  [prev_length 매개변수]
'    이전 객체의 누적 높이. 생략 시 0으로 처리 (기존 동작과 동일)
'    step_no는 현재 객체 기준의 상대 단번호이며,
'    prev_length를 포함한 합산 높이로 절대 단을 산정합니다.
'
'    예) 객체 길이=5m, FWS(1, 12)
'        합산=17m, 객체 구간=12~17m
'        객체의 1번째 단 = 절대 3단(10~13m) → "10m초과~13m이하"
'        FWH(1, 12) = 1m (3단 잔여)
'
'  [변단면(Tapered) 처리]
'    MEMBER 시트의 Tapered 열이 비어있지 않으면 변단면으로 판정.
'    변단면인 경우:
'      총 측면적 = SurfaceArea - FaceArea(S) - FaceArea(E)
'      FWAE/FWAI/FWA: 둘레길이 선형보간 + 사다리꼴 면적 기반 가중 배분
'      PTE/PTI/PTA: 둘레합(S+E) 비율로 외측/내측 배분
'    등단면인 경우 기존 방식(FWH × Perimeter) 유지.
'  ──────────────────────────────────────────
'
'============================================================
'************************************************************
'
'  0. 내부 유틸리티 함수 (Private)
'
'************************************************************
'============================================================
' GetAbsoluteStepForObject - 내부 유틸리티 (Private)
'
'   현재 객체의 상대 단번호(obj_step_no)를
'   절대 단번호(abs_step)로 변환하고,
'   해당 단에서 현재 객체가 차지하는 높이를 반환
'============================================================
Private Function GetAbsoluteStepForObject(totalLength As Double, _
                                           obj_step_no As Long, _
                                           prev_length As Double, _
                                           ByRef abs_step As Long, _
                                           ByRef stepHeight As Double) As Boolean
    Dim combinedLength As Double
    Dim objStart As Double
    Dim objEnd As Double
    Dim sStart As Double
    Dim sEnd As Double
    Dim oStart As Double
    Dim oEnd As Double
    Dim count As Long
    Dim s As Long
    
    GetAbsoluteStepForObject = False
    abs_step = 0
    stepHeight = 0
    
    If totalLength <= 0 Or obj_step_no < 1 Then Exit Function
    If prev_length < 0 Then prev_length = 0
    
    combinedLength = prev_length + totalLength
    objStart = prev_length
    objEnd = combinedLength
    
    count = 0
    s = 1
    
    Do
        If s = 1 Then
            sStart = 0
            sEnd = 7
        Else
            sStart = 7 + CDbl(s - 2) * 3
            sEnd = sStart + 3
        End If
        
        If sStart >= combinedLength Then Exit Do
        If sEnd > combinedLength Then sEnd = combinedLength
        
        oStart = sStart
        If objStart > oStart Then oStart = objStart
        oEnd = sEnd
        If objEnd < oEnd Then oEnd = objEnd
        
        If oEnd > oStart Then
            count = count + 1
            
            If count = obj_step_no Then
                abs_step = s
                stepHeight = oEnd - oStart
                GetAbsoluteStepForObject = True
                Exit Function
            End If
        End If
        
        s = s + 1
    Loop
    
    GetAbsoluteStepForObject = False
End Function

'============================================================
' GetStepHeight - 내부 유틸리티 (Private)
'
'   현재 객체 기준 상대 단번호로 높이를 반환
'   반환값: 해당 단의 높이 (Double), 해당 단 없으면 -1
'============================================================
Private Function GetStepHeight(totalLength As Double, obj_step_no As Long, _
                               Optional prev_length As Double = 0) As Double
    Dim abs_step As Long
    Dim sHeight As Double
    
    If GetAbsoluteStepForObject(totalLength, obj_step_no, prev_length, abs_step, sHeight) Then
        GetStepHeight = sHeight
    Else
        GetStepHeight = -1
    End If
End Function

'============================================================
' GetStepSpec - 내부 유틸리티 (Private)
'
'   절대 단번호로부터 스펙 문자열을 반환
'   1단 → "0~7m이하"
'   n단 → "(7+(n-2)*3)m초과~(7+(n-1)*3)m이하"
'============================================================
Private Function GetStepSpec(abs_step As Long) As String
    Dim sStart As Double
    Dim sEnd As Double
    
    If abs_step < 1 Then
        GetStepSpec = ""
        Exit Function
    End If
    
    If abs_step = 1 Then
        GetStepSpec = "0~7m이하"
    Else
        sStart = 7 + CDbl(abs_step - 2) * 3
        sEnd = sStart + 3
        GetStepSpec = CStr(CLng(sStart)) & "m초과~" & CStr(CLng(sEnd)) & "m이하"
    End If
End Function

'============================================================
' ParsePrevLength - 내부 유틸리티 (Private)
'
'   Optional prev_length 매개변수를 안전하게 Double로 변환
'   Missing / Empty / 빈문자열 → 0
'============================================================
Private Function ParsePrevLength(prev_length As Variant) As Double
    If IsMissing(prev_length) Then
        ParsePrevLength = 0
    ElseIf IsEmpty(prev_length) Then
        ParsePrevLength = 0
    ElseIf Len(Trim(CStr(prev_length))) = 0 Then
        ParsePrevLength = 0
    Else
        ParsePrevLength = CDbl(prev_length)
    End If
End Function

'============================================================
' IsTapered - 내부 유틸리티 (Private)
'
'   MEMBER 시트에서 해당 행의 Tapered 열 값을 확인
'   비어있지 않으면 True (변단면)
'============================================================
Private Function IsTapered(ws As Worksheet, rowMatch As Long) As Boolean
    Dim colTapered As Variant
    Dim val As Variant
    
    colTapered = Application.Match("Tapered", ws.Rows(1), 0)
    
    If IsError(colTapered) Then
        IsTapered = False
        Exit Function
    End If
    
    val = ws.Cells(rowMatch, colTapered).Value
    
    If IsEmpty(val) Or Len(Trim(CStr(val))) = 0 Then
        IsTapered = False
    Else
        IsTapered = True
    End If
End Function

'============================================================
' GetTaperedStepArea - 내부 유틸리티 (Private)
'
'   변단면 부재의 단별 외측/내측/합산 면적을 계산
'   둘레길이 선형 보간 + 사다리꼴 면적 기반 가중 배분
'
'   매개변수:
'     ws           - MEMBER 시트
'     rowMatch     - MEMBER 시트에서 매칭된 행
'     totalLength  - 현재 객체 Length
'     stepH        - 해당 단에서 현재 객체의 기여 높이 (FWH)
'     objStart     - 현재 객체의 시작 높이 (= prev_length)
'     stepStart    - 해당 단에서 현재 객체의 실제 시작 높이 (절대 기준)
'     mode         - "EXT" / "INT" / "ALL"
'
'   계산 로직:
'     1. 총 측면적 = SurfaceArea - FaceArea(S) - FaceArea(E)
'     2. 전체 사다리꼴로 외측/내측 측면적 분리
'     3. 둘레길이 선형 보간으로 단 시작/끝 둘레 계산
'     4. 사다리꼴 면적 = (시작둘레 + 끝둘레) / 2 × 단높이
'     5. 가중 비율로 실제 측면적 배분
'============================================================
Private Function GetTaperedStepArea(ws As Worksheet, rowMatch As Long, _
                                     totalLength As Double, stepH As Double, _
                                     objStart As Double, stepStart As Double, _
                                     mode As String) As Double
    Dim colSA As Variant
    Dim colFAS As Variant
    Dim colFAE As Variant
    Dim colPExtS As Variant
    Dim colPExtE As Variant
    Dim colPIntS As Variant
    Dim colPIntE As Variant
    
    Dim surfaceArea As Double
    Dim faceAreaS As Double
    Dim faceAreaE As Double
    Dim totalLateral As Double
    
    Dim periExtS As Double
    Dim periExtE As Double
    Dim periIntS As Double
    Dim periIntE As Double
    
    Dim pExtAtStart As Double
    Dim pExtAtEnd As Double
    Dim pIntAtStart As Double
    Dim pIntAtEnd As Double
    Dim trapExt As Double
    Dim trapInt As Double
    Dim trapAll As Double
    
    Dim totalTrapExt As Double
    Dim totalTrapInt As Double
    Dim totalTrapAll As Double
    
    Dim lateralExt As Double
    Dim lateralInt As Double
    
    Dim relStart As Double
    Dim relEnd As Double
    
    ' 열 검색
    colSA = Application.Match("SurfaceArea", ws.Rows(1), 0)
    colFAS = Application.Match("FaceArea(S)", ws.Rows(1), 0)
    colFAE = Application.Match("FaceArea(E)", ws.Rows(1), 0)
    colPExtS = Application.Match("PerimeterExt(S)", ws.Rows(1), 0)
    colPExtE = Application.Match("PerimeterExt(E)", ws.Rows(1), 0)
    colPIntS = Application.Match("PerimeterInt(S)", ws.Rows(1), 0)
    colPIntE = Application.Match("PerimeterInt(E)", ws.Rows(1), 0)
    
    If IsError(colSA) Or IsError(colFAS) Or IsError(colFAE) Or _
       IsError(colPExtS) Or IsError(colPExtE) Or _
       IsError(colPIntS) Or IsError(colPIntE) Then
        GetTaperedStepArea = -1
        Exit Function
    End If
    
    ' 값 읽기
    surfaceArea = ws.Cells(rowMatch, colSA).Value
    faceAreaS = ws.Cells(rowMatch, colFAS).Value
    faceAreaE = ws.Cells(rowMatch, colFAE).Value
    periExtS = ws.Cells(rowMatch, colPExtS).Value
    periExtE = ws.Cells(rowMatch, colPExtE).Value
    periIntS = ws.Cells(rowMatch, colPIntS).Value
    periIntE = ws.Cells(rowMatch, colPIntE).Value
    
    ' Step 1: 총 측면적
    totalLateral = surfaceArea - faceAreaS - faceAreaE
    If totalLateral <= 0 Then
        GetTaperedStepArea = 0
        Exit Function
    End If
    
    If totalLength <= 0 Then
        GetTaperedStepArea = 0
        Exit Function
    End If
    
    ' Step 2: 전체 사다리꼴로 외측/내측 측면적 분리
    totalTrapExt = (periExtS + periExtE) / 2 * totalLength
    totalTrapInt = (periIntS + periIntE) / 2 * totalLength
    totalTrapAll = totalTrapExt + totalTrapInt
    
    If totalTrapAll <= 0 Then
        GetTaperedStepArea = 0
        Exit Function
    End If
    
    lateralExt = totalLateral * (totalTrapExt / totalTrapAll)
    lateralInt = totalLateral * (totalTrapInt / totalTrapAll)
    
    ' Step 3: 해당 단의 사다리꼴 면적 계산
    '   객체 내 상대 위치 기준으로 둘레 선형 보간
    relStart = stepStart - objStart
    relEnd = relStart + stepH
    
    pExtAtStart = periExtS + (periExtE - periExtS) * (relStart / totalLength)
    pExtAtEnd = periExtS + (periExtE - periExtS) * (relEnd / totalLength)
    pIntAtStart = periIntS + (periIntE - periIntS) * (relStart / totalLength)
    pIntAtEnd = periIntS + (periIntE - periIntS) * (relEnd / totalLength)
    
    trapExt = (pExtAtStart + pExtAtEnd) / 2 * stepH
    trapInt = (pIntAtStart + pIntAtEnd) / 2 * stepH
    trapAll = trapExt + trapInt
    
    ' Step 4: 가중 배분
    Select Case UCase(mode)
        Case "EXT"
            If totalTrapExt <= 0 Then
                GetTaperedStepArea = 0
            Else
                GetTaperedStepArea = lateralExt * (trapExt / totalTrapExt)
            End If
        Case "INT"
            If totalTrapInt <= 0 Then
                GetTaperedStepArea = 0
            Else
                GetTaperedStepArea = lateralInt * (trapInt / totalTrapInt)
            End If
        Case "ALL"
            If totalTrapAll <= 0 Then
                GetTaperedStepArea = 0
            Else
                GetTaperedStepArea = totalLateral * (trapAll / totalTrapAll)
            End If
        Case Else
            GetTaperedStepArea = -1
    End Select
End Function

'************************************************************
'
'  1. 값 조회 함수
'
'************************************************************
'============================================================
' GV - Get Value (IFCGUID 기반 통합 값 조회 함수)
'
' 사용법: =GV("Length")
'         =GV("Weight")
'         =GV("Material")
'
' 동작:
'   1. 호출된 셀의 같은 행 E열에서 IFCGUID를 가져옴
'   2. MEMBER/TENDON/STIFFENER/BOLT/LAYOUT/ETC 시트를 순차 검색
'   3. IFCGUID가 일치하는 행을 찾으면 해당 열의 값을 반환
'============================================================
Function GV(col_name As String) As Variant
    Dim ws As Worksheet
    Dim myGUID As String
    Dim rowMatch As Variant
    Dim colMatch As Variant
    Dim sheetNames As Variant
    Dim i As Long
    
    On Error GoTo ErrHandler
    
    sheetNames = Array("MEMBER", "TENDON", "STIFFENER", "BOLT", "LAYOUT", "ETC")
    
    myGUID = Application.Caller.Worksheet.Cells(Application.Caller.Row, 5).Value
    
    If Len(Trim(myGUID)) = 0 Then
        GV = "[NO GUID]"
        Exit Function
    End If
    
    For i = LBound(sheetNames) To UBound(sheetNames)
        Set ws = Nothing
        On Error Resume Next
        Set ws = ThisWorkbook.Worksheets(sheetNames(i))
        On Error GoTo ErrHandler
        
        If Not ws Is Nothing Then
            rowMatch = Application.Match(myGUID, ws.Columns("E"), 0)
            
            If Not IsError(rowMatch) Then
                colMatch = Application.Match(col_name, ws.Rows(1), 0)
                
                If IsError(colMatch) Then
                    GV = "[NO COLUMN: " & col_name & "]"
                    Exit Function
                End If
                
                Dim result As Variant
                result = ws.Cells(rowMatch, colMatch).Value
                If IsEmpty(result) Or Len(Trim(CStr(result))) = 0 Then
                    GV = ""
                Else
                    GV = result
                End If
                Exit Function
            End If
        End If
    Next i
    
    GV = "[NO MATCH]"
    Exit Function
    
ErrHandler:
    GV = "[ERROR]"
End Function

'************************************************************
'
'  2. 거푸집 함수 (FormWork)
'
'************************************************************
'============================================================
' FWS - 거푸집 단별 스펙 (FormWork Specification)
'
' 사용법: =FWS(1)       → 현재 객체 1번째 단의 높이 구간
'         =FWS(1, 12)   → 이전 객체 12m 포함, 현재 객체 1번째 단의 높이 구간
'         =FWS(1, 0)    → =FWS(1)과 동일
'
' 반환값 예시:
'   "0~7m이하", "7m초과~10m이하", "10m초과~13m이하", ...
'============================================================
Function FWS(step_no As Long, Optional prev_length As Variant) As Variant
    Dim ws As Worksheet
    Dim myGUID As String
    Dim rowMatch As Variant
    Dim colMatch As Variant
    Dim totalLength As Double
    Dim prevLen As Double
    Dim abs_step As Long
    Dim sHeight As Double
    
    On Error GoTo ErrHandler
    
    If step_no < 1 Then
        FWS = "[INVALID STEP]"
        Exit Function
    End If
    
    prevLen = ParsePrevLength(prev_length)
    
    Set ws = ThisWorkbook.Worksheets("MEMBER")
    
    myGUID = Application.Caller.Worksheet.Cells(Application.Caller.Row, 5).Value
    
    If Len(Trim(myGUID)) = 0 Then
        FWS = "[NO GUID]"
        Exit Function
    End If
    
    rowMatch = Application.Match(myGUID, ws.Columns("E"), 0)
    If IsError(rowMatch) Then
        FWS = "[NO MATCH]"
        Exit Function
    End If
    
    colMatch = Application.Match("Length", ws.Rows(1), 0)
    If IsError(colMatch) Then
        FWS = "[NO COLUMN: Length]"
        Exit Function
    End If
    
    totalLength = ws.Cells(rowMatch, colMatch).Value
    
    If GetAbsoluteStepForObject(totalLength, step_no, prevLen, abs_step, sHeight) Then
        FWS = GetStepSpec(abs_step)
    Else
        FWS = ""
    End If
    Exit Function
    
ErrHandler:
    FWS = "[ERROR]"
End Function

'============================================================
' FWH - 거푸집 단별 높이 (FormWork Height)
'
' 사용법: =FWH(1)       → 1단 높이 (이전 객체 없음)
'         =FWH(2, 8)    → 이전 객체 8m 포함, 현재 객체 2번째 단 높이
'============================================================
Function FWH(step_no As Long, Optional prev_length As Variant) As Variant
    Dim ws As Worksheet
    Dim myGUID As String
    Dim rowMatch As Variant
    Dim colMatch As Variant
    Dim totalLength As Double
    Dim prevLen As Double
    
    On Error GoTo ErrHandler
    
    If step_no < 1 Then
        FWH = "[INVALID STEP]"
        Exit Function
    End If
    
    prevLen = ParsePrevLength(prev_length)
    
    Set ws = ThisWorkbook.Worksheets("MEMBER")
    
    myGUID = Application.Caller.Worksheet.Cells(Application.Caller.Row, 5).Value
    
    If Len(Trim(myGUID)) = 0 Then
        FWH = "[NO GUID]"
        Exit Function
    End If
    
    rowMatch = Application.Match(myGUID, ws.Columns("E"), 0)
    If IsError(rowMatch) Then
        FWH = "[NO MATCH]"
        Exit Function
    End If
    
    colMatch = Application.Match("Length", ws.Rows(1), 0)
    If IsError(colMatch) Then
        FWH = "[NO COLUMN: Length]"
        Exit Function
    End If
    
    totalLength = ws.Cells(rowMatch, colMatch).Value
    
    Dim stepH As Double
    stepH = GetStepHeight(totalLength, step_no, prevLen)
    
    If stepH < 0 Then
        FWH = ""
    Else
        FWH = stepH
    End If
    Exit Function
    
ErrHandler:
    FWH = "[ERROR]"
End Function

'============================================================
' FWAE - 거푸집 외측 단별 면적 (FormWork Area Exterior)
'
' 사용법: =FWAE(1)       → 1단 외측 면적
'         =FWAE(2, 8)    → 이전 객체 8m 포함, 현재 객체 2번째 단 외측 면적
'
' 등단면: FWH(n, prev) × PerimeterExt(S)
' 변단면: 둘레 선형보간 사다리꼴 면적 기반 가중 배분
'============================================================
Function FWAE(step_no As Long, Optional prev_length As Variant) As Variant
    Dim ws As Worksheet
    Dim myGUID As String
    Dim rowMatch As Variant
    Dim colLen As Variant
    Dim colPeri As Variant
    Dim totalLength As Double
    Dim perimeter As Double
    Dim stepH As Double
    Dim prevLen As Double
    Dim abs_step As Long
    
    On Error GoTo ErrHandler
    
    If step_no < 1 Then
        FWAE = "[INVALID STEP]"
        Exit Function
    End If
    
    prevLen = ParsePrevLength(prev_length)
    
    Set ws = ThisWorkbook.Worksheets("MEMBER")
    
    myGUID = Application.Caller.Worksheet.Cells(Application.Caller.Row, 5).Value
    
    If Len(Trim(myGUID)) = 0 Then
        FWAE = "[NO GUID]"
        Exit Function
    End If
    
    rowMatch = Application.Match(myGUID, ws.Columns("E"), 0)
    If IsError(rowMatch) Then
        FWAE = "[NO MATCH]"
        Exit Function
    End If
    
    colLen = Application.Match("Length", ws.Rows(1), 0)
    If IsError(colLen) Then
        FWAE = "[NO COLUMN: Length]"
        Exit Function
    End If
    
    totalLength = ws.Cells(rowMatch, colLen).Value
    
    If Not GetAbsoluteStepForObject(totalLength, step_no, prevLen, abs_step, stepH) Then
        FWAE = ""
        Exit Function
    End If
    
    If IsTapered(ws, CLng(rowMatch)) Then
        Dim absStepStart As Double
        If abs_step = 1 Then
            absStepStart = 0
        Else
            absStepStart = 7 + CDbl(abs_step - 2) * 3
        End If
        
        Dim actualStart As Double
        actualStart = absStepStart
        If prevLen > actualStart Then actualStart = prevLen
        
        Dim areaExt As Double
        areaExt = GetTaperedStepArea(ws, CLng(rowMatch), totalLength, stepH, prevLen, actualStart, "EXT")
        If areaExt < 0 Then
            FWAE = "[ERROR: TAPERED]"
        Else
            FWAE = areaExt
        End If
    Else
        colPeri = Application.Match("PerimeterExt(S)", ws.Rows(1), 0)
        If IsError(colPeri) Then
            FWAE = "[NO COLUMN: PerimeterExt(S)]"
            Exit Function
        End If
        perimeter = ws.Cells(rowMatch, colPeri).Value
        FWAE = stepH * perimeter
    End If
    Exit Function
    
ErrHandler:
    FWAE = "[ERROR]"
End Function

'============================================================
' FWAI - 거푸집 내측 단별 면적 (FormWork Area Interior)
'
' 사용법: =FWAI(1)       → 1단 내측 면적
'         =FWAI(2, 8)    → 이전 객체 8m 포함, 현재 객체 2번째 단 내측 면적
'
' 등단면: FWH(n, prev) × PerimeterInt(S)
' 변단면: 둘레 선형보간 사다리꼴 면적 기반 가중 배분
'============================================================
Function FWAI(step_no As Long, Optional prev_length As Variant) As Variant
    Dim ws As Worksheet
    Dim myGUID As String
    Dim rowMatch As Variant
    Dim colLen As Variant
    Dim colPeri As Variant
    Dim totalLength As Double
    Dim perimeter As Double
    Dim stepH As Double
    Dim prevLen As Double
    Dim abs_step As Long
    
    On Error GoTo ErrHandler
    
    If step_no < 1 Then
        FWAI = "[INVALID STEP]"
        Exit Function
    End If
    
    prevLen = ParsePrevLength(prev_length)
    
    Set ws = ThisWorkbook.Worksheets("MEMBER")
    
    myGUID = Application.Caller.Worksheet.Cells(Application.Caller.Row, 5).Value
    
    If Len(Trim(myGUID)) = 0 Then
        FWAI = "[NO GUID]"
        Exit Function
    End If
    
    rowMatch = Application.Match(myGUID, ws.Columns("E"), 0)
    If IsError(rowMatch) Then
        FWAI = "[NO MATCH]"
        Exit Function
    End If
    
    colLen = Application.Match("Length", ws.Rows(1), 0)
    If IsError(colLen) Then
        FWAI = "[NO COLUMN: Length]"
        Exit Function
    End If
    
    totalLength = ws.Cells(rowMatch, colLen).Value
    
    If Not GetAbsoluteStepForObject(totalLength, step_no, prevLen, abs_step, stepH) Then
        FWAI = ""
        Exit Function
    End If
    
    If IsTapered(ws, CLng(rowMatch)) Then
        Dim absStepStart As Double
        If abs_step = 1 Then
            absStepStart = 0
        Else
            absStepStart = 7 + CDbl(abs_step - 2) * 3
        End If
        
        Dim actualStart As Double
        actualStart = absStepStart
        If prevLen > actualStart Then actualStart = prevLen
        
        Dim areaInt As Double
        areaInt = GetTaperedStepArea(ws, CLng(rowMatch), totalLength, stepH, prevLen, actualStart, "INT")
        If areaInt < 0 Then
            FWAI = "[ERROR: TAPERED]"
        Else
            FWAI = areaInt
        End If
    Else
        colPeri = Application.Match("PerimeterInt(S)", ws.Rows(1), 0)
        If IsError(colPeri) Then
            FWAI = "[NO COLUMN: PerimeterInt(S)]"
            Exit Function
        End If
        perimeter = ws.Cells(rowMatch, colPeri).Value
        FWAI = stepH * perimeter
    End If
    Exit Function
    
ErrHandler:
    FWAI = "[ERROR]"
End Function

'============================================================
' FWA - 거푸집 단별 합산 면적 (FormWork Area)
'
' 사용법: =FWA(1)       → 1단 외+내 면적
'         =FWA(2, 8)    → 이전 객체 8m 포함, 현재 객체 2번째 단 외+내 면적
'
' 등단면: FWH(n, prev) × (PerimeterExt(S) + PerimeterInt(S))
' 변단면: 둘레 선형보간 사다리꼴 면적 기반 가중 배분
'
' ※ 거푸집 공제(FWD)는 포함되지 않음. 별도 차감 필요.
'============================================================
Function FWA(step_no As Long, Optional prev_length As Variant) As Variant
    Dim ws As Worksheet
    Dim myGUID As String
    Dim rowMatch As Variant
    Dim colLen As Variant
    Dim colPeriExt As Variant
    Dim colPeriInt As Variant
    Dim totalLength As Double
    Dim periExt As Double
    Dim periInt As Double
    Dim stepH As Double
    Dim prevLen As Double
    Dim abs_step As Long
    
    On Error GoTo ErrHandler
    
    If step_no < 1 Then
        FWA = "[INVALID STEP]"
        Exit Function
    End If
    
    prevLen = ParsePrevLength(prev_length)
    
    Set ws = ThisWorkbook.Worksheets("MEMBER")
    
    myGUID = Application.Caller.Worksheet.Cells(Application.Caller.Row, 5).Value
    
    If Len(Trim(myGUID)) = 0 Then
        FWA = "[NO GUID]"
        Exit Function
    End If
    
    rowMatch = Application.Match(myGUID, ws.Columns("E"), 0)
    If IsError(rowMatch) Then
        FWA = "[NO MATCH]"
        Exit Function
    End If
    
    colLen = Application.Match("Length", ws.Rows(1), 0)
    If IsError(colLen) Then
        FWA = "[NO COLUMN: Length]"
        Exit Function
    End If
    
    totalLength = ws.Cells(rowMatch, colLen).Value
    
    If Not GetAbsoluteStepForObject(totalLength, step_no, prevLen, abs_step, stepH) Then
        FWA = ""
        Exit Function
    End If
    
    If IsTapered(ws, CLng(rowMatch)) Then
        Dim absStepStart As Double
        If abs_step = 1 Then
            absStepStart = 0
        Else
            absStepStart = 7 + CDbl(abs_step - 2) * 3
        End If
        
        Dim actualStart As Double
        actualStart = absStepStart
        If prevLen > actualStart Then actualStart = prevLen
        
        Dim areaAll As Double
        areaAll = GetTaperedStepArea(ws, CLng(rowMatch), totalLength, stepH, prevLen, actualStart, "ALL")
        If areaAll < 0 Then
            FWA = "[ERROR: TAPERED]"
        Else
            FWA = areaAll
        End If
    Else
        colPeriExt = Application.Match("PerimeterExt(S)", ws.Rows(1), 0)
        If IsError(colPeriExt) Then
            FWA = "[NO COLUMN: PerimeterExt(S)]"
            Exit Function
        End If
        
        colPeriInt = Application.Match("PerimeterInt(S)", ws.Rows(1), 0)
        If IsError(colPeriInt) Then
            FWA = "[NO COLUMN: PerimeterInt(S)]"
            Exit Function
        End If
        
        periExt = ws.Cells(rowMatch, colPeriExt).Value
        periInt = ws.Cells(rowMatch, colPeriInt).Value
        FWA = stepH * periExt + stepH * periInt
    End If
    Exit Function
    
ErrHandler:
    FWA = "[ERROR]"
End Function

'============================================================
' FWD - 거푸집 공제 면적 (FormWork Deduction)
'
' 사용법: =FWD(0)  → 시점(S) 단면적 반환 (FaceArea(S))
'         =FWD(1)  → 종점(E) 단면적 반환 (FaceArea(E))
'
' 변수:
'   0 = 시점(Start)
'   1 = 종점(End)
'============================================================
Function FWD(se_flag As Long) As Variant
    Dim ws As Worksheet
    Dim myGUID As String
    Dim rowMatch As Variant
    Dim colMatch As Variant
    Dim colName As String
    
    On Error GoTo ErrHandler
    
    If se_flag <> 0 And se_flag <> 1 Then
        FWD = "[INVALID: 0 or 1 only]"
        Exit Function
    End If
    
    If se_flag = 0 Then
        colName = "FaceArea(S)"
    Else
        colName = "FaceArea(E)"
    End If
    
    Set ws = ThisWorkbook.Worksheets("MEMBER")
    
    myGUID = Application.Caller.Worksheet.Cells(Application.Caller.Row, 5).Value
    
    If Len(Trim(myGUID)) = 0 Then
        FWD = "[NO GUID]"
        Exit Function
    End If
    
    rowMatch = Application.Match(myGUID, ws.Columns("E"), 0)
    If IsError(rowMatch) Then
        FWD = "[NO MATCH]"
        Exit Function
    End If
    
    colMatch = Application.Match(colName, ws.Rows(1), 0)
    If IsError(colMatch) Then
        FWD = "[NO COLUMN: " & colName & "]"
        Exit Function
    End If
    
    Dim result As Variant
    result = ws.Cells(rowMatch, colMatch).Value
    If IsEmpty(result) Or Len(Trim(CStr(result))) = 0 Then
        FWD = ""
    Else
        FWD = result
    End If
    Exit Function
    
ErrHandler:
    FWD = "[ERROR]"
End Function

'************************************************************
'
'  3. 도장 함수 (Paint)
'
'************************************************************
'============================================================
' PTE - 외측 도장 면적 (PainT Exterior)
'
' 사용법: =PTE()
'
' 등단면: Length × PerimeterExt(S)
' 변단면: 총측면적 × 외측둘레합 / 전체둘레합
'============================================================
Function PTE() As Variant
    Dim ws As Worksheet
    Dim myGUID As String
    Dim rowMatch As Variant
    Dim colLen As Variant
    Dim colPeri As Variant
    
    On Error GoTo ErrHandler
    
    Set ws = ThisWorkbook.Worksheets("MEMBER")
    
    myGUID = Application.Caller.Worksheet.Cells(Application.Caller.Row, 5).Value
    
    If Len(Trim(myGUID)) = 0 Then
        PTE = "[NO GUID]"
        Exit Function
    End If
    
    rowMatch = Application.Match(myGUID, ws.Columns("E"), 0)
    If IsError(rowMatch) Then
        PTE = "[NO MATCH]"
        Exit Function
    End If
    
    If IsTapered(ws, CLng(rowMatch)) Then
        Dim colSA As Variant, colFAS As Variant, colFAE As Variant
        Dim colPExtS As Variant, colPExtE As Variant
        Dim colPIntS As Variant, colPIntE As Variant
        Dim surfaceArea As Double, faceAreaS As Double, faceAreaE As Double
        Dim periExtS As Double, periExtE As Double
        Dim periIntS As Double, periIntE As Double
        Dim totalLateral As Double, sumExt As Double, sumAll As Double
        
        colSA = Application.Match("SurfaceArea", ws.Rows(1), 0)
        colFAS = Application.Match("FaceArea(S)", ws.Rows(1), 0)
        colFAE = Application.Match("FaceArea(E)", ws.Rows(1), 0)
        colPExtS = Application.Match("PerimeterExt(S)", ws.Rows(1), 0)
        colPExtE = Application.Match("PerimeterExt(E)", ws.Rows(1), 0)
        colPIntS = Application.Match("PerimeterInt(S)", ws.Rows(1), 0)
        colPIntE = Application.Match("PerimeterInt(E)", ws.Rows(1), 0)
        
        If IsError(colSA) Or IsError(colFAS) Or IsError(colFAE) Or _
           IsError(colPExtS) Or IsError(colPExtE) Or _
           IsError(colPIntS) Or IsError(colPIntE) Then
            PTE = "[ERROR: TAPERED]"
            Exit Function
        End If
        
        surfaceArea = ws.Cells(rowMatch, colSA).Value
        faceAreaS = ws.Cells(rowMatch, colFAS).Value
        faceAreaE = ws.Cells(rowMatch, colFAE).Value
        periExtS = ws.Cells(rowMatch, colPExtS).Value
        periExtE = ws.Cells(rowMatch, colPExtE).Value
        periIntS = ws.Cells(rowMatch, colPIntS).Value
        periIntE = ws.Cells(rowMatch, colPIntE).Value
        
        totalLateral = surfaceArea - faceAreaS - faceAreaE
        If totalLateral <= 0 Then
            PTE = ""
            Exit Function
        End If
        
        sumExt = periExtS + periExtE
        sumAll = sumExt + periIntS + periIntE
        
        If sumAll <= 0 Then
            PTE = ""
            Exit Function
        End If
        
        PTE = totalLateral * (sumExt / sumAll)
    Else
        colLen = Application.Match("Length", ws.Rows(1), 0)
        If IsError(colLen) Then
            PTE = "[NO COLUMN: Length]"
            Exit Function
        End If
        
        colPeri = Application.Match("PerimeterExt(S)", ws.Rows(1), 0)
        If IsError(colPeri) Then
            PTE = "[NO COLUMN: PerimeterExt(S)]"
            Exit Function
        End If
        
        Dim totalLength As Double
        Dim perimeter As Double
        totalLength = ws.Cells(rowMatch, colLen).Value
        perimeter = ws.Cells(rowMatch, colPeri).Value
        
        If totalLength <= 0 Or perimeter <= 0 Then
            PTE = ""
            Exit Function
        End If
        
        PTE = totalLength * perimeter
    End If
    Exit Function
    
ErrHandler:
    PTE = "[ERROR]"
End Function

'============================================================
' PTI - 내측 도장 면적 (PainT Interior)
'
' 사용법: =PTI()
'
' 등단면: Length × PerimeterInt(S)
' 변단면: 총측면적 × 내측둘레합 / 전체둘레합
'============================================================
Function PTI() As Variant
    Dim ws As Worksheet
    Dim myGUID As String
    Dim rowMatch As Variant
    Dim colLen As Variant
    Dim colPeri As Variant
    
    On Error GoTo ErrHandler
    
    Set ws = ThisWorkbook.Worksheets("MEMBER")
    
    myGUID = Application.Caller.Worksheet.Cells(Application.Caller.Row, 5).Value
    
    If Len(Trim(myGUID)) = 0 Then
        PTI = "[NO GUID]"
        Exit Function
    End If
    
    rowMatch = Application.Match(myGUID, ws.Columns("E"), 0)
    If IsError(rowMatch) Then
        PTI = "[NO MATCH]"
        Exit Function
    End If
    
    If IsTapered(ws, CLng(rowMatch)) Then
        Dim colSA As Variant, colFAS As Variant, colFAE As Variant
        Dim colPExtS As Variant, colPExtE As Variant
        Dim colPIntS As Variant, colPIntE As Variant
        Dim surfaceArea As Double, faceAreaS As Double, faceAreaE As Double
        Dim periExtS As Double, periExtE As Double
        Dim periIntS As Double, periIntE As Double
        Dim totalLateral As Double, sumInt As Double, sumAll As Double
        
        colSA = Application.Match("SurfaceArea", ws.Rows(1), 0)
        colFAS = Application.Match("FaceArea(S)", ws.Rows(1), 0)
        colFAE = Application.Match("FaceArea(E)", ws.Rows(1), 0)
        colPExtS = Application.Match("PerimeterExt(S)", ws.Rows(1), 0)
        colPExtE = Application.Match("PerimeterExt(E)", ws.Rows(1), 0)
        colPIntS = Application.Match("PerimeterInt(S)", ws.Rows(1), 0)
        colPIntE = Application.Match("PerimeterInt(E)", ws.Rows(1), 0)
        
        If IsError(colSA) Or IsError(colFAS) Or IsError(colFAE) Or _
           IsError(colPExtS) Or IsError(colPExtE) Or _
           IsError(colPIntS) Or IsError(colPIntE) Then
            PTI = "[ERROR: TAPERED]"
            Exit Function
        End If
        
        surfaceArea = ws.Cells(rowMatch, colSA).Value
        faceAreaS = ws.Cells(rowMatch, colFAS).Value
        faceAreaE = ws.Cells(rowMatch, colFAE).Value
        periExtS = ws.Cells(rowMatch, colPExtS).Value
        periExtE = ws.Cells(rowMatch, colPExtE).Value
        periIntS = ws.Cells(rowMatch, colPIntS).Value
        periIntE = ws.Cells(rowMatch, colPIntE).Value
        
        totalLateral = surfaceArea - faceAreaS - faceAreaE
        If totalLateral <= 0 Then
            PTI = ""
            Exit Function
        End If
        
        sumInt = periIntS + periIntE
        sumAll = periExtS + periExtE + sumInt
        
        If sumAll <= 0 Then
            PTI = ""
            Exit Function
        End If
        
        PTI = totalLateral * (sumInt / sumAll)
    Else
        colLen = Application.Match("Length", ws.Rows(1), 0)
        If IsError(colLen) Then
            PTI = "[NO COLUMN: Length]"
            Exit Function
        End If
        
        colPeri = Application.Match("PerimeterInt(S)", ws.Rows(1), 0)
        If IsError(colPeri) Then
            PTI = "[NO COLUMN: PerimeterInt(S)]"
            Exit Function
        End If
        
        Dim totalLength As Double
        Dim perimeter As Double
        totalLength = ws.Cells(rowMatch, colLen).Value
        perimeter = ws.Cells(rowMatch, colPeri).Value
        
        If totalLength <= 0 Or perimeter <= 0 Then
            PTI = ""
            Exit Function
        End If
        
        PTI = totalLength * perimeter
    End If
    Exit Function
    
ErrHandler:
    PTI = "[ERROR]"
End Function

'============================================================
' PTA - 도장 합산 면적 (PainT Area)
'
' 사용법: =PTA()
'
' 등단면: Length × (PerimeterExt(S) + PerimeterInt(S))
' 변단면: 총 측면적 = SurfaceArea - FaceArea(S) - FaceArea(E)
'============================================================
Function PTA() As Variant
    Dim ws As Worksheet
    Dim myGUID As String
    Dim rowMatch As Variant
    Dim colLen As Variant
    Dim colPeriExt As Variant
    Dim colPeriInt As Variant
    
    On Error GoTo ErrHandler
    
    Set ws = ThisWorkbook.Worksheets("MEMBER")
    
    myGUID = Application.Caller.Worksheet.Cells(Application.Caller.Row, 5).Value
    
    If Len(Trim(myGUID)) = 0 Then
        PTA = "[NO GUID]"
        Exit Function
    End If
    
    rowMatch = Application.Match(myGUID, ws.Columns("E"), 0)
    If IsError(rowMatch) Then
        PTA = "[NO MATCH]"
        Exit Function
    End If
    
    If IsTapered(ws, CLng(rowMatch)) Then
        Dim colSA As Variant, colFAS As Variant, colFAE As Variant
        Dim surfaceArea As Double, faceAreaS As Double, faceAreaE As Double
        Dim totalLateral As Double
        
        colSA = Application.Match("SurfaceArea", ws.Rows(1), 0)
        colFAS = Application.Match("FaceArea(S)", ws.Rows(1), 0)
        colFAE = Application.Match("FaceArea(E)", ws.Rows(1), 0)
        
        If IsError(colSA) Or IsError(colFAS) Or IsError(colFAE) Then
            PTA = "[ERROR: TAPERED]"
            Exit Function
        End If
        
        surfaceArea = ws.Cells(rowMatch, colSA).Value
        faceAreaS = ws.Cells(rowMatch, colFAS).Value
        faceAreaE = ws.Cells(rowMatch, colFAE).Value
        
        totalLateral = surfaceArea - faceAreaS - faceAreaE
        If totalLateral <= 0 Then
            PTA = ""
        Else
            PTA = totalLateral
        End If
    Else
        colLen = Application.Match("Length", ws.Rows(1), 0)
        If IsError(colLen) Then
            PTA = "[NO COLUMN: Length]"
            Exit Function
        End If
        
        colPeriExt = Application.Match("PerimeterExt(S)", ws.Rows(1), 0)
        If IsError(colPeriExt) Then
            PTA = "[NO COLUMN: PerimeterExt(S)]"
            Exit Function
        End If
        
        colPeriInt = Application.Match("PerimeterInt(S)", ws.Rows(1), 0)
        If IsError(colPeriInt) Then
            PTA = "[NO COLUMN: PerimeterInt(S)]"
            Exit Function
        End If
        
        Dim totalLength As Double
        Dim periExt As Double
        Dim periInt As Double
        totalLength = ws.Cells(rowMatch, colLen).Value
        periExt = ws.Cells(rowMatch, colPeriExt).Value
        periInt = ws.Cells(rowMatch, colPeriInt).Value
        
        If totalLength <= 0 Then
            PTA = ""
            Exit Function
        End If
        
        PTA = totalLength * periExt + totalLength * periInt
    End If
    Exit Function
    
ErrHandler:
    PTA = "[ERROR]"
End Function