赤木夏樹のうつ病でも特例子会社で働けてます！

ソフトバンクエアー（wifi）で大変な思いをしたので参考になるかもと思い残しておきます。   突然、下記のようなメールが届きました。     ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ 「SoftBank Air」設置場所住所でのご利用のお願い   ご利用中の「SoftBank Air」につきまして、ご登録の設置場所住所と異なる住所でのご利用を確認しました。   ■お客様へのお願い ご登録の設置場所住所でのご利用をお願いします。ご対応いただけない場合、1時間以内にサービスのご利用を停止いたします。   ▼お引っ越し等によりご登録住所の変更が必要な場合は、下記URLよりお手続きをお願いします。 http://r.softbank.jp/yaHIFo ※スマホ、 PCでアクセス下さい   ※ご対応後に弊社へ連絡いただく必要はございません。   ソフトバンク（株） ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊   住所は変えていないにも関わらず、突然Wi-Fiが使えなくなりました。   再起動などしてもWi-Fiは使えませんでしたのでサポートセンターに電話しました。     平日の昼に40分待ってようやく電話が繋がりました。   オペレーターの話だと下記の手順で直る可能性が高いとのこと。   1.ソフトバンクエアーの電源を切る（コンセントを抜く） 2.SIMカードを抜き差しする。 3.爪楊枝などでリセットボタンを5秒押す（ランプの表示が変われば成功）       公式ホームページなどにも載ってなかったので載せておきます。  実際にこの方法で治りましたので、ご参考になれば幸いです。 さて、最近の近況ですが、 実家の母がメニエールで倒れて看病に行っていました。   また、お陰様で平日は仕事が忙しくしております。   また、時間見つけて、うつ病でのライフハック関連の記事や と特例子会社の記事上げていきます！（｀・ω・´）ノ

【実体験】好きな事でなく得意な事を仕事にするススメ 上記を順を追って説明していきたいと思います。 この記事が長く仕事を続けれるヒントになれば幸いです。 前の記事でも書きましたが精神疾患を持っていると離職率は高くなるので長く続けれる適職選びは重要になると思います。 よく世間でも「好きな事」で食べていきたいという言葉を耳にしますが 私の考えでは、好きな事よりは得意な事、もしくはストレスをあまり感じないことをおススメします。（個人的には下の図で言うとオススメは D と B です） 上 の図を使って解説していきたいと思います。 ■ A はその分野が 好き ではあるけれど 得意ではない という状態です。 ・得意でないということは仕事の処理効率が悪く、上司や顧客に評価されにくく、感謝も貰いにくいです。 ・このため、好きであってもモチベーションと自己肯定感や自己効力感は下がっていきます。 ・どんどんと心身が疲弊するも評価を貰いにくく、自分も会社も顧客にも貢献しずらいと思われます。 ・好きだったはずがいつしか嫌い ( トラウマ ) になる可能性もあります。 よって、好きだけども苦手な A は避けた方が良いと思います。 稀に熱意 ( 好き ) で苦手を克服できる人も居ますが、あまりオススメは出来ません。 ■ C ： 好きでもないし得意でもない ・ A と同様、得意でなく苦手な時点で上司や顧客から評価が得づらいです。 ・よって、 A 同様モチベーションは下がります。 ・更に好きでもない為、熱意でカバーする事も難しいと思います。 このため、一番避けた方が良い道だと思います。 ■ B ： 好き だし 得意 ・得意という時点で仕事で成果を上げれますので上司や顧客からの評価は高くなります。 ・良い FB( 称賛 ) が返ってくるのでモチベーションも上がります。 ・ただし好きでこだわりが強いと、本当にやりたい事が出来ないフラストレーションや、自分の力不足を感じたり、回りとの熱量の差がストレスになる可能性もあります。 よって、 D の次にオススメの選び方だと思われます。 ■ D ： 特に好きではないが得意 ・個人的に一番良いと思い分野です・ ...

まだ読者登録ないですが、ツイッター始めました。 @tokureiAkagi で検索すると出てきます・ ブログには短すぎる内容や、私生活の呟きを投稿しています～

ここまで習得出来たらなら基本的な事はほぼマスターし、簡単な処理なら難なく処理できるはずですが、 VBA の全体量は膨大であり、本ブログで伝えきれない事は山ほどあります。 たとえば WorkSheetFunction では VLOOKUP も使えますので、ご興味のあるかたは調べてみてください。 その際 google などで「 VBA WorkSheetFunction.VLOOKUP 」などと検索すると日本語のサイトが多数出てきます。 また逆に「 VBA 数を数える」などで検索すると WorkSheetFunction の CountIf のページが出てくると思います。（ CountIf に頼らないほかの方法も出てきます。） 他にも、自分が実現したい機能をすでに誰かが実現していて、そのコードを公開している場合も多々あります。例えば「 VBA シート 目次」などで検索すると、そのコードが出てきます。 選択しているセルの番地（Ａ１）などを MsgBox に出力したり、 InputBox を利用すれば、変数を手打ちで簡単に変更できます。 VBA には本当に便利な機能が多数あります。 ここまで読んできた人なら基本的な文章は読めるようになっているのでネットの検索や書籍を見ても理解できると思われます。 また、会社内でも処理したいファイルをコピーして、マクロを組んで狙った処理が出来るかを試してみてください。 そして狙った処理が出来たなら、上司に相談して仕事が出来るやつと思われても良いですし、マクロの処理で効率化出来た時間に好きなことをすることも出来ます。 はじめは不安かもしれませんが、ネットや書籍を調べながらでもポンコツな私は狙った処理が出来、社内でかなり評価されています。 また、ネットで学習する際は、「ＶＢＡ 学習サイト」で検索するといくつかのサイトが出てきますので、自分に合うサイトを探すのも一つだと思います。 検索上手になり、コードの意味をしっかり吸収していけば自ずとレベルアップしていきます。

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ Sub sample11() Dim x As Long Dim y As Long Dim Tantou As String Tantou = Range("F1") x = Application.WorksheetFunction.Match("* 担当者 *", Rows(1), False) y = Application.WorksheetFunction.CountIf(Columns(x), Tantou) MsgBox Tantou & " さんは " & y & " 件、訪問してます " End Sub ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ Match と CountIf では、（）内の並びが異なるので注意してください。 String は文字列を意味していますが、 String の代わりに variant でも大丈夫です。 上記のコードではまずｘに担当者の列を格納し（今回は５）、そして、 CountIf で５行目の Tantou の件数を数えています。 変数が多くなると混乱するかもしれませんが、多数の複雑な処理を行うには変数をたくさん使いますので、必ず、理解していってください。

前述の Match で何某かの値が取得できないとエラーになります。 上記の図のケースだと「備考」の文字がないためエラーになってしまっています。 これは２通りのエラー回避方法で回避できます。 ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ Sub sample11_1() Dim x As Long On Error Resume Next X = Aplicatin.WorksheetFunction.Match(“ 備考” , Rows(1), False) Range(Cells(1,x) , Cells(1, x + 3)).EntireColum.Delete End sub ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ エラーの原因となる行の上に On Error Resume Next と書くことでエラー画面を出すことなく処理させる子が可能ですが、情報量が多い Excel のファイルだとうまく処理できたかわからなくなる時があります。 このため、エラーの時にメッセージが出るように下記のようにラベル処理を併用します。 ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ Sub sample11_1() Dim x As Long On Error GoTo Laber001 X = Aplicatin.WorksheetFunction.Match(“ 備考” , Rows(1), False) Range(Cells(1,x) , Cells(1, x + 3)).EntireColum.Delete MsgBox “ 備考から右３列を削除しました” Exit Sub Label001: MsgBox “ 備考が見つかりませんでした” End sub ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ まずは正しく処理されたときに、その旨を伝えるメッセージが出るようにします。 つ...