自分用のメモです。内容が間違っていたり、作りかけで動作しないコードなどあるのでご注意ください。
いつも忘れてしまうので
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
Sub test() Set w = ThisWorkbook.Sheets("マスタ") r = 3 Do While w.Cells(r, 1).Value <> "" If InStr(w.Cells(r, 1).Value, "、") >= 1 Then ' 含まれていたら tmp = Split(w.Cells(r, 1).Value, "、") ' 文字列を記号で分割 For i = LBound(tmp) To UBound(tmp) ' 配列のループ rr = rr + 1 Next i Else rr = rr + 1 End If r = r + 1 Loop MsgBox rr End Sub |
久しぶりに引越し(賃貸→賃貸)したので忘れないようにメモしておく。
不動産屋に貼られている物件は全てネットでも見ることができるので、ネットで探せば問題ない。成約済みで掲載されているオトリ物件もかなり多く、1件に絞り込んでもだいたい成約済みなので複数見つけておく。
・鉄筋コンクリート(RC)
・鉄筋鉄骨コンクリート(SRC)
・鉄骨(軽量、重量)(S)
・木造
などの種類があり、騒音が気になる場合、鉄筋鉄骨コンクリートがおすすめと書かれていることが多いが、重要なのは戸境壁(部屋と部屋の壁)もコンクリートが入っているかどうか。内見の時にチェックする。もし騒音が気になるけど木造を選ぶ場合、築浅、最上階角部屋、隣り合っていない間取りを選ぶことが重要。
幹線道路、鉄道の近くにある木造アパートの場合、振動を感じる場合もあるので注意する。
※分譲(購入)の場合
価格を考える際､マンションの場合管理費･修繕積立金がかかる｡また物件価格の1割程度の費用が別途かかる｡
どの不動産屋でも物件は共通して見ることができるので、色々問い合わせしてみて対応の良さそうな不動産屋を見つける。物件を見つけるまで色々相談したり時間がかかるので、相性はかなり重要。ただ、内見があるので引越し先エリアからあまり遠い不動産屋だと少し不便。
その物件を管理している不動産屋(管理会社)の場合、仲介の不動産屋より詳しい話が聞けることもある。例えば騒音のクレームが発生しているとか。物件が確定していて問い合わせできる(賃貸の営業していない管理会社もある)管理会社ならそこに問い合わせた方がいい。
※分譲(購入)の場合
いい物件は出ても直ぐに売れてしまうので､購入するつもりなら直ぐに不動産屋に行ってローンの相談などする｡
気になった物件を内見するとき、実際に見てみると想像と違うこともあるので、複数予定しておく。物件同士が近ければ1日で複数件可能。
もし家電が付いている物件の場合、設備なのかプレゼントなのか残置物なのか確認する。(実際に人気のない物件で大家さんからのプレゼントというのがあった)設備以外は自分で修理の手配をする必要がある。エアコンがたまに残置物の場合もあるので注意。
物件が決まったら申込む。契約できるかどうかは申込順なので人気のある最上階角部屋などは退去前に申込書が出ていたりする。あまり悩んでいる余裕はない。
入居日は申込みの段階で決める必要があり、だいたい申込日から2週間～3週間程度。旧居、新居の契約期間はできるだけ被らないようにしたほうがいいが、諸手続きあるので、ある程度は必要。
※分譲(購入)の場合
買付証明書を入れるまでにはローンを通しておいた方がいい｡賃貸と違って提出順というわけではないけど､早めに出してやり取りしておくほうがいい｡
審査は保証会社を利用する場合、保証会社と大家さんの審査がある。保証会社の審査は収入から考えて問題のない家賃で、さらに過去に金銭面で問題がなければだいたい通る。クレジットカードの審査と同じ。
保証会社の審査が通ればだいたい大家さんの審査は通るが、極稀に大家さんの面談があったりする場合もあるし、不動産屋から大家さんへこちらの人間性も伝えられているので、あまり非常識な感じだと断られる場合もある。
電話やメールなどで審査が通ったと連絡があり、そこから賃貸借契約手続きの日を決める。審査通過後から手続きまでの期間(契約可能だけどまだ契約していない状態)にキャンセルの可能性も無いわけではないが、旧居の退去は1ヶ月前に連絡しなければいけないところが多いので、直ぐに旧居の退去手続きした方がいい。
この時点で旧居の退去日と新居の入居日(鍵を受け取る日)が確定する。
※分譲(購入)の場合
一般的に金利は変動7割､固定3割ぐらいの人が選んでいる｡トータルの支出は変動の方が安いだろうという意見が多い｡安心感なら固定｡
銀行に関しては信金などの口座を準備しておいたほうがいい｡ネット銀行は金額の上限がある｡
旧居の管理会社へ連絡し、退去日、カギの返却方法、立会日、最終月の家賃の支払方法を決める。
通常、カギは退去日までに返却する。最終月の家賃は、退去月の家賃を通常通り振込んで日割りで返却、あるいは現金精算など色々ある。
退去後に管理会社がクリーニングの手配を行い、現状復帰が敷金の範囲内だったかどうか精算してくれて最終立会となるが、立会不要の場合もある。
日割の家賃と精算まで終わるのに数週間程度かかる。
家財保険などは不動産屋が代理店になっていて賃貸契約と同時に手続きすることが多く解約に必要な情報が手元にない場合もあるので、この時に確認しておく。
数社の引越屋に問い合わせをし訪問見積もりをしてもらう。訪問見積もりをしないと荷物を全て運べないなどのトラブルになるので注意。訪問見積もりはかなり重要。
曜日や時間帯によって金額が違うので、引越し可能な日付を複数伝えて、それぞれ金額をもらう。引越屋も相見積もりなのは分かっているので、訪問見積もりの時だいたい即決してくれればこの価格という話になる。なので最初の訪問見積もりは小規模で一番安くなりそうな引越屋にお願いするといい。
・ダンボールはリサイクルかどうか？
・ダンボールは何箱支給されるか？
・ガムテープ、エアパッキンなどは支給されるか？
・割れ物はどのように梱包したらいいか？(専用ケースがあるか)
・観葉植物は運んでもらえるか？
・PCなどの精密機器はどのように運ぶか？(ダンボールか手か)
・旧居、新居での運搬時に養生をするか？
・洋服はそのままで大丈夫か？(専用ハンガーがあるか)
・悪いクチコミがあったけど、実際はどうだったのか？
・搬入時に部屋まで設置までしてくれるか？
・トラックに全て積めなかった場合は？
・当日のトラックのサイズは？
・当日の人数は？
・曜日のみ指定で時間フリーの場合、最悪何時になる可能性があるのか？
などの質問をする。だいたいどこの引越屋も同じ回答のはずだけど、やりとりの回答を見積もり書に書いてくれるので、後々トラブルにならない。この時点で適当な感じで対応するようなら避けた方がいい。
ライフラインのインターネット以外はカギを貰った後でも間に合うが、インターネットは時間がかかるので先に手続きしておく。
今なら光コラボ系かNUROのような独自回線の方がいい。今回は転居手続きで支払情報など引き継ぐので、そのままフレッツ光で手続きして転居後に乗換え予定。
https://flets.com/first/move/iten.html
から新居情報を入力して問い合わせをすると、電話連絡が来る。
最初に確認しておくことは
・フレッツ光マンションタイプ対応かどうか。
・新居に光コンセントなどあるかどうか。※1
確認できていなくても手続きを進めることはできる。新居の住所を伝えるとNTTの方でも光回線がどこまで来ているか(まったく来ていない、建物の共用部まで、部屋の中までなど)調べることができる。
次に工事の手続き。現在の状況によって工事内容が変わってくる。もし光回線がまったく来ていない場合、どのような工事になるかは当日まで分からない部分もあるけど、だいたいどのような内容の工事になるかここで想定しておく。
新居に工事が必要な場合、
・工事日を決める。(立会える日)
・大家さんに許可を取る。
・終端装置(ONU)を持っていくか変更か確認する。
大家さんに許可を取るのはこの段階なら最初の不動産屋で大丈夫。入居してからなら管理会社経由となる。既に確認しておいた工事の内容を、専門用語は使わず、穴空けなどの工事をしない旨伝えて許可を取るようにする。
転居手続きの場合、通常、終端装置(ONU)はそのまま引き継げる。今回はルーター機能付きなのにルーターとして使っていないという状況だったので、転居に伴い交換となった。新しい終端装置(ONU)は工事担当者が持って来て、古い終端装置(ONU)は着払いで送り返すことになった。
※１光コンセントが設置されているのは光配線方式のみ。
共有部までしか光が来ていない場合、VDSL(古い),LANなどの方式もある。
・光配線方式
・VDSL方式(モジュラージャック)
・LAN方式(LANコンセント)
J:COMケーブルテレビ付き物件は、J:COMから初期メンテナンスの案内が来るけど断って大丈夫。入居してテレビ(を見る場合)映らないなど不具合がでたら連絡すればいい。もし必要なメンテナンスなら入居前に行うので入居者が立ち会うメンテナンスは営業活動。
印鑑(銀行印)、銀行口座分かるもの、住民票、車検証などが必要。契約に係る費用は不動産屋に渡すか直接振り込みになる。
カギの受取りから転居まで余裕があるなら、カギを受取ってからの手続きでも間に合う。だいたい新居に支払方法など置いてある。(手続きをサポートするような企業に丸投げしてある場合、ないこともあるので注意)転居前に手続きすることも可能なので今回は転居前に全て手続きした。
・電気
TEPCOのサイトから引越し手続き。登録情報はそのまま利用できる。転居後に新電気に乗り換え予定。
・水道
旧居解約、新居契約ともWebから手続きできる。
利用開始の手続きでは支払い方法を選べなかったので、納付書による支払となる。引き落としにするためには後に別途手続きが必要。
・ガス
契約する会社によってWebか電話で手続き。今回、旧居解約はWebで、新居契約は電話となった。閉栓も開栓も立会が必要なので日程調整が必要。新居での支払方法は口座引落のみで、開栓時に銀行印、保証金が必要。(ここでもらう預かり証は退去のときに保証金を返してもらうのに必要なので紛失しないように)旧居の保証金は閉栓立会時に預かり証があればその場で返金、預かり証がない場合は銀行振り込みとなった。
引越の前日までガスを利用する場合、引越し当日に閉栓の立会は難しいため、引越し後にもう一度立ち会う必要がある。
・家財保険など
旧居は退去手続きのとき確認しておいた方法で解約する。今回は不動産屋で手続書類を預かっているのでカギ返却時に受取り、記入し投函となった。新居は賃貸契約時に申込済みで契約内容だけ紙面でもらった。
・郵便転送
ゆうびんIDを作成しWebから手続き可能。
本人確認が必要なので今回は携帯で写真撮影し本人確認。
旧居の市役所で転出手続。転出の前後14日まで可能だが、引越前に手続しておくほうがいい。マイナンバーカードがある場合、マイナンバーカードだけあれば手続できる。
メジャーを持っていき、今後搬入予定の大型家具が問題ないか確認する。
入居の状況を写真に撮っておいたほうがいい。特に最初から傷などある場所を撮影しておく。
先ず最初にカーテン、照明器具などを購入する。
旧居で処分し新居で新たに購入するものを引越日までに購入して設置しておく。
引越当日に終わらない分の箱詰めしようと考えない(引越屋に迷惑)前日までに箱詰めを終わらしておく。
家電のコードは束ねて養生テープで側面に貼り付けておく。冷蔵庫は少し前から電気を抜いて霜を溶かしておく。(冬なら霜を溶かさなくても大丈夫)洗濯機はホースの先端をテープで止めておく。
粗大ゴミなどを残しておき後で処分しようとする場合、旧居のカギ返却、ガス閉栓の立会などと日程を合わせると手間が減る。
近隣への挨拶は1R/1LDKなど一人暮らしが多い物件ではしない人も多い。2LDK/3LDKなど家族での入居が多い物件の場合、簡単にでもしておいた方がいい。(子供がいる家庭からしてみれば誰が住んでいるか分からないと不安)
挨拶する場合、だいたい普段顔を合わす範囲だけで問題なく、タイミングも一般的に引越し前日や当日と言われているが、引越し後でも問題ない。
ただし、戸建や分譲マンションの場合、付き合いも長くなるのでもっと丁寧に行うのが基本なので注意。
旧居の管理会社へカギを返却(スペアキー含む)
市役所で手続する。マイナンバーカードだけでOK。今回は近くに警察署があるので、そのまま警察署に行って免許の住所変更もした。
ディーラーに依頼する場合、こちらで準備するのは、
保管場所使用承諾書のみ準備する。
・Webサービス類
・年金
(マイナンバーと基礎年金番号が結びついていれば届出は不要)
・会社(保険証)
・銀行、クレジットカード、証券会社
・各種保険
・運転免許
・霊園
・美容院などの会員証
登録変更手続きする。
新電気に乗り換える場合、確認すること。
・お客さま番号(旧電力を利用の場合だけ)
・供給地点特定番号
・スマートメーターかどうか(最近はなっていることが多い)
・高圧一括受電契約していないかどうか
・分電盤(アンペアブレーカーがあるかどうか)
気にしておく点として、
・高圧一括受電契約の場合、乗り換えは難しい。
・アナログメーターの場合、スマートメーターへの交換が必要になる。特に準備は必要ないけど敷地内に作業者が入れない場合など、一部対応が必要になることもある。
・アンペアブレーカーが不要なので工事が必要になる場合がある。
(今回はアンペアブレーカーが残ったまま新電気に切り替えとなったが、後に新電気での契約アンペア変更しブレーカーのアンペアと異なったタイミングで取り外し工事が必要になった)
通常Webから新電気に申し込むだけで手続は完了する。
※※ ブレーカー
ブレーカーには
・アンペア/サービスブレーカー(契約アンペアを超えると落ちる)
・漏電ブレーカー
・安全ブレーカー(回路ごとの容量20Aを超えると落ちる)
があり、従来は分電盤にアンペアブレーカーがあったが、スマートメーターの場合、アンペアブレーカーはあったりなかったり。
スマートメーターの場合、契約アンペアは遠隔で変更できる。
※※ 上限アンペア
建物として上限のアンペアが決まっている。
・単相二線式=30Aまで
・単相三線式=60Aまで
ただし、現在はほぼ単相三線式。
Biglobe光にする。
今回はフレッツ光のまま転居手続をして、転居後に光コラボにしようと考えたが、転居するとステータス更新に少し時間がかかるようで、10日程度、転用承諾番号を取得できなかったので注意。
フレッツ光の転用申込をして転用承諾番号を入手する。
https://flets.com/app4/input/index/
Webサイトにアクセスし、乗り換えのお申し込みを選択。
https://join.biglobe.ne.jp/ftth/hikari/join.html?cl=hikari_top_cv
必要な情報を入力すれば完了。
不動産登記にも載っておらず、今回はいくら調べても分からなかったので市役所にメールで問い合わせたら教えてもらえた。(急がないのであれば転入時に教えてもらえる)
ちなみに、もともと地番+支号(枝番)があり、新しく住居表示が導入された。市役所のページなどで住居表示の該当エリアかどうか調べることもできる。
・地番と支号(枝番)
○番地△
○番地の△
・住居表示
○番△号
・勤続年数
特に定めのない計算の場合、端数処理には裁量がある。
年の期間を求める場合、一般的には一年未満の端数を切上げ(1年+1日でも2年)とすることが多く、同じように月の期間を求める場合は、1ヶ月未満の日の端数も切上げて1ヶ月とすることが多い。
https://www.nta.go.jp/taxes/shiraberu/taxanswer/shotoku/1420.htm
ただ、日の端数を切上げたことにより1年を超えてしまい2年になるというような考え方はせず「1年未満の端数は1年に切上げる」だけと考えることが普通。
月の部分については、切上げ(1日でも所属したら1ヶ月とする)以外にも、日付を無視する計算方法もある。
イメージとして切上げは開始月を月初に、終了月を月末にしていて、日付無視は開始月と終了月を同じ日にしていると考えると分かりやすい。
・年齢
年齢の何ヶ月の部分は月末をどうするかが難しい。シンプルなのは先ず、
経過月 = 終了月-開始月
で経過月を算出し、
終了月の日 = 月末 OR 開始月の日 <= 終了月の日
満たさない場合、経過月-1月
という計算式。あるいは、
終了月の日 != 月末 AND 開始月の日 > 終了月の日
満たす場合、経過月-1月
開始月の日 <= 終了月の日
という部分は普通の考え方で、
終了月の日 = 月末
という部分は、開始月、終了月が月末の場合、1/31～2/28など最初の条件を満たさなくても、1ヶ月プラスされる部分があり、この場合、開始月側は何日であっても問題ないので終了月側だけ月末かどうか判断している。
ただ、月末同士で1ヶ月と考える方が自然ではあるけど、当然、
7/31-8/30で1ヶ月判定なし
8/31-9/30で1ヶ月判定あり
というよう結果もあるので少し気持ち悪さも残る。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 |
using System; using System.Windows.Forms; namespace WindowsFormsApp1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); textBox1.LostFocus += DateParse; textBox2.LostFocus += DateParse; } private void DateParse(object sender, EventArgs e) { TextBox textBox = (TextBox)sender; try { textBox.Text = DateTime.Parse(textBox.Text).ToString("yyyy/MM/dd"); } catch { textBox.Text = ""; } GetDuration(); } private void GetDuration() { if (textBox1.Text == "" || textBox2.Text == "") return; var startDate = DateTime.Parse(textBox1.Text); var endDate = DateTime.Parse(textBox2.Text); if (startDate > endDate) return; int y = endDate.Year - startDate.Year; int m = endDate.Month - startDate.Month; if (startDate.Month > endDate.Month) { y = y - 1; m = 12 + m; // mはマイナスの値が入っている } // 勤続年数(切上げ) -------------------------------------------------------- int yy = y; int mm = m + 1; if (mm == 12) // mmは最大でもm=11で+1され12まで { yy = y + 1; mm = 0; } textBox3.Text = yy.ToString() + "年" + mm.ToString() + "ヶ月"; // 勤続年数(切下げ) -------------------------------------------------------- textBox4.Text = y.ToString() + "年" + m.ToString() + "ヶ月"; // 年齢 -------------------------------------------------------- bool isLastDay = false; if (endDate.Month != endDate.AddDays(1).Month) isLastDay = true; // 月末かどうか int yyy = y; int mmm = m; if (startDate.Day > endDate.Day && !isLastDay) mmm = m - 1; if (mmm == -1) // mmmは最低でもm=0で-1され-1まで { yyy = y - 1; mmm = 11; } textBox5.Text = yyy.ToString() + "年" + mmm.ToString() + "ヶ月"; } } } |
・当年度末の勤続年数/年齢
時々出てくる当年度というのはだいたい4月～3月の期間で、会社によって締日が月末ではない場合もあり、例えば20日締の場合など3/21～3/20のようになったりする。先ず、現在の年の3月20日として、もし現在が3月20日以降の場合、現在の年に+1年の3月20日にする。
ちなみに年度末が12/31を指す場合は、現在の年の12月31日とすればいいので特に計算する必要はない。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 |
using System; using System.Windows.Forms; namespace WindowsFormsApp1 { public partial class Form1 : Form { public Form1() { InitializeComponent(); textBox1.LostFocus += DateParse; textBox2.LostFocus += DateParse; } private void DateParse(object sender, EventArgs e) { TextBox textBox = (TextBox)sender; try { textBox.Text = DateTime.Parse(textBox.Text).ToString("yyyy/MM/dd"); } catch { textBox.Text = ""; } GetDuration(); } private DateTime GetYearEnd(DateTime target) { var yearEnd = new DateTime(target.Year, 3, 20); if (target > yearEnd) yearEnd = yearEnd.AddYears(1); return yearEnd; } private void GetDuration() { if (textBox1.Text == "" || textBox2.Text == "") return; var startDate = DateTime.Parse(textBox1.Text); var endDate = DateTime.Parse(textBox2.Text); endDate = GetYearEnd(endDate); // 年度末 if (startDate > endDate) return; int y = endDate.Year - startDate.Year; int m = endDate.Month - startDate.Month; if (startDate.Month > endDate.Month) { y = y - 1; m = 12 + m; // mはマイナスの値が入っている } bool isLastDay = false; if (endDate.Month != endDate.AddDays(1).Month) isLastDay = true; // 月末かどうか int yyy = y; int mmm = m; if (startDate.Day > endDate.Day && !isLastDay) mmm = m - 1; if (mmm == -1) // mmmは最低でもm=0で-1され-1まで { yyy = y - 1; mmm = 11; } textBox3.Text = yyy.ToString() + "年" + mmm.ToString() + "ヶ月"; } } } |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 |
using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Threading.Tasks; using System.Windows.Forms; using System.Security.Cryptography; using System.Data.OleDb; namespace PersonalManager { public partial class Form1 : Form { private string connectionString = @"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + Application.StartupPath + @"\dat.accdb;" + "Jet OLEDB:Database Password=xxx"; public Form1() { InitializeComponent(); button1.Click += (s, e) => { ExecuteNonQuery("create table employee(" + "id autoincrement primary key," + "name text" + ")"); ExecuteNonQuery("insert into employee (name) values ('taro')"); DataTable dt = ExecuteQuery("select * from employee"); List<Model> models = new List<Model>(); for (int r = 0; r < dt.Rows.Count; r++) { models.Add(new Model() { id = dt.Rows[r]["id"].ToString(), name = dt.Rows[r]["name"].ToString() }); } dataGridView1.DataSource = models; }; } private void ExecuteNonQuery(string commandText) { using (OleDbConnection con = new OleDbConnection(connectionString)) { con.Open(); using (OleDbCommand cmd = new OleDbCommand()) { try { cmd.Connection = con; cmd.CommandText = commandText; cmd.ExecuteNonQuery(); } catch (Exception e) { MessageBox.Show(e.Message); } } } } private void ExecuteNonQuery(List<string> commandTextList) { using (OleDbConnection con = new OleDbConnection(connectionString)) { con.Open(); using (OleDbCommand cmd = new OleDbCommand()) { cmd.Transaction = con.BeginTransaction(); try { foreach (string sql in commandTextList) { cmd.Connection = con; cmd.CommandText = sql; cmd.ExecuteNonQuery(); } cmd.Transaction.Commit(); } catch (Exception e) { MessageBox.Show(e.Message); cmd.Transaction.Rollback(); } } } } private DataTable ExecuteQuery(string commandText) { using (OleDbConnection con = new OleDbConnection(connectionString)) { try { con.Open(); using (OleDbCommand cmd = new OleDbCommand()) { cmd.Connection = con; cmd.CommandText = commandText; using (OleDbDataReader reader = cmd.ExecuteReader()) { DataTable dt = new DataTable(); dt.Load(reader); return dt; } } } catch (Exception e) { MessageBox.Show(e.Message); return new DataTable(); } } } } class Model { public string id { get; set; } public string name { get; set; } } } |
フォルダ分けはファイルを入れるときに迷うことがないぐらいのざっくりで、ファイルの探し方は更新日でソートか、通常検索か、自作検索で見つけるという感じで運用している。
1人の場合はこれで問題ないけど、複数人で利用する共有フォルダの場合、ある程度ルール化する必要がある。業務の種類によって作成するファイルに違いがあり色々な意見がある。
・固有名詞(仕入先名、客先名、担当者名など)
・業務名(在庫管理、支払管理など)
・部署名(経理部、製造部など)
・インデックス(ABC…、あ行か行…など)
基本的に命名規則以外のフォルダを作らない。
例）
業務＞インデックス＞名称
支払管理
├ あ行
│ └ あいうえお株式会社
├ か行
例)
部署名＞業務名
部署名＞固有名詞
全社共通
└ 申請書類
部門別
├ 製造部
│ └ 工程管理
└ 経理部
├ 支払管理
└ Aさん(個人フォルダ)
一度決めたフォルダ構造は部門長(あるいは担当者)のみ変更可能とする。
より厳格に運用する場合(堅苦しいが)フォルダ構造を台帳化する。
部門名フォルダにはファイルを置かない、○階層目まではファイルを置かないなど決め、禁止フォルダの中にファイルを作ると自動で削除するなどする。
個々に決めると大変なので、あるフォルダ以下の中身はAさんが整理するなど決め、定期的に部門長が、整理の目標(ファイル数を減らすなど)を指示する。
版があがるファイルには必ず、日付やVER/REVを入れる。
(新、新々のようなファイルを作らない)
電子取引(メールやサイトからダウンロード)のデータは送受信ともに電子保存が義務。対象は取引情報(見積書、注文書、請求書、納品書、領収書など）
真実性の確保、可視性の確保が必要。
https://www.nta.go.jp/law/joho-zeikaishaku/sonota/jirei/05.htm
・真実性の確保
方法として、
1.タイムスタンプ付与
2.訂正、削除の履歴が残るシステム
3.事務処理要件を定める
https://www.nta.go.jp/law/joho-zeikaishaku/sonota/jirei/0021006-031.htm
がある。
・可視性の確保
1.日付、金額、取引先を検索条件として設定できること。
2.日付、金額は範囲指定できること。
3.任意の項目の組合せで検索できること。
税務職員による質問検査権に基づく電磁的記録のダウンロードの求めに応じることができるようにしている場合2,3は不要。
https://www.nta.go.jp/law/joho-zeikaishaku/sonota/jirei/pdf/0021005-038.pdf
※P4
実際、ある程度高度な検索ができないと適切な管理ができないので注意。
選択した文字列をブログ検索
|
1 2 3 4 5 6 7 8 9 10 11 12 |
{ "manifest_version": 3, "name": "RightClick", "version": "0.0.2", "background": { "service_worker": "script.js" }, "permissions": [ "tabs", "contextMenus" ] } |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
chrome.runtime.onInstalled.addListener(function () { chrome.contextMenus.create({ id: "parent", title: "ブログ検索", contexts: ["selection"] }); }); chrome.contextMenus.onClicked.addListener((info) => { if (info.menuItemId == "parent"){ let u = "https://www.google.co.jp/search?hl=ja&as_sitesearch=http://okamurax.com/&q=" + info.selectionText; chrome.tabs.create({url:u}); } }); |
chrome.contextMenus.createはonInstalled.addListenerで追加しないとエラーになる。chrome.contextMenus.onClicked.addListenerは入れるとダメ。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
textBox1.TextChanged += (s, e) => { string plainText = textBox1.Text; using (SHA256 sha256 = SHA256.Create()) { var encoded = Encoding.UTF8.GetBytes(plainText); var hash = sha256.ComputeHash(encoded); // ハッシュ値を16進数に変換(いくつか方法) textBox2.Text = String.Join("", hash.Select(x => x.ToString("x2")).ToArray()); textBox3.Text = BitConverter.ToString(hash).Replace("-", "").ToLower(); textBox4.Text = string.Concat(hash.Select(x => $"{x:x2}")); // ハッシュ値をBase64に変換の場合 textBox5.Text = Convert.ToBase64String(hash); } }; |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 |
private string Encrypt(string plainText) { // 半角16文字(128bit)、24文字(192bit)、32文字(256bit)から選ぶ。 byte[] key = Encoding.UTF8.GetBytes(@"u5vwged9ky6y6vii"); // Block Sizeと同じにする。半角16文字(128bit) byte[] iv = Encoding.UTF8.GetBytes(@"8knshgxqy4uf89gq"); byte[] byteValue = Encoding.UTF8.GetBytes(plainText); var byteLength = byteValue.Length; using (var aes = Aes.Create()) using (var encryptor = aes.CreateEncryptor(key, iv)) { var encryptValue = encryptor.TransformFinalBlock(byteValue, 0, byteLength); var base64Value = Convert.ToBase64String(encryptValue); return base64Value; } } public static string Decrypt(string encryptText) { byte[] key = Encoding.UTF8.GetBytes(@"u5vwged9ky6y6vii"); byte[] iv = Encoding.UTF8.GetBytes(@"8knshgxqy4uf89gq"); var byteValue = Convert.FromBase64String(encryptText); var byteLength = byteValue.Length; using (var aes = Aes.Create()) using (var decryptor = aes.CreateDecryptor(key, iv)) { var decryptValue = decryptor.TransformFinalBlock(byteValue, 0, byteLength); var stringValue = Encoding.UTF8.GetString(decryptValue); return stringValue; } } |
受信トレイのフォルダ構造をそのままにしたい。
ファイル＞アカウント設定＞データファイル＞ファイルの場所を開く
エクスプローラでファイルの場所が開いたら、現在利用しているpstファイルを別名にてコピーする。
コピーしたpstファイルを
ファイル＞アカウント設定＞データファイル＞追加
から追加し、設定から名前を変える。
元の受信トレイのメールを削除する。
最大サイズに達していて削除できない場合、Shiftを押しながら削除する。
削除したら、
ファイル＞アカウント設定＞データファイル＞設定＞今すぐ圧縮
を実施すると直ぐにファイルサイズが小さくなる。
クリックしたセルの値を取得
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next ' クリックセルの値チェック If Target.Value <> "[削除]" Then Exit Sub ' クリックセルの範囲チェック If Target.Row < 2 Then Exit Sub If Target.Column <> 8 Then Exit Sub ' クリック行の値を取得 id = ActiveSheet.Cells(Target.Row, 1).Value End Sub |
セルの値の変更をチェック
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
Dim beforeValue As Variant Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column <> 6 Then Exit Sub If beforeValue <> Target.Value Then MsgBox "変更されました" & Chr(13) & Target.Value End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next If Target.Column <> 6 Then Exit Sub beforeValue = Target.Value End Sub |
UserFormからシートのSelectionChangeを拾う場合
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
Private WithEvents e As Application Sub e_SheetSelectionChange(ByVal w As Object, ByVal Target As Range) If ToggleButton1.Value = False Then Exit Sub ' w.Parent.Name ' ブック名 ' w.Name ' シート名 ' Target.Address ' 選択範囲 ' Target.Item(1).Address ' 選択範囲の左上 Debug.Print Target.Item(1).Value r = Target.Item(1).Row TextBox19.Text = w.Cells(r, 1).Value End Sub Sub UserForm_Initialize() Set e = Application End Sub |