開発マイルストーン  Version 1.12

 モジュール名:M11_PLN_PlanProc

ワークシート変更時の予定更新処理
■■■■■■■■■■■■■■■■■■■■■■■■■■■■

【モジュール】:予定処理モジュール
【 概 要 】:ワークシート変更時の予定更新処理
【 作 成 者 】: zudajijp
【 作 成 日 】: 2007/06/20
【 特記事項 】:

■■■■■■■■■■■■■■■■■■■■■■■■■■■■
  一覧へ

 プロシジャー一覧


 プロシジャー名   概要 
PLN_PopupPosGet 【機能】:フォーム表示時のポップアップ座標取得
PLN_ReturnKey_Schedule 【機能】:リターンキー(スケジュール)処理
PLN_WorksheetChange 【機能】:ワークシートが変更された時の処理
PLN_YoteiDisp 【機能】:予定入力処理
PLN_StartDayDisp 【機能】:開始日の計算処理
PLN_StartDayDisp_Connect 【機能】:開始日の計算処理(先行タスク)
PLN_EndDayDisp 【機能】:終了日の計算処理
PLN_DaysDisp 【機能】:日数の計算処理
PLN_EndDayDispAll 【機能】終了日再計算処理
PLN_CommentAdd 【機能】:コメントの追加処理
PLN_StatusDisp 【機能】:状態表示変更処理
PLN_DispRangeGet 【機能】:最適チャート表示範囲取得処理
PLN_TaskOrderChange 【機能】:タスク並び替え処理
PLN_TopItemEffect 【機能】:大項目整形処理




 プロシジャー記述書


 関数名   PLN_PopupPosGet 
概要 【機能】:フォーム表示時のポップアップ座標取得
処理 セル座標からスクリーン座標を取得する
形式 Sub PLN_PopupPosGet(r As Range, x1 As Long, y1 As Long, Optional 補正 As Boolean)
可視性 パブリック
引数
r Range Rangeオブジェクト
x1 Long 取得したx座標(アウトプット)
y1 Long 取得したy座標(アウトプット)
補正 Boolean キーイベントから呼び出される場合に座標を補正する

 関数名   PLN_ReturnKey_Schedule 
概要 【機能】:リターンキー(スケジュール)処理
処理 セル位置により「カレンダー」「数値入力画面」「図形選択画面」「担当者選択画面」を表示する
形式 Sub PLN_ReturnKey_Schedule()
可視性 パブリック
引数 なし

 関数名   PLN_WorksheetChange 
概要 【機能】:ワークシートが変更された時の処理
処理 チャートを全て削除し、全行に対して「終了日」「遅れ」「進捗」「状態」の更新および「図形」を再作成する
「コネクタ」「イナズマ線」「現在日線」の作成と「工数統計処理」を行う
形式 Sub PLN_WorksheetChange(ByVal Target As Range)
可視性 パブリック
引数
Target Range Rangeオブジェクト

 関数名   PLN_YoteiDisp 
概要 【機能】:予定入力処理
処理 「開始日」「日数」「終了日」から予定を処理する
Target:ターゲットセル
形式 Sub PLN_YoteiDisp(TargetRow As Long, Optional TagetClm As Integer = 0)
可視性 パブリック
引数
TargetRow Long
TagetClm Integer

 関数名   PLN_StartDayDisp 
概要 【機能】:開始日の計算処理
処理 「終了日」「日数」から終了日を計算する
※「CHA_ChartReDisp」「PLN_WorksheetChange」から呼び出される
形式 Sub PLN_StartDayDisp(TargetRow As Long, Optional jitu As Boolean = False)
可視性 パブリック
引数
TargetRow Long ターゲット行番号
jitu Boolean [True]:実績、[False]:予定

 関数名   PLN_StartDayDisp_Connect 
概要 【機能】:開始日の計算処理(先行タスク)
処理 「終了日」「日数」から終了日を計算する
※「CHA_ChartReDisp」「PLN_WorksheetChange」から呼び出される
形式 Sub PLN_StartDayDisp_Connect(TargetRow As Long, TargetRow2 As Long, Optional jitu As Boolean = False)
可視性 パブリック
引数
TargetRow Long ターゲット行番号
TargetRow2 Long
jitu Boolean [True]:実績、[False]:予定

 関数名   PLN_EndDayDisp 
概要 【機能】:終了日の計算処理
処理 「開始日」「日数」から終了日を計算する
※「CHA_ChartReDisp」「PLN_WorksheetChange」から呼び出される
形式 Sub PLN_EndDayDisp(TargetRow As Long, Optional jitu As Boolean = False)
可視性 パブリック
引数
TargetRow Long ターゲット行番号
jitu Boolean [True]:実績、[False]:予定

 関数名   PLN_DaysDisp 
概要 【機能】:日数の計算処理
処理 「開始日」「終了日」から日数を計算する
※「CHA_ChartReDisp」「PLN_WorksheetChange」から呼び出される
形式 Sub PLN_DaysDisp(TargetRow As Long, Optional jitu As Boolean = False)
可視性 パブリック
引数
TargetRow Long ターゲット行番号
jitu Boolean [True]:実績、[False]:予定

 関数名   PLN_EndDayDispAll 
概要 【機能】終了日再計算処理
処理 日数、終了日を再計算する
形式 Sub PLN_EndDayDispAll()
可視性 パブリック
引数 なし

 関数名   PLN_CommentAdd 
概要 【機能】:コメントの追加処理
処理 ターゲット行の「項目」にコメントを追加する
※「PLN_WorksheetChange」「FIL_FileInput」から呼び出される
形式 Sub PLN_CommentAdd(w As Worksheet, TargetRow As Long, txt As String)
可視性 パブリック
引数
w Worksheet WorkSheetオブジェクト
TargetRow Long ターゲット行番号
txt String コメント文字列

 関数名   PLN_StatusDisp 
概要 【機能】:状態表示変更処理
処理 ターゲット行のタスク進捗状況から状態を変更する
※「CHA_ChartReDisp」「PLN_WorksheetChange」から呼び出される
形式 Sub PLN_StatusDisp(TargetRow As Long)
可視性 パブリック
引数
TargetRow Long ターゲット行番号

 関数名   PLN_DispRangeGet 
概要 【機能】:最適チャート表示範囲取得処理
処理 最適な表示範囲を取得する
flg:[true]最適値,[false]設定値
形式 Sub PLN_DispRangeGet(startDay As String, span As Long, term As String)
可視性 パブリック
引数
startDay String 開始日(取得)
span Long 期間(取得)
term String 表示単位(取得)

 関数名   PLN_TaskOrderChange 
概要 【機能】:タスク並び替え処理
処理
形式 Sub PLN_TaskOrderChange()
可視性 パブリック
引数 なし

 関数名   PLN_TopItemEffect 
概要 【機能】:大項目整形処理
処理
形式 Sub PLN_TopItemEffect()
可視性 パブリック
引数 なし


Copyright (c) 2007-2009 zudajijp. All Rights Reserved.