| 関数名 |
LNG_Initialize |
| 概要 |
【機能】：言語変換初期化処理 |
| 処理 |
「FNC_WorksheetInit」から呼ばれる
言語変換処理:[0]:正常、[-1]:異常
|
| 形式 |
Sub LNG_Initialize() |
| 可視性 |
パブリック |
| 引数 |
なし |
| 関数名 |
LNG_ChangeSheetName |
| 概要 |
【機能】：シート名変更処理 |
| 処理 |
シート名変更処理
|
| 形式 |
Sub LNG_ChangeSheetName() |
| 可視性 |
パブリック |
| 引数 |
なし |
| 関数名 |
LNG_ChangeLang |
| 概要 |
【機能】：言語変換処理 |
| 処理 |
|
| 形式 |
Sub LNG_ChangeLang(Optional wname As String = "") |
| 可視性 |
パブリック |
| 引数 |
|
| 関数名 |
LNG_SetName |
| 概要 |
【機能】：表示名変更 |
| 処理 |
表示名を変更する
r1:オフセット(Row)
c1:オフセット(Column)
|
| 形式 |
Private Sub LNG_SetName(cmd As String, wname As String, obj As String, Name As String, Optional sr1 As String = "0", Optional sc1 As String = "0") |
| 可視性 |
プライベート |
| 引数 |
| cmd |
String |
処理 |
| wname |
String |
各名称 |
| obj |
String |
オブジェクト名 |
| Name |
String |
変更する文字列 |
| sr1 |
String |
|
| sc1 |
String |
|
|
| 関数名 |
LNG_Form |
| 概要 |
【機能】：フォームの表示名とフォント変更 |
| 処理 |
フォームの表示名を変更する
|
| 形式 |
Sub LNG_Form(frm As Object, obj As String, Name As String, Optional Tag As String = "", Optional Help As String = "") |
| 可視性 |
パブリック |
| 引数 |
| frm |
Object |
フォーム |
| obj |
String |
オブジェクト名(Control) |
| Name |
String |
変更する文字列 |
| Tag |
String |
タグ文字列(オプション) |
| Help |
String |
ヘルプ文字列(オプション) |
|
| 関数名 |
LNG_SetWindow |
| 概要 |
【機能】：フォームの表示名変更 |
| 処理 |
フォームの表示名を変更する
ID:"WND"
|
| 形式 |
Private Sub LNG_SetWindow(wname As String, obj As String, Name As String, Optional Tag As String = "", Optional Help As String = "") |
| 可視性 |
プライベート |
| 引数 |
| wname |
String |
フォーム名(UserForm) |
| obj |
String |
オブジェクト名(Control) |
| Name |
String |
変更する文字列 |
| Tag |
String |
タグ文字列(オプション) |
| Help |
String |
ヘルプ文字列(オプション) |
|
| 関数名 |
LNG_SetLists |
| 概要 |
【機能】：リストの選択表示名変更 |
| 処理 |
リストの選択表示名を変更する
|
| 形式 |
Private Sub LNG_SetLists() |
| 可視性 |
プライベート |
| 引数 |
なし |
| 関数名 |
LNG_SetList |
| 概要 |
【機能】：リストの選択表示名変更 |
| 処理 |
リストの選択表示名を変更する
[LST,DEFC_Chart_Term,Month,月単位]
|
| 形式 |
Private Sub LNG_SetList(cname As String) |
| 可視性 |
プライベート |
| 引数 |
|
| 関数名 |
LNG_SetButton |
| 概要 |
【機能】：ボタンの表示名変更 |
| 処理 |
ボタンの表示名を変更する
ID:"BTN"
|
| 形式 |
Private Sub LNG_SetButton(wname As String, obj As String, Name As String) |
| 可視性 |
プライベート |
| 引数 |
| wname |
String |
Sheet名 |
| obj |
String |
オブジェクト名(Control) |
| Name |
String |
変更する文字列 |
|
| 関数名 |
LNG_SetCell |
| 概要 |
【機能】：セルの表示名変更 |
| 処理 |
セルの表示名を変更する
ID:"CEL"
|
| 形式 |
Private Sub LNG_SetCell(wname As String, obj As String, Name As String, Optional r1 As Long = 0, Optional c1 As Long = 0) |
| 可視性 |
プライベート |
| 引数 |
| wname |
String |
Sheet名 |
| obj |
String |
セル名(Range) |
| Name |
String |
変更する文字列 |
| r1 |
Long |
オフセット(Row) |
| c1 |
Long |
オフセット(Column) |
|
| 関数名 |
LNG_SetStrForm |
| 概要 |
【機能】：セルの文字書式変更 |
| 処理 |
セルの文字書式を変更する
ID:"FRM"
|
| 形式 |
Private Sub LNG_SetStrForm(wname As String, obj As String, Name As String, Optional r1 As Long = 0, Optional c1 As Long = 0) |
| 可視性 |
プライベート |
| 引数 |
| wname |
String |
Sheet名 |
| obj |
String |
セル名(Range) |
| Name |
String |
変更する文字列 |
| r1 |
Long |
オフセット(Row) |
| c1 |
Long |
オフセット(Column) |
|
| 関数名 |
LNG_SetSheetFont |
| 概要 |
【機能】：シートのフォント変更 |
| 処理 |
セルの文字書式を変更する
ID:"FNT"
|
| 形式 |
Private Sub LNG_SetSheetFont(wname As String, Name As String) |
| 可視性 |
プライベート |
| 引数 |
| wname |
String |
Sheet名 |
| Name |
String |
変更するフォント名 |
|
| 関数名 |
LNG_FileInput |
| 概要 |
【機能】：表示言語ファイルからの入力 |
| 処理 |
@「lang\(表示言語名).txt」を読み込む
AExcelシートのセル、ボタンの文字を変更
Bポップアップウィンドウ用のバッファをセット
|
| 形式 |
Sub LNG_FileInput(lang As String, flg As Integer) |
| 可視性 |
パブリック |
| 引数 |
| lang |
String |
言語名 |
| flg |
Integer |
[1]強制,[0]デフォルトは実行しない |
|
| 関数名 |
LNG_GetLangRecord |
| 概要 |
【機能】：「スケジュール」シートの該当セルにファイル内容を入力 |
| 処理 |
@レコードを読み込む
ALineInputより","を探しCSV→項目分割させる
BLNG_SetNameをコール
|
| 形式 |
Private Function LNG_GetLangRecord(f As Object, flg As Integer) As Integer |
| 可視性 |
プライベート |
| 引数 |
| f |
Object |
|
| flg |
Integer |
[1]Excel更新,[0]バッファのみ |
|
| 戻り値 |
|
| 関数名 |
LNG_GetFileList |
| 概要 |
【機能】：表示言語リストの取得 |
| 処理 |
@「lang\(表示言語名).txt」ファイルリストを読み込む
AExcelシートのファイルリストを更新
※ファイルがない場合はDisable
|
| 形式 |
Sub LNG_GetFileList() |
| 可視性 |
パブリック |
| 引数 |
なし |
| 関数名 |
LANG_Protect |
| 概要 |
【機能】：シート保護 |
| 処理 |
シート保護
|
| 形式 |
Private Function LANG_Protect(w As Worksheet) |
| 可視性 |
プライベート |
| 引数 |
|
| 戻り値 |
|
| 関数名 |
LANG_Protect_9 |
| 概要 |
【機能】：シート保護(Office2000用) |
| 処理 |
シート保護(Office2000用)
|
| 形式 |
Private Function LANG_Protect_9(w As Worksheet) |
| 可視性 |
プライベート |
| 引数 |
|
| 戻り値 |
|
| 関数名 |
LANG_utf8_to_ShiftJis |
| 概要 |
|
| 処理 |
|
| 形式 |
Private Function LANG_utf8_to_ShiftJis(str As String) As String |
| 可視性 |
プライベート |
| 引数 |
|
| 戻り値 |
|
| 関数名 |
LNG_PutFile_CEL |
| 概要 |
|
| 処理 |
|
| 形式 |
Private Sub LNG_PutFile_CEL() |
| 可視性 |
プライベート |
| 引数 |
なし |
| 関数名 |
LNG_PutFile_BTN |
| 概要 |
|
| 処理 |
|
| 形式 |
Private Sub LNG_PutFile_BTN(nm As String, wn As String) |
| 可視性 |
プライベート |
| 引数 |
|
| 関数名 |
LNG_PutFile_WND |
| 概要 |
|
| 処理 |
|
| 形式 |
Private Sub LNG_PutFile_WND(nm As String, obj As Variant) |
| 可視性 |
プライベート |
| 引数 |
|
| 関数名 |
LNG_PutFile |
| 概要 |
|
| 処理 |
|
| 形式 |
Private Sub LNG_PutFile() |
| 可視性 |
プライベート |
| 引数 |
なし |
|
モジュール名：M24_LNG_LanguageProc