仕事の中で、大量の単純作業を処理する必要がありました。 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…