|
× [PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。 |
 |
|
Strict//EN" "http://wWwow3.org/TR/xhtmll/DTD/xhtmll--strict.dtd">
<1-↓標準書式(スタイル)はすべてここで指定↓--> <!一↓印刷スタイルを別途指定↓--> <body--
/・行の高さを指定★/ /・中央寄せ(縦:5px、横:autO)★/ 20l6/3/23更新 l ,参考デ--タ ′l□l
l ′業務(作業)マニュアル ′巨コ
l ′業務ツ--ル ′|□l≦/h2>
l ′お役立ちサイト ′|□l
Copyright(c)20l6リスク管理部クレジットリスク管理課計測グル--プAll Rights Reserved. PR |
||||||||||||
|
|
く!DOCTYPE html PuBLIC l―//W3C//DTD xHTML l.0
Strict//EN" "http://www.w3.org/TR/xhtmll/DTD/xhtmll―strict.dtd"> く!―― く,!DOCTYPE HTML PUBLIC "―//W3C//DTD HTML 4.0l Transitional//EN'i “http://WWWoW3.org/TR/htm14/loose.dtd"> ――> くhtml> くhead> くtltle>本口座モニタリングデータの作成 ′― ′計測Gく/title> く!―↓書式(スタイル)はすべてここで指定↓「→ くlink href="monitoringocss" rel="stylesheet" type="text/こss" /> く!一↓印刷スタイルを別途指定↓―> くlink hFef="monitoring_printocss" rel="stylesheet" type="text/css:: media="print" /> くOcript type="text/jaVa,cript"> く1-― //閉じるボタン～自ウインドウを警告(確認ダイアログ)なしに閉じます。 function winClose(){ Opel(10Cation′ '_self:)。close()F //~度再表示してからclose←? } ――> く/SCript> く/hёad> くbody> くdiv class="navi"> くul> くli>計測G=モニタリングく/li>くli>業務マニュアルく/li>く/ul>く/div>くhl>本国座モニタリングデータの作成々/hl> くdiv class="clOse"title=“クリックするとウィンドウを開じます。w> く!―ボタン定義:head部のscriplが必要―> くinput type="button" value=:: 閉じる " onclick=:Iwinclose()′"> く/diV> く:一罫線一> くp class="titlebar"> く1-☆★☆更新日★☆★一> くdiv class〓"update">20l6/3/ll更新く/div> くh2>‐ ′業務フロー ′巨コt/h2> くdiO class="cap">※担当者はくa href="time schedule.html“target=・_blank">タイム・スヶジュ ールく/a>参照く/div> ~ くdiv class="job―flow"> くdiv class="job―txt">データ作成くbr/.(計測G)く/div>くdiv class="job―arrow"|→く/div>くdiv clasζ=::jOb―txt・>確認くbr />(言十測G)く/div>くdiV class="job―arrow">→く/div>くdiv class="job‐txt">確認くbr />(審査G)く/diV> くdiv clas三="jOb―arrow">→く/diV> くdiv class="job―tttt">メール配信くbr/>(計測G)く/div> i く/diV> | くbr /> くh2>l～nbSp′使用ファイル lBIBく/h2ゝ about:blattk くtable class="file“> くcaption class="caption">※赤字は可変テキスト(日付、バージョンなど)く/caption> くc6l class="c01l" /> くtr> くtd id="tOOl">作成ツールくbr/>Excel ′マクロファイル)く/td> くtd> ① 【リテールデリバ】本国座モニタリングニverくspan class="Nm">52く/span>.率lsmくbr/> くspan class="jp">くa href="file://ntc_fls-02ヽriskヽ与信管理課ヽ与信管理ヽ与信枠申請ヽ本回座 モニタリングヽPreliminary"target="_blank"title=∥新しいウィンドウでフォフレダを開きま す。">ntc―fls-02ヽriskヽ与信管理課ヽ与信管理ヽ与信枠申請ヽ本国座モニタリング ヽPreliminaryく/a>く/Span> く/td> く/tr> くtr> くtd>参照ファイルくa href="reference.html"target=∥_blank"title="新しいウィンドウでリンク を開きます。"class="nw“>く/a>く/td> くtd> ②担保額一覧(l)。csv くinput type="button" onclick="windowoopen (lhttp://rams.conneCt.nikko_co.jp/html/NikkoPortal.html')" value="RAMSを開く" cla,s="bi">くbr /> ③本国座モニタリングol集計表(l).csv くinput type="button" onclick="windowoopen(lhttp://rams― bi.connect.nikko.co.jp:7897/analytics/saw.dll?Dashboard&PortalPath=を2Fsharedを2FをE3を 82をAFtE3を83おACキE3を82をB8%E3を83を83をE3を83を88tE3を83キAAをE3を82をB9キE3を82キAFをE8をAAをB2をE5キ 85をBlをE6を9Ct89キE3を83を95キE3を82をA9をE3を83をABttE3を83を80キ2F_pOrtalを2Fl.をE3を80を90をE6キ97キ A5tE6%ACtAlおE3著80を9l をE6キ9CキACをE5を8FおA3をE5キBAttA7キE3キ83七A2をE3を83を8BキE3を82をBFをE3を83を AAをE3を83tB3おE3を82をBO&page=をE9を9Bを86おE8をA8を88をE8キAlおA8:)" value="BIて,i月く" class="bi">くbr /> くspan class="fcolor2●>※各ファイルの取得・保存方法は、左欄「参照ファイル」のリンク先を確認 く/Span> く/td> く/tr> くtr> ヂす1>色=』ヒ]」F:[ラ里1)tよtmp target ll♪lanp title」新しいウィンドウでリンクを開きま くtd> リテールモニタリング(くspan class="Nmヽ00/00く/span>現在)くbr/> ④ NEW_リテールモニタリングBIくspan class="Nm">00000000く/span>.xlsmくbr/> くspan class="fcolor2 11M※ファイルの取得・保存方法は、左欄「メール」のリンク先を確認く/span> く/td> く/tr> くtr> くtd id="comp">成果物く/td> ´ くtd> ⑤メール添付用ファイル: 本国座モニタリングくspan class="Nm">000ooooOく/span>基準.xlsx (くspan class="Nm">:011ま基導目曰く/span>)くbr /> くspan class="sv">くa href="file://ntc_fls-02ヽriskヽ与信管理課ヽ与信管理ヽ与信枠申請ヽ本国座 モニタリングヽPreliminaryヽメール添付用"target="blank"title="新しいウィンドウでフォルダを開 きます。">ntc―fls―o2ヽriskヽ与信管理課ヽ与信管理ヽ与信枠申請ヽ本国座モニタリングヽPreliminaryメール 添付用く/a>く/span>くbr /> ⑥日次報告ファイル: 本回座モニタリングくspan class=“Nml>00oooooOく/span>基準.xlsx(くspan class="Nm">!0'は基準目曰く/span>)くbr /> くspan class="sv">くa href="file://ntc_fls-02ヽriskヽ与信管理課ヽ与信管理ヽ与信枠申請ヽ本回座 モニタリングヽPreliminary∥target="_blank"title="新しいウィンドウでフォルダを開きま す。">ntc―fls-02ヽriskヽ与信管理課ヽ与信管理ヽ与信枠申請ヽ本回座モニタリング ヽPreliminaryく/a>く/Span>くbr /> ⑦日次作業ファイル: くspan class="Nm">00oooooOく/span>【リテールデリバ】本国座モニタリング ニVerくSpan class=“Nm"ゝ00く/span>.xlsm (くspan class=“Nm∥>iveriはィ乍Jこツ‐―ルに「]じく/Span>) くbr /> くspan class="sv">くa href="file://ntc―fls-02ヽriskヽ与信管理課ヽ与信管理ヽ与信枠申請ヽ本国座 モニタリングヽPreliminaryヽBackUpヽ作業ファイルー時保存"target二"blank"title="新しいウィンド ウでフオルダを開きます。">ntc―fls-02ヽriskヽ与信管理課ヽ与信管理ヽ与信枠申請、本国座モニタリング ヽPreliminaryヽBackUpヽ作業ファイルー時保存く/a>く/span>くbr/> く/td> く/tr> く/table> l06 about:blank 、br /> くh2>‐ ′作業マニュアル ′|□lく/h2> くh3>l. フアイルを開くく/h3> くul class=:inote"> くli>(l)上記[使用ファイル]のうち、くa href="#tool">①②③④く/a>を開く。く/li>く/ul> くh3>2.前日データのコピーく/h3> くul class="nOte"> くli>(l)作成ツールくa href="#to01">①く/a>のくspan class="sh">リテールモニタリングく/span>シ ートを開く。く/li> くli>(2)くspan class="cell・>clく/span>セルの元データのファイル名がくspan class="pr"ン基準日の 前営業曰く/span>であることを確認する。 くul> くli class=“err">基準日の前営業日以外の場合く/li>くliclass="Order">①作成ツールの一番右にあるくspan class="sh“>リテールモニタリング(前営業 屋ぬ農磐距】竃逸轟臭易鵠藉ξ聖昌T轟」F号イ置こl喜ll電Lr(?)三スζ堆患Υ電ち合は くb>②く/b>へ。く/li>奮7伊=リサ下露[籍ヾ尋蘇塩l,電I:』il]=脳男T腿器嚇邸渕)′選 くliclass="Order">③くspan class=Wsh">リテールモニタリングく/Span>シートを、今日の作業ファ イルのくspan class="sh">リテールモニタリング(前営業日)く/span>シートに全セル値コピーする。 く/li>くli class=“Order">④くb>(3)く/b>を飛ばして、くb>3く/b>へ進む。く/li>く/ul>く/li> くli>(3)くspan class="Btm">前日コピー(l回限り)く/span>ボタンを押下する。 く!―処理内容の折りたたみ(Ip変更忘れずに)一> くul> くli> く1-折りたたみボタンー> くinput type="button" onclick="Obj=document.getElementBy工d(lol:)。style′ obj.display=(Obj.display==inonel)?iblockl:inonerだvalue="処理(マクロ)内容を見る" class=:itOggle―sw"> | く!―折りたたみテキストー> くきIli拙穐壼旨T,捗『サT撻幌キテ撃鶏だ萱しリング輛営業日月シートに値コピー くbr /> ②「日次結果」シートの「計数一覧」表と「ファイル名一覧」表を更新(基本日情報を前営業日情報に当 ピニ)くbr/> ③「RAMS_担保額一覧」シートに切替くbr/> くbr /> く/diV> く/1i> く/ul>く!―ノ/処理内容の折りたたみ終わリーー> く/li>く/ul> くh3>3.データ取り込みく/h3> くul class="note"> くli>(l)くspan class="Btm∥>データ取込く/span>ボタン ド/span,シート)を押下する。 く!―処理内容の折りたたみ(ェD変更忘れずに)一> くul> (くspan class="sh">RAMS 担保額一覧 about:blank くli> く!―折りたたみボタンー> くlnput type="button" onclick=∥ObjttdOcument.getElementByld(lo2:).styleF obj.display=(Obj.display==inonel)?iblockl:inone'ノvalue="処理(マクロ)内容を見る" class="tOggle―sw∥> く!―折りたたみテキストー> く辞鑢ゝ撫::ll]蔀じ写ぢlli」]l,ili:ilil曽::,)7;夕l][l:ブξ ②担保額一覧(l).csv(参照ラァィル②)を①のD3セル以降にコピーくbr/> ③Al～Clセルの数式をA3～C2000セルにコピーくb士/s ④空の行を削除くbr/> ⑤「oracleBI_【NKSOL】UAT集計」シートの2行日以降の値をクリアくbr/> 8今ワ肇二言皐埜rτづ場ィ可誌FIだ易署Υbl'輝フアイル③)の全セルを⑤にコピーくbr/> くbr /> く/diV> ・ く/1i> く/ul>く!―//処理内容の折りたたみ終わリー> く/li>夢:え」ξlぶ昇rl)貿易J誓ゲ竜lbデ~夕取込121KハpaDボタンにqrn dass憾回テ刊レモニタリン く!―処理内容の折りたたみ(ID変更忘れずに)一> くul> くli> く!一折りたたみボタンー> くinput type="button" onclttck="Obj=dOcument.getttlementByttd(:031).styleF 9bj・diSplay=(Obj.display==inonel)?:block::inonel′" value=“匁Lヨ菫 (マクロ)内7Sを見る" class="tOggle―s""> く!―折りたたみテキストー> く8美碁華磁盲磁、お=;踊吉力;;y稼l187醍男穂ダ畔存くbr/>  ′ メ※開いていない場合は警告→中止くbr/> ②①の全セルを値コピー(シート上のリンク設定を解除)くbr/> ③「決済業務部メール」シートに全セルコピーくbr/> ④シートのl～l2行日に空白行を挿入し、除外顧客を検索して移動くbr/> ⑤「リテールモニタリング」シートのBlo～Ql048576セルをクリアくbr/> ⑥Bl0セル以降に③の該当行をコピーくbr/> くbr /> く/diV> く/1i> く/ul>く!―//処理内容の折りたたみ終わリー> く/li>蘇轟鮮fi奄晏情;三菫ittj幣嶽ぶ場:楊耐戦鑑暮 くul> くli class="err">くspan class="pr">#N/Aく/span>の顧客がいるナ易合く/liゝ くli class=・Order">①くspan class="sh">DataBaseく/span>シートの表の最下段に、(4)のくspan tla旱畠ZI::1複韮退奮3/]二呂1]27:::『:テ:]: C・aSS="Cell">B～cく/Span>Jll(くspal c・ass,"ah∥>口疫:]野 くli class="Order">②くspin class二“celi">Gく/span>Jll(くspan class=:iah">sMBC 信用照会 聖場霧`電::ユ鼻鷲楊足革『l翼]響聾認畢lξ企轟3bIなアリ府部副師ll p lJテ刊レモ くli class="Order">③くspan class="sh">リテールモ手タリングく/span>シートのフィルタリングを 解除する。く/1i> く/ul>く/1i> く/ul> _ ヽh3>4.データ加工く/h3> くul class="nOte"> about:blank くli>(l)くspan class="Btm">①特例く/span>ボタンを押下する。 く!―処理内容の折りたたみ(ID変更忘れずに)一> くul> くli> く:一折りたたみボタンー> くinput type="button" onclick=・obj=dOcument.getElementByld(1041).styleF obj.display=(obj.display=='nOne:)?iblock::inonel," value="爽Lヨ里 (マクロ)内7蓼を見る" class="toggle―sw"> く!―折りたたみテキストー> くdiv id="o4" class="togglel" style="display:nonel"> ①ユニスリップジャパン分割準備株式会社の回座番号を変更くbr/>  ′ ′「リテールモニタリング」シートくbr/>  ′ ′「RAMS_担保額一覧」シートくbr/>  ′ ′「OracleBI_ 【NKSOL】UAT集言十」シートくbr />  ′ ′→「参照データ」シート「特例対応(口座番号修正)」表参照くbr/> くbr /> く/diV> く/li>く/ul>く!―//処理内容の折りたたみ終わリー> く/1i> くli>(2)くspan class="Btm">②並べ替えく/span>ボタンを押下する。 く1-処理内容の折りたたみ(ID変更忘れずに)一> くul> くli> く!―折りたたみボタンー> くinput type="button" onclick="obj=dOcument.getElementByld(lo5:)。style′ obj.display=(obj.display==inonel)?iblockl:inonel′"value="処理(マクロ)内容を見る" class="toggle¨sw"> く!―折りたたみテキストー> くdiv id〓"o5" Class="togglel" style="display:noneF"> ①「リテールモニタリング」シートを並び替え(降順):Cs列(評価損率40を以上且つ追証余力<2倍) →CRFll( MTM値 (F)+MTM値 (G))くbr />  ′ ,※cs2セル(懸念先数)が「#vALUE!」の場合は処理中止(下記参照)くbr/> ②「レポート」シートの更新くbr/>  F ′②―l表の行数の調整くbr/>  ′ ′②-2N列(現在受入担保額(上段G列))に上表のG列(現在受入担保額(ヘアカット 後))の値をコピーくbr/>  ′ ′②-30列(現在受入担保額(下段E列)置換前①)に下表のE列(現在受入担保額(ヘア カット後))の値をコピーくbr/> ③「日次結果」シートの更新くbr/>  ′ ′③―l計数一覧(G列)の基準日データを更新くbr/>  ′ F③-2アラーム発信先(c～D列)にアラーム発信先の回座番号と顧客名をリストアップ くbr />  ′ ′③-3フアイル名一覧(」列)、メール貼付テキスト原文(J列)を基に「確認メール作 成」シートを更新くbr/> ④「レポート」シートを表示くbr/> くbr /> く/diV> く/diV> く/li>く/ul>く!―//処理内容の折りたたみ終わリー> くul> くliCユass="err">エラーメッセージ『懸念先数がエラーです。」が表示される場合く/li>くli class="Order">① (くspan class="cell">cs2く/span>セル (くspan class="ah">懸念先数 く/span>)にエラーが出ているので)くspan class="cell">CSく/span>列をくspan class="Flt">#VALUE!≦/span>でフィルタリングする。く/1i> くli class="order">②く,pan class="cell">Eく/Span>列に数値以外の値(文字列など)が入つている 場合は削除する。(くspan class="cel1">cs2く/span>セル(くspan class=nah“>懸念先数く/span>)に 懸念先件数が正しく表示される)く/li>くli class=“order">③再度、くspan class="Btm">②並べ替えく/span>ボタンを押下する。く/li>く/ul>く/1i> く/ul> ー aboutもlank くh3>5.配信デニタの確認く/h3> くul class="note"> くli>(l)くspan class="Sh“>レポートく/span>シーートのくspan class="cell">K5く/span>セルが くspan class=∥pr">基準曰く/span>であることを確認する。く/1i> くli>(2)一番上の対象先数表の「くspan class="ah">懸念先数く/span>」と上下表のリストアップされた 件数が合つているか確認する。く/li> くli>(3)上表右のくspan class="cell">Oく/span>列のくspan class="ah">帝国レポート ,NG件数 く/span>がくspan class="pF">0く/span>1牛 (すべてくspan class=::pⅢ>有く/span>ま,ヒはくspan class="pr">無く/span>)であることを確認する。 くul> くli class=∥err">くspan class="pr">oく/span>i牛で力軋ヽ(くspan class〓∥pr∥>―く/span>または くspan class="pr">oく/span>がある)場合く/li>くli class="order">帝国データバンクレポートを請求する。Lζpan class="jp">くa href="本国座モ ニタリング_エラー処理(作成中).xlsx"target="blank"title="新しいウィンドウで開きま す。">くstrOng>本国座モニタリング_エラー処理(作成中).xlsxく/strOng>く/a>く/Span>く/li>く/ul>く/li> くli>(4)下表にエラーがないことを確認する。 くul> くliclass="err">エラーがある場合く/li>くliclass="orderらくspan clasS="Sh">担保区分・銘柄く/span>シートを確認する。くspan class="jp">くa href="本回座モニタリングエラー処理(作成中)。XlSx"target="blank" title="新しいウィンドウで開きます。">くstrOng>本回座モニタリングエラー処理(作成 中).xlsxく/strong>く/a>く/Span>く/li>く/ul>く/li> くli>(5)下表右のくspan class=ncell">Nく/span>列のくspan class="ah">上下表比較 ′NG件数 く/Span>がくspan claSs="pr">0く/span>イ牛 (すべてくspan class="pr・>oKく/span>)であZ3ことを確認 する。 くul> くli class=・err">NGI牛数がくspan class="pr">oく/span>{牛でない場合く/li>くli class=“order">決済部メール(作成ツールくa href="#tool">④く/a>)を確認する。くspan :l]]:二1難揮Ъ〕T下異激、イ真ζ五課愧饗明jデlし墟￢帯lanげ 中)。xlsxく/strong>く/a>く/span>く/l土> く/ul>く/1i> く/ul> くh3>6。｀配信データの作成く/h3> くul class="note"> くli>(l)くspan class="Btm">出力く/span>ボタンを押下する。(処理が完了すると完了メッセージが表示 される) く!――処理内容の折りたたみ(ID変更忘れずに)一> くul> くli> く!―折りたたみボタンー> くinput type="button" onclick="obj=dOcument.getElementBy工d(106:).style′ obj.display=(obj.display==inone:)?iblock::inone'だvalue="処理(マクロ)内容を見る" class="toggle―sw"> く!―折りたたみテキストー> くdiv id=“o6" class="togglel" style="displayinone;"> ①日次結果と確認メールシートを更新くbr/>  ′ ,確認メッセージ(表の詳細ファイルをメールに添付しますか?)が表示されたら、配信メ ールにデータファイルを添付する場合は『はい』、添付しない場合は『いいえ』をクリックくbr/> ②参照ファイル(作成ツール②③④)を開じるくbr/> ③作成ツールを上書き保存くbr/> ④メール添付用ファイル(成果物⑤)生成、保存して閉じるくbr/> ⑤日次報告ファイル(成果物⑥)生成くbr/> aboutblank <ここから日次ファイル(成果物⑥)の加工>くbr/> ⑥「顧客名修正」(作成ツール「参照データ」シート)に基づき、顧客名を修正くbr/> ⑦下表のE列(現在受入担保額(ヘアカット後))にs列(②―③(E列へ貼付)④)の値をコピーくbr/> ③N列(上表のG列)とs列の合計値を比較くbr/>  F ′※差異がある場合はエラーメッセージが表示され、処理が中止されるので確認する くbr /> くbr /> く/li>く/ul>く!―//処理内容の折りたたみ終わリー> く/1i> くli>(2)日次ファイル(成果物くa href="#tool">⑥く/a>)が生成されるので、内容を確認する。く/li>く/ul> くh3>7.確認依頼メールの作成と送信く/h3> くul class="note"> くli>(l)くspan class=∥sh">確認メール作成く/span>シートの内容を確認する。 くul> くli9lass="order">①くspan class="ah">件名く/span>の基準日は合つているか。く/1i> くli class="order",②くspan clise="ah">添付ファイルく/span>に(成果物くa href="#tool">⑤く/a)の)正しいファイルパスが入力されているか(添付しない場合は空欄)く/li>くli class="order">③くspan class="ah">本文く/span>のくspan class="ah">③上下表NG件数(修 正済)く/span>～くspan class="ah">⑥帝国データレポート有無く/span>のくspan class="ah">(参考 値)く/span>がくspan class="pr">(o)く/Span>なら空欄、くspan class="pr">(o)く/span>以外ならテ キストが必要。 く/li>くli class="order">④同じくくspan class="ah">⑩特記事項く/span>のくsban class="ah">(参考 値)く/span>がそれぞれくspan class="pr">(o′o)く/span>以外なら、追証先、アラーム発信先のリストアッ プが必要。 く/li>くliclass="order">⑤同じくくspan class="ah">⑭メール貼付く/span>に正しいテキストが正しくセ ットされているか(メール添付しない場合は空欄)く/li> くul> くli class=∥err">誤り、または修正がある場合く/li>くli class="order">くspan Class="Sh“>日次結果く/span>シートのくstrOng>メール貼付テキスト原文 く/strong>表のデータ(黒字テキストのみ)を修正し、くspan class="Btml>日次データとメール更新 く/span>ボタンを押下する。く/li>く/ul>くul> くli class="err">一時的に修正する場合く/li>くli cla,s="Order">くspan class〓"Sh">確認メール作成く/span>シートを修正する(但し、青字テキ スト0み)く/li>く/ul>く/ul>く/li> くli>(2)くspan class〓・Btm">メール作成く/span>ボタンを押下する。 く!――処理内容の折りたたみ(ID変更忘れずに)一> くul> くli> く!―折りたたみボタンー> くinput type="button" onclick="obj=document.getElementByld(:08:)。style, obj.display=(Obj.display==inonel)?:block::inonel′"valle=“処理(マクロ)内容を見る" class="toggle―sw“> く:一折りたたみテキストー> くdiv ld="o8" class=∥togglel" style="display:noneF"> 「確認メール作成」シートの内容を基に、確認メールを作成し下書き保存するくbr/> ※送信は行われないくbr/> くbr /> _ く/li>く/ul>く!―//処理内容の折りたたみ終わリー> く/li> aboutblank くli>(3)作成されたメールの内容を確認し、下書き保存する(くstrong>8l/strong>の作業が完了してから 送信)く/li>く/ul> くh3>8.配信データの最終加工く/h3> くul class="note"> くli>(l)くspan class="Btm">完了処理t/span>ボタンを押下する。 く!一処理内容の折りたたみ(工D変更忘れずに)一> くul> くli> く!―折りたたみボタンー> くinput type="button" Onclick="obj=document.getEleientByld(lo9')。styleF obj.display皇(obj.display==inone:)?!block'::nonei′" value="匁Lヨ里 (マクロ)内7Sを見る" class="toggle―sw"> く!―折りたたみテキストー> くdiv id="09" class="togglel" style="display:none′"> <日次ファイル(成果物⑤)の加工>くbr/> ①M列が"NGHで、Q列(追加担保金額(決済部メール))≒0なら上表のG列(現在受入担保額(ヘアカット 後))と下表のE列(現在受入担保額(ヘアカット後))のセル背景色を青色に変更、Q列(差異)≠0ならG、E 列のセル背景色を黄色に変更くbr/> ②日次報告ファイルを上書き保存くbr/> ③作成ツールを日次作業ファイル(成果物⑥)に名前を変更して保存くbr/> くbr /> く/li>く/ul>く1-―//処理内容の折りたたみ終わリー> くul> くliclass="err">ここでエラーが発生した場合く/li>くliclass=“order">①上記のボタンで作成ツールフアイルが日次作業ファイルに書き換わつつているの で、修正を行う場合は元の作成ツールファイルを開いて修正すること。く/li>く/ul>く/li>く/ul> くh3>9.確認メールの送信く/h3> くul class="noteW> |li>(l)くstrong>7く/strong>の確認依頼メールを送信する。 く/li>く/ul> くh3>l0.配信メールの送信く/h3> ' くul class="note"> くli>(l)計測G担当者がくstrOng>9く/strong>の確認依頼メールを審査G担当者に送信し、審査G担当者から 確認完了メールが来たら、くstrong>9く/strong>のメールから配信メール部分のみを残し、ヘッダー(差出 人、件名等)を修正して(添付ファイルを付けて)配信する。 く/li>く/ul> ′ d―― くimg src=“img/honkozaol.png': alt=::honkozaOl.png:i title="メール作威tl列l11 class="ingl:'> ――> ‐ くdiv class="ft">く:¨― デ=了 ――>く/div> くdiv class="closen title〓"クリックするとウィンドウを閉じます。"> く!―ボタン定義:head部のscrip●力｀必要一> くinput type="button" value=:' 尉尋じる 'i onclick="wincl。se()′"> く/diV> くdiv class="credit">Copyright(C)20l6リスク管理部クレジットリスク管理課計測グループAll Rights Reserved.く/diV> 8/9 about:blank 428 429 430 く/body> く/html> |
|
|
Mail -11
0ption Explicit Set oApp = CreateObject(″Outlook.Application″) . Set obj∥AIL = oApp.Createitem(0) '/Bodyフォーマット(1:テキスト形式、2:HTML形式、3:リッチテキスト形式) objMAIL.BodyFormat = 2 objMAIL.display'編集画面を表示 '/ヘッダー '#宛先など obj∥AIL.SentOnBehalfOfName objMAIL.To = Range(″,ヒうに″) obj∥AIL.CC = Range(″CC″) objMAIL.BCC = Range(″BCC″) '#件名 objMAIL.Subject=Range(″件名″) '#添付ファイル 添付ファイル '/本文 '#改行コード取得 For i = l To 6 1f Range(″ヨ彙イテ″ & i) = True Then strCL(i) = vbLf Debug.Print strCL(i) End lf Next i '捌ordEditor起動 With oApp.Activelnspector.WordEditor.Windows(1) '#本文1 strMOJI = Range(″冽卜〕に1″) Wlth .Selection ' .Font.Oolor = vbBlack 'vbRed ' .Font.Size = 20 .typetext strMOJl End With '#改行1 .Selection.typetext strCL(1) '#図表1 i〓1 図表 '#本文2 str∥OJI = Range(″ヨトうに2″) .Selection.typetext strMOJI '#改行2 .Selection.typetext strCL(2) '#図表2 i=2 図表 '#本文3 strMOJI = Range(″冽卜〕に3″) .Selection.typetext str∥OJI '#改行3 .Se!ection.typetext strCL(3) '#図表3 i=3 図表 '#本文4 strMOJI = Range(″J卜5に4″) =Range(″差出人″) '代理送信の場合、メール画面には表示されないが裏で設定される .Selection.typetext strMOJI '#改行4 .Selection.typetext strCL(4) '#図表4 i=4 図表 '#本文5 str∥OJI = Range(″冽トラt5″) .Selection.typetext strMOJl '#改行5 .Selection.typetext strCL(5) '#図表5 i=5 図表 '#本文6 str∥0」l 〓 Range(″フトラt6″) .Selection.typetext str∥0」| '#改行6 .Selection.typetext strCL(6) '#図表6 i=6 図表 '#署名 .Selection.typetext vbCrLf & vbCrLf '改行X2 str∥OJI〓Range(″署名″) .Selection.typetext str∥OJI .Selection.typetext vbCrLf '改行 '#改行7 Selection.typetext strCL(7) '#本文7 strMOJI = Range(″フトラt7″) .Selёction.typetext str∥OJl End With 変数の解放 End Sub On Error GoToファィルが見つからない For i = l To 5 1f Not isEmpty(Range(″添付ファイル″&i))Then strTMP(1)=Range(″添付ファイル″&i) objMAIL.Attachments.Add strTMP(i) End lf Next i Ex:t Sub フアイルが見つからない: AppActivate″Microsoft Excel″,False 'Excelをアクティブにする MsgBox″添付ファイルが見つかりません。 ″&vbCrLf&″添付ファイル″&i,vbCritica 変数の解放 End End Sub On Error GoToファイルが見つからない With oApp.Activelnspector.WordEditor.Windows(1) lf Range(″図表″&i)=True Then spBK=Range(″図表ファイル名″&i) SpSH=Range(″図表シート名″&i) SpRG=Range(″図表範囲″&i) Select Case Range(″図表形式″&i) Case ″ Range(″図表形式″&i)=″表″ 表の貼付 case rョ長″ 表の貼付 Case″表(リッチテキスト形式)″ リッチテキスト形式で表の貼付 Case″図(拡張メタファイル)″ 拡張メタファイルで表の貼付 End Select .Selection.typetext vbCrLf '改行 End lf End With Exlt Sub フアイルが見つからない: AppActivate″Microsoft Excel″,False 'Excelをアクティブにする MsgBox″図表を挿入するファイルが開かれていません。 ″&vbCrLf&″図表挿入″&i,vbCritical 変数の解放 End End Sub With oApp.Activelnspector.WordEditor.Wlndows(1) Workbooks(spBK).Worksheets(SpSH).Range(SpRG).Oopy .Selection.Paste Application CutCopyMode = False End With End Sub With oApp.Activelnspector.WordEditor.Windows(1) ' Debug.Print Workbooks(spBK).Name l:[|:::|:1,::さなbttl[[il::|:(P:::な:R::早:`,pl,をし0°py Applicatlon.CutCopy∥ode = False End With End Sub '非リンク,Excel書式, リッチテキスト形式 With oApp Activeinspector.WordEditor.Windows(1) ∥:[|:::|:1:::[セbW°rkSheets(SpSH) Range(SpRG).OopyPicture Application,CutCopyMode = False End With End Sub |
|
|
GetShape - 1
9罪りЪ留りiβ兼タンの名前は、[ホーム]一[検索と選択]―[オブジェクトの選択と表示]で表示される Application,ScreenUpdating = Fa:se '/オブジェクトボタンの名前を取得 i = Right(Application.Caller, 1) Set mySH = ActiveSheet spBK=Range(″'[″&ThisWorkbook.Name&″]″&mySH.Name&″'!図表ファイル名″&i) ::RI : “|:' : I∥|:∥:|∥:::∥:∥:∥: : “:“ : ∥挙:∥:∥:∥: : “||[]:E:`:ョ」卜1「| & i lf spBK = ″″ Then MsgBox″図表を挿入するファイル名が入力されていません。 ″&vbCrLf&″図表挿入″&i,vbCritical End End lf On Error GoToファイルが見つからない Workbooks(spBK).Activate Range(SpSH) = ActiveSheet.Name Range(SpRC) = Selection.Address(RowAbsolute:〓Fa:se, OolumnAbsolute:=False) Application.ScreenUpdating = True mySH.Activate 変数の解放 Exit Sub フアイルが見つからない: MsgBox″図表を挿入するファイルが開かれていません。 ″&vbCrLf&spBK,vbCritica! 変数の解放 End End Sub Application.ScreenUpdating = Faise '/オブジェクトボタンの名前を取得 i = Right(App::cation Caller, 1) Set mySH 〓 ActiveSheet Range(″図表範囲″&i).Activate :::∥ 二 l:1::{“| :' : I∥|:∥:II:::I:∥:冊: : “]“ SpRG = Range(″'[″ & ThisWorkbook.Name & ″]″ Application.ScreenUpdating 〓 True . On Error GoToファィルが見つからない Workbooks(spBK).Worksheets(SpSH).Activate ActiveWindow.WindowState = xlNormal Range(SpRG).Select 変数の解放 Exit Sub フアイルが見つからない: Range(″図表ファイル名″&i).Activate MsgBox″図表を挿入するファイルが見つかりません。 ″&vbCrLf&″(開いていません)″,vbCritical 変数の解放 End End Sub &mySH.Name&″'!図表ファイル名″&i) &mySH.Name&″'!図表シート名″&i) & mySH.Name & ″'!ロコ暑長庫垣Eヨ″ & i) GetShape - 2 Application.ScreenUpdating = False '/オブジェクトボタンの名前を取得 i=Right(Alplicatllono cal ler,1) Set mySH = ActiveSheet i:1::1“:]:言1;1,1ツ′F43'A[S「子.ёlearcontbnts Range(r図表シート名″&｀1).ClearContents Range(″図表範囲″&i):ClearContents Range(″図表形式″&i).ClearContents Application.ScreenUpdating ￢ True 変数の解放 End Sub |
|
|
Cell Format - 1
0ption Explicit )なら以下の書式を設定 Range(myRng.Offset(y, x), myRng) .Borders(xlEdgeTop).Weight = xlMedium Borders(xlEdgeTop).Color=16711680 '青線 Borders(xlEdgeBottom).Weight = xlMedium .Borders(xlEdgeBottom).Oolor 〓 16711680 .Borders(xlEdgeLeft)。Weight = xl∥ed i uln .Borders(x!EdgeLeft).Oolor = 16711680 .Borders(xlEdgeRight)Weight = xl∥edium .Borders(xlEdgeRight).Oolor = 16711680 End W:th lf x = -l Then myRng.Offset(y, x). lnterior.Oolor = 15849925 'ItttE Else Range(myRng.Offset(y, x), myRng.Offset(0, -1)). lnterlor.Oolor = 15849925 '「辱tL End lf End Sub なら以下の書式を設定 With Range(myRng.Offset(y, x), myRng) .Borders(xlEdgeTop).Weight = xl∥edium Borders(x:EdgeTop).Color = 16711680 '青線 .Borders(xlEdgeBottom).Weight = xlMedium .Borders(xlEdgeBottom).Oolor = 16711680 .Borders(xlEdgeLeft).Weight = xlMedium .Borders(xlEdgeLeft).Oolor = 16711680 .Borders(xlEdgeRight).Weight = xl∥edium .Borders(xlEdgeRight).Oolor 〓 16711680 End With lf x = -l Then myRng.Offset(y, x). lnterior.Color = 15849925 '5RtL Else Range(myRng.Offset(y, x), myRng.Offset(y, -1)). lnterior.Oolor = 15849925 '層辱(菫 End lf End Sub )なら以下の書式を設定 With Range(myRng.Offset(y, x), myRng) Borders(xlEdgeTop).Weight = xlThin .Borders(x:EdgeTop).Oolor = 0 '月晨t三 Borders(xlEdgeBottom).Weight = xlThin Borders(xlEdgeBottom).Color = 0 Borders(xlEdgeLeft).Weight = xlThin Borders(xlEdgeLeft).Color = 0 Borders(xlEdgeRight).Weight = xlThin .Borders(xlEdgeRight).Oolor = 0 End With With Range(myRng.Offset(y, -2), myRng.Offset(0, -1)) With . lnterior.Oolor 〓 14540253 '灰色 hd"♀鶴“ドは∥“ideV針u“D■mesty降=剤日neStJ ttme End Sub 状態により書式設定 if pCkbox.Value = True Then With Range(myRng.Offset(y, x), myRng) .Borders(xlEdgeTop)。Weight = xl∥edium .Borders(xlEdgeTop).Oolor = 16711680 End With End if End Sub 状態により書式設定 lf nCkbox.Value 〓 True Then Cell Format - 2 With Range(myRng.Offset(y, x), myRng) .Borders(xlEdgeBottom).Weight 〓 xlMedlum .3orders(xlEdgeBottom) Oolor = 16711680 End With End lf End Sub lf myCkbox.Value = True Then 可変セル書式 Else 定型セル書式 End lf End Sub lf myCkbox.Value = True Then 可変セル書式 Else 定型セル書式 With myRng.Offset(y, x) .Borders(xlEdgeBottom).LineStyle 〓 xlLineStyleNone .8orders(xlEdgeLeft).LineStyle = xlLineStyleNone End With End lf End Sub lf myCkbox.Value = True Then 可変セル書式 Else 定型セル書式 With myRng.Offset(y, x) End il:||:|:|||:|:::::t,lllili:li首「呈X:キ:lili:li!|:i:ne End lf End Sub lf myCkbox.Value ≡ True Then 可変セル書式 E:se 定型セル書式 With myRng.Offset(y, x) .Borders(xlEdgeTop).LineStyle = End "::iders(XIEdgeLeft).LineStyle = End if End Sub xlLineStyleNone xlLineStyleNone lf myCkbox.Value = True Then 可変セル書式 Else 定型セル書式 [lihivlil::∫:そll:a::::::`∥).[lhe:I;I:・2fil[11:stテ|をキ。ne End if End Sub |
|
