Mod80a_PublicConst

Option Explicit
Option Base 1

'--------------------------------------------------
'工程数定義
'--------------------------------------------------
Public Const C_LNG_工程START As Long = 1
Public Const C_INT_工程END As Integer = 3

'-----------------------------------------------
' 構造体：工程ごとの列情報
'-----------------------------------------------
Public Type typ工程列
    工数 As String
    担当 As String
    開始日 As String
    終了日 As String
End Type

'-----------------------------------------------
' 構造体：ガント全体の列情報
'-----------------------------------------------
Public Type typガント列定義
    項番 As String
    ツール名 As String
    工程(1 To 3) As typ工程列 ' 工程A～工程Cの3工程
End Type

'-----------------------------------------------
' 定数
'-----------------------------------------------
'シート名
Public Const STR_WSNAME_ガント As String = "ガント"
Public Const STR_WSNAME_工数明細 As String = "工数明細"
Public Const STR_WSNAME_集計 As String = "集計"
Public Const STR_WSNAME_休業日 As String = "休業日"

'行
Public Const LNG_ROWSTART_WSガント   As Long = 2

'列
Public Function fncガント列定義取得() As typガント列定義

    Dim t As typガント列定義

    t.項番 = "A"
    t.ツール名 = "B"

    t.工程(1).工数 = "D"
    t.工程(2).工数 = "E"
    t.工程(3).工数 = "F"
    
    t.工程(1).担当 = "H"
    t.工程(2).担当 = "I"
    t.工程(3).担当 = "J"
    
    t.工程(1).開始日 = "L"
    t.工程(1).終了日 = "M"
    
    t.工程(2).開始日 = "N"
    t.工程(2).終了日 = "O"
    
    t.工程(3).開始日 = "P"
    t.工程(3).終了日 = "Q"

    fncガント列定義取得 = t

End Function