私は銭湯に通っている。 好きだから通っているのではなく、単純に必要だから通っている。 私の家には風呂がない。スポーツジムにお風呂だけ入りに行っていた時期もあったが、現在は銭湯通いが気に入っている。 別に風呂があるアパートを借りる金がないわけじ…

年末年始にシステム改修作業を行なった。 まぁ、どんな会社でも長い休みの間にシステム作業を入れるというのはよくあることだと思う。 （ほぼ確実に起こる）障害に備えて、社内のシステム担当は30分ないし1時間早く出勤する。（ありがたいことに残業代が出る…

AdobeのFlashのサポートが2020年末で終わる。 ずっと前から分かっていたのに、直前になって寂しくなった。年齢がバレるが、私の青春はいわゆるフラッシュ全盛期と共にあった。 「おもしろフラッシュ」と名のつくページを片っ端から回った。 「無個性戦隊〇〇…

仕事の中で、大量の単純作業を処理する必要がありました。 Citrix経由で起動しているアプリにデータを打ち込んでいく作業です。 1日あたり500件あることもあり、それが週3～4で続いていく・・・。 チームで作業しているので1人あたりの作業量は100件程度にな…

【想定する実務】 ①受信したメールを「名前を付けて保存」している ②メールの保存場所は毎回同じ（変えるにしても年1回）である（共通フォルダ等） ③メールの管理表をExcelで作っている【処理の流れ】 ①メール管理表（Excel）を開く ②Outlookからマクロを実…

Excelのフォルダを選択するダイアログを表示して、 得た値をエクセルの指定したセルに書き込むマクロです。 （ネットに似たようなコードはいくらでも転がっていると思うけど・・・） Sub pathselect() Dim Path As String With Application.FileDialog(msoFi…

テニスと筋トレが好き。 特にストイックな人が好き。 早稲田の千頭選手と、ShoFitnessのShoさんはどちらもストイックでなんか感じが似ているな。

Amazon Music Unlimitedで中村千尋さんの「潮時チェッカー」に偶然出会った。 すごく面白い曲だなと思って、リピートで聞いてた。 中村千尋さんの曲を聴くのは初めてだったので、他の曲も聞いてみたくて、「潮時チェッカー」が収録されているアルバム「女の…

Outlook上で選択したメールの添付ファイルを全て削除するプログラムです。 Sub SelecetdAttachDelete() If MsgBox("選択したメールの添付ファイルを削除します。よろしいですか？", _ vbYesNo) = vbNo Then End End If Dim objMail As Object Dim SelectionC…

【本記事の対象者】 ・メーラーがOutlookである。 ・事務の中に「メールの保存」があり、面倒だと思っている。 ・VBA開発ができる（許される）環境にある。【本記事を読んだ結果できること】 ・メールの「名前をつけて保存」が効率化できる。【前提】 私は「…

sub アイテムの受信年度を作成するマクロ() Dim objMailItem As Object 'MailItemオブジェクトの取得 If TypeName(Application.ActiveWindow) = "Inspector" Then Set objMailItem= Application.ActiveInspector.CurrentItem Else Set objMailItem = ActiveE…