開発マイルストーン  Version 1.12

モジュール名：M12_MEM_MemberProc 担当者色をスケジュールに反映する ■■■■■■■■■■■■■■■■■■■■■■■■■■■■ 【モジュール】:担当者一覧処理モジュール 【 概 要 】:担当者色をスケジュールに反映する 【 作 成 者 】: zudajijp 【 作 成 日 】: 2007/06/20 【 特記事項 】: ■■■■■■■■■■■■■■■■■■■■■■■■■■■■ 　　一覧へ  プロシジャー一覧 　プロシジャー名　 　概要　 MEM_WorksheetClick_Member_G 【機能】：「担当者一覧」シート:ワークシートクリック時の処理 MEM_WorksheetChange_Member_G 【機能】：「担当者一覧」シート:ワークシートクリック時の処理 MEM_WorksheetChange_Member 【機能】：「担当者一覧」シート:ワークシート変更時の処理 MEM_AutoColorSet 【機能】：担当者一覧の自動色設定 MEM_ColorGet 【機能】：担当者一覧からの色取得 MEM_GetBufferSet 【機能】：担当者一覧_取得バッファへの担当者取得 MEM_ColorGet2 【機能】：担当者一覧_取得バッファからの色取得 MEM_RestKindGet 【機能】：担当者一覧_取得バッファからの休出区別取得 MEM_MemberNumGet 【機能】：担当者一覧からのメンバ数取得 MEM_Reget 【機能】：「スケジュール」シートからの担当者一覧取得 MEM_Repaint 【機能】：担当者一覧再描画 MEM_MemberAllDel 【機能】：「担当者一覧」シート：担当者の全削除 MEM_LastLineGet 【機能】：担当者一覧の最終行取得処理 MEM_FrameLinePaint 【機能】：「担当者一覧」シート：担当者枠描画 MEM_FigureRepaint 【機能】：担当者一覧の図形再表示 MEM_FigureAllDel 【機能】：担当者一覧の図形全削除 MEM_FigureClear 【機能】：担当者一覧の行図形クリア MEM_FigureDisp 【機能】：担当者一覧の行図形描画 MEM_FilePut 【機能】：担当者一覧のファイル(CSV形式)出力処理 MEM_FileGet 【機能】：担当者一覧のファイル(CSV形式)入力処理 MEM_AllMemberSet 【機能】：担当者選択画面への担当者一覧セット MEM_MemberSel 【機能】：担当者入力画面を表示する MEM_MemberFilePut 【機能】：担当者毎スケジュールのファイル(CSV形式)出力処理 MEM_MemberFilePut_Sub 【機能】：CSV形式のファイルを出力する  プロシジャー記述書 　関数名　 　MEM_WorksheetClick_Member_G　 概要 【機能】：「担当者一覧」シート:ワークシートクリック時の処理 処理 「担当者一覧」シートのワークシートがクリックされた時、セル位置によりポップアップを表示する ・「開始/終了」:カレンダー ※「CMD_ReturnKey」から呼び出される 形式 Sub MEM_WorksheetClick_Member_G(ByVal s As String) 可視性 パブリック 引数 s String セルRange 　関数名　 　MEM_WorksheetChange_Member_G　 概要 【機能】：「担当者一覧」シート:ワークシートクリック時の処理 処理 「担当者一覧」シートのワークシートが変更された時、「MEM_WorksheetChange_Member」をコールする ※「CMD_WorkSheetExec」から呼び出される 形式 Sub MEM_WorksheetChange_Member_G(ByVal s As String) 可視性 パブリック 引数 s String セルRange 　関数名　 　MEM_WorksheetChange_Member　 概要 【機能】：「担当者一覧」シート:ワークシート変更時の処理 処理 「担当者一覧」シートのワークシートが変更された時、担当者図形を再表示する ※「CMD_WorkSheetExec」から呼び出される 形式 Sub MEM_WorksheetChange_Member(ByVal Target As Range) 可視性 パブリック 引数 Target Range Rangeオブジェクト 　関数名　 　MEM_AutoColorSet　 概要 【機能】：担当者一覧の自動色設定 処理 「担当者一覧」シートの担当者の色を設定する -------------------------------------------------------- 形式 Sub MEM_AutoColorSet() 可視性 パブリック 引数 なし 　関数名　 　MEM_ColorGet　 概要 【機能】：担当者一覧からの色取得 処理 「担当者一覧」シートから担当者Nameの色を取得する 担当者一覧_色取得:色番号(ColorIndex) 形式 Function MEM_ColorGet(Name As String) As Long 可視性 パブリック 引数 Name String 担当者 戻り値 Long 　関数名　 　MEM_GetBufferSet　 概要 【機能】：担当者一覧_取得バッファへの担当者取得 処理 「担当者一覧」シートから担当者の名前/色/図形記号を取得し、配列「担当者一覧_取得バッファ」に格納する 形式 Sub MEM_GetBufferSet(flg As Boolean) 可視性 パブリック 引数 flg Boolean [False]:クリア、[True]:バッファに追加 　関数名　 　MEM_ColorGet2　 概要 【機能】：担当者一覧_取得バッファからの色取得 処理 担当者一覧_取得バッファから担当者Nameの色を取得する 担当者一覧_色取得2:色番号(ColorIndex) 形式 Function MEM_ColorGet2(Name As String) As Long 可視性 パブリック 引数 Name String 担当者 戻り値 Long 　関数名　 　MEM_RestKindGet　 概要 【機能】：担当者一覧_取得バッファからの休出区別取得 処理 担当者一覧_取得バッファから担当者Nameの休出区別を取得する 担当者一覧_休出区別取得:休出区別番号(GroupNo) 形式 Function MEM_RestKindGet(Name As String) As Integer 可視性 パブリック 引数 Name String 担当者 戻り値 Integer 　関数名　 　MEM_MemberNumGet　 概要 【機能】：担当者一覧からのメンバ数取得 処理 「担当者一覧」シートからメンバ「○」の数を計算する 担当者一覧_メンバ数取得:メンバ数 形式 Function MEM_MemberNumGet(day As Date) As Long 可視性 パブリック 引数 day Date 開始日 戻り値 Long 　関数名　 　MEM_Reget　 概要 【機能】：「スケジュール」シートからの担当者一覧取得 処理 「スケジュール」シートから担当者を取得し、「担当者一覧」シートにセットする 形式 Sub MEM_Reget(add As Boolean) 可視性 パブリック 引数 add Boolean [True]現在の担当者に追加、[False]スケジュールの担当者のみ 　関数名　 　MEM_Repaint　 概要 【機能】：担当者一覧再描画 処理 「担当者一覧」シートを再描画する 形式 Sub MEM_Repaint() 可視性 パブリック 引数 なし 　関数名　 　MEM_MemberAllDel　 概要 【機能】：「担当者一覧」シート：担当者の全削除 処理 「担当者一覧」シートの担当者を全て削除する 形式 Sub MEM_MemberAllDel(ByVal m As Worksheet) 可視性 パブリック 引数 m Worksheet Worksheetオブジェクト 　関数名　 　MEM_LastLineGet　 概要 【機能】：担当者一覧の最終行取得処理 処理 担当者一覧の最終行を取得する 担当者一覧_最終行取得処理:行番号 形式 Function MEM_LastLineGet(ByVal w As Worksheet) As Long 可視性 パブリック 引数 w Worksheet Worksheetオブジェクト 戻り値 Long 　関数名　 　MEM_FrameLinePaint　 概要 【機能】：「担当者一覧」シート：担当者枠描画 処理 「担当者一覧」シートの担当者枠を描画する 形式 Sub MEM_FrameLinePaint(ByVal m As Worksheet, n1 As Long, n2 As Long) 可視性 パブリック 引数 m Worksheet Worksheetオブジェクト n1 Long n2 Long 　関数名　 　MEM_FigureRepaint　 概要 【機能】：担当者一覧の図形再表示 処理 「担当者一覧」シートの図形を全て削除し、全行に対して「図形」を再作成する 形式 Sub MEM_FigureRepaint(ByVal m As Worksheet) 可視性 パブリック 引数 m Worksheet Worksheetオブジェクト 　関数名　 　MEM_FigureAllDel　 概要 【機能】：担当者一覧の図形全削除 処理 「担当者一覧」シートの図形を全て削除する 形式 Sub MEM_FigureAllDel(ByVal m As Worksheet) 可視性 パブリック 引数 m Worksheet Worksheetオブジェクト 　関数名　 　MEM_FigureClear　 概要 【機能】：担当者一覧の行図形クリア 処理 指定行の図形を削除する 形式 Sub MEM_FigureClear(lngRow As Long) 可視性 パブリック 引数 lngRow Long ターゲット行番号 　関数名　 　MEM_FigureDisp　 概要 【機能】：担当者一覧の行図形描画 処理 指定行に図形を描画する 形式 Sub MEM_FigureDisp(lngRow As Long) 可視性 パブリック 引数 lngRow Long ターゲット行番号 　関数名　 　MEM_FilePut　 概要 【機能】：担当者一覧のファイル(CSV形式)出力処理 処理 「担当者一覧」シートの項目(担当者,開始日など)から出力用文字列(CSV形式)作成し、ファイルに出力する 形式 Sub MEM_FilePut() 可視性 パブリック 引数 なし 　関数名　 　MEM_FileGet　 概要 【機能】：担当者一覧のファイル(CSV形式)入力処理 処理 ファイル(CSV形式)からデータを読み込み、「担当者一覧」シートに入力する 形式 Sub MEM_FileGet() 可視性 パブリック 引数 なし 　関数名　 　MEM_AllMemberSet　 概要 【機能】：担当者選択画面への担当者一覧セット 処理 「スケジュール」シートおよび「担当者一覧」シートから全担当者を取得し、担当者選択画面の「List_MemberSel」にセットする 形式 Sub MEM_AllMemberSet() 可視性 パブリック 引数 なし 　関数名　 　MEM_MemberSel　 概要 【機能】：担当者入力画面を表示する 処理 担当者入力フォームを表示し、選択をセルに入力する 形式 Public Sub MEM_MemberSel(objRange As Range, Optional strObj As String, Optional lngLeft As Long, Optional lngTop As Long) 可視性 パブリック 引数 objRange Range セル(Range) ※原則として単一セル strObj String 値 lngLeft Long 担当者入力フォームの表示位置：横(Long) ※Option lngTop Long 担当者入力フォームの表示位置：縦(Long) ※Option 　関数名　 　MEM_MemberFilePut　 概要 【機能】：担当者毎スケジュールのファイル(CSV形式)出力処理 処理 「担当者一覧」シートの項目(担当者)からスケジュールを抽出(CSV形式)し、ファイルに出力する 形式 Sub MEM_MemberFilePut() 可視性 パブリック 引数 なし 　関数名　 　MEM_MemberFilePut_Sub　 概要 【機能】：CSV形式のファイルを出力する 処理 �@ファイルオープン �A「ファイル出力処理」実行 �Bファイルクローズ 形式 Public Function MEM_MemberFilePut_Sub(Name As String) As Boolean 可視性 パブリック 引数 Name String 戻り値 Boolean

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