Private Sub psubSheetSet_Detail()
    'definition in other subs:
    '    Set g_xlApp = CreateObject("Excel.Application")
    '    Set xlSheetReport = g_xlApp.ActiveSheet
    'ディテール編集
    With xlSheetReport
        'NO.
        .Cells(w_lngRDLine, 1) = w_lngRDLineNo
        '店部課コード
        If w_typRD(w_lngRDCount).TENBUKA_CD <> vbNullString Then
            .Cells(w_lngRDLine, 2) = w_typRD(w_lngRDCount).TENBUKA_CD
        End If
        '部課店所
        If w_typRD(w_lngRDCount).TENBUKA_RK <> vbNullString Then
            .Cells(w_lngRDLine, 3) = w_typRD(w_lngRDCount).TENBUKA_RK
        End If
        '契約先コード
        If w_typRD(w_lngRDCount).KEIYAKU_CD <> vbNullString Then
            .Cells(w_lngRDLine, 4) = w_typRD(w_lngRDCount).KEIYAKU_CD
        End If
        '契約先名
        If w_typRD(w_lngRDCount).KEIYAKU_NM <> vbNullString Then
            .Cells(w_lngRDLine, 5) = w_typRD(w_lngRDCount).KEIYAKU_NM
        End If
        '取引形態
        If w_typRD(w_lngRDCount).TORIKEI_KBN <> vbNullString Then
            .Cells(w_lngRDLine, 6) = g_objConsTori.Item(w_typRD(w_lngRDCount).TORIKEI_KBN).Value
        End If
        'ＭＦ
        If w_typRD(w_lngRDCount).MF_KBN <> vbNullString Then
         .Cells(w_lngRDLine, 7) = g_objConsMF.Item(w_typRD(w_lngRDCount).MF_KBN).Value
        End If
       '契約番号
        .Cells(w_lngRDLine, 8) = w_typRD(w_lngRDCount).KEIYAKU_NO
        'ＲＥＶ
        .Cells(w_lngRDLine, 9) = w_typRD(w_lngRDCount).REV
        '開始日
        .Cells(w_lngRDLine, 10) = substrDateChange(w_typRD(w_lngRDCount).KAISHI_YMD, "g#e.#m.#d")
        'Ｒ
        If IsNull(w_typRD(w_lngRDCount).REMARK) Then
        Else
            If Trim(w_typRD(w_lngRDCount).REMARK) = "1" Then
                .Cells(w_lngRDLine, 11) = "*"
            Else
                .Cells(w_lngRDLine, 11) = w_typRD(w_lngRDCount).REMARK
            End If
        End If
        '実行高差額
        If w_typRD(w_lngRDCount).KEIYAKU_TTL_SA <> 0 Then
            .Cells(w_lngRDLine, 12) = w_typRD(w_lngRDCount).KEIYAKU_TTL_SA
        End If
        '粗利益（変更前）
        If w_typRD(w_lngRDCount).ARARI_BEF <> 0 Then
            .Cells(w_lngRDLine, 13) = w_typRD(w_lngRDCount).ARARI_BEF
        End If
        '粗利益（変更後）
        If w_typRD(w_lngRDCount).ARARI_AFT <> 0 Then
            .Cells(w_lngRDLine, 14) = w_typRD(w_lngRDCount).ARARI_AFT
        End If
        '粗利益（差額）
        If w_typRD(w_lngRDCount).ARARI_DIF <> 0 Then
            .Cells(w_lngRDLine, 15) = w_typRD(w_lngRDCount).ARARI_DIF
        End If
    End With
    
    w_lngRDLine = w_lngRDLine + 1
    w_lngRDLineNo = w_lngRDLineNo + 1

End Sub