開発マイルストーン  Version 1.12

モジュール名：M20_COM_CommonProc 共通のための処理 ■■■■■■■■■■■■■■■■■■■■■■■■■■■■ 【モジュール】:共通処理モジュール 【 概 要 】:共通のための処理 【 作 成 者 】: zudajijp 【 作 成 日 】: 2008/02/06 【 特記事項 】: ■■■■■■■■■■■■■■■■■■■■■■■■■■■■ 　　一覧へ  プロシジャー一覧 　プロシジャー名　 　概要　 quicksort 【機能】：クイックソート（昇順）処理 BubbleSort 【機能】：バブルソート処理 GetRGB 【機能】：RGB値からr(赤)/g(緑)/b(青)を返す COM_EffectRangeGet_Up 【機能】：ターゲット行を含む有効範囲(上)の行番号を取得 COM_EffectRangeGet_Down 【機能】：ターゲット行を含む有効範囲(下)の行番号を取得 COM_LineSplit 【機能】：文字データ分割 NumberInputWnd 【機能】：数値入力画面を表示する FigureSel 【機能】：セル(Range)から図形選択画面を表示させる HyperMaile 【機能】：メーラーを開く(メールを送る) HyperWebsite 【機能】：ブラウザを開いてページを表示する  プロシジャー記述書 　関数名　 　quicksort　 概要 【機能】：クイックソート（昇順）処理 処理 昇順にクイックソートして結果を元のデータ領域に格納する NumArray:並べ替えのデータ配列 first:先頭番号:1 last:最終番号:(データ個数) 形式 Function quicksort(NumArray, first, last) As Variant 可視性 パブリック 引数 戻り値 Variant ソート結果(NumArray) 　関数名　 　BubbleSort　 概要 【機能】：バブルソート処理 処理 指定された配列の整数をソートする 形式 Public Sub BubbleSort(data() As Date, Count As Integer, flag As Boolean) 可視性 パブリック 引数 data() Date ここのデータをソートする Count Integer 要素の数 flag Boolean [True]:昇順ソート,[False]:降順ソート 　関数名　 　GetRGB　 概要 【機能】：RGB値からr(赤)/g(緑)/b(青)を返す 処理 RGB値からr(赤)/g(緑)/b(青)を返す 形式 Function GetRGB(RGBval As Long, num As Integer) As Integer 可視性 パブリック 引数 RGBval Long RGB値 num Integer [0]:r(赤)、[1]:g(緑)、[2]:b(青) 戻り値 Integer RGB値(r,g,b) 　関数名　 　COM_EffectRangeGet_Up　 概要 【機能】：ターゲット行を含む有効範囲(上)の行番号を取得 処理 ターゲット行を含む有効範囲(上)の行番号を取得 形式 Function COM_EffectRangeGet_Up(w As Worksheet, TargetRow As Long, lev As Long) As Long 可視性 パブリック 引数 w Worksheet WorkSheetオブジェクト TargetRow Long ターゲット行番号 lev Long レベル [0]:大項目、[1]:中項目 戻り値 Long 有効範囲(上)の行番号 　関数名　 　COM_EffectRangeGet_Down　 概要 【機能】：ターゲット行を含む有効範囲(下)の行番号を取得 処理 ターゲット行を含む有効範囲(下)の行番号を取得 形式 Function COM_EffectRangeGet_Down(w As Worksheet, TargetRow As Long, lev As Long) As Long 可視性 パブリック 引数 w Worksheet WorkSheetオブジェクト TargetRow Long ターゲット行番号 lev Long レベル [0]:大項目、[1]:中項目 戻り値 Long 有効範囲(下)の行番号 　関数名　 　COM_LineSplit　 概要 【機能】：文字データ分割 処理 文字列データを分割 dst:分割データ格納先 形式 Sub COM_LineSplit(src As String, dst() As String) 可視性 パブリック 引数 src String 元データ dst() String 　関数名　 　NumberInputWnd　 概要 【機能】：数値入力画面を表示する 処理 数値入力フォームを表示し、入力結果をセルに入力する ※入力範囲(0.00〜1.00)、値(50[0.5])の場合、比率(100)、単位(0.01) 進捗(r, "50", 1, 99, 1, 1) 日数(r, "10", 1, 9999, 1, 1) 工数(r, "100", 1, 1000,0.01, 1) 形式 Public Function NumberInputWnd(objRange As Range, strObj As String, sngMin As Single, sngMax As Single, sngRate As Single, sngTanni As Single, Optional lngLeft As Long, Optional lngTop As Long, Optional strLabel1 As String, Optional strLabel2 As String) As Boolean 可視性 パブリック 引数 objRange Range セル(Range) ※原則として単一セル strObj String 値 sngMin Single 入力範囲(最小値) sngMax Single 入力範囲(最大値) sngRate Single 表示比率(ダイアログ内での表示) sngTanni Single 表示単位(セルに戻す時の換算) lngLeft Long 数値入力フォームの表示位置：横(Long) ※Option lngTop Long 数値入力フォームの表示位置：縦(Long) ※Option strLabel1 String ガイダンスのCaption(String) ※Option、デフォルトは"進捗" strLabel2 String ガイダンスのCaption(String) ※Option、デフォルトは"進捗(%)" 戻り値 Boolean [True]:変更あり、[False]:失敗 or 変更無し 　関数名　 　FigureSel　 概要 【機能】：セル(Range)から図形選択画面を表示させる 処理 図形選択画面を表示し、選択した値をセルに入力する 形式 Public Function FigureSel(objRange As Range, Optional strObj As String, Optional lngLeft As Long, Optional lngTop As Long, Optional flg As Boolean) As Boolean 可視性 パブリック 引数 objRange Range セル(Object) ※原則として単一セル strObj String カレンダーフォームのCaption(String) ※Option、デフォルトは"日付選択" lngLeft Long カレンダーフォームの表示位置：横(Long) ※Option lngTop Long カレンダーフォームの表示位置：縦(Long) ※Option flg Boolean [True]:入力のまま、[False]:デフォルト文字列に変換 戻り値 Boolean [True]:変更あり、[False]:失敗 or 変更なし 　関数名　 　HyperMaile　 概要 【機能】：メーラーを開く(メールを送る) 処理 メーラーを開く(メールを送る) mailto:メールアドレス subject:メールタイトル 形式 Sub HyperMaile(mailto$, Optional subject$ = "", Optional body$ = "") 可視性 パブリック 引数 　関数名　 　HyperWebsite　 概要 【機能】：ブラウザを開いてページを表示する 処理 ブラウザを開いてページを表示する adr:URLアドレス 形式 Sub HyperWebsite(adr$, Optional newwin As Boolean = True) 可視性 パブリック 引数 newwin Boolean [True]:新規ウィンドウ

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