2019年4月1日から、年５日有給休暇を取ることが義務化されましたね。 取らなければ一人につき30万円の罰金があるそうです。 インターネッツ上で有給の管理ができるテンプレートを色々探したのですがなかなか自分に合ったものが無かったので作りました。 概要…

A列に「特定の文字」が入力されたらメッセージを出す場合。（2022/06訂正） ThisWorkbookに記述する場合 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Sh.Name = "Sheet1" Then If Intersect(Target, Columns("A")) Is …

複数のシートで同じ書式で似たような情報が入っている時、 一気にオートフィルタの絞り込みをするためのマクロを組んでみました。 こんな感じで年次毎のデータがあったとします。 （分かりやすいように色を変えただけで内容は一緒です） 商品名の一覧を別シ…

マイナンバーカードで5000円分得するという噂のマイナポイントの申し込みが7/1から始まっています。 私はPASMOを選びました。 ただ、ICカードリーダを持っておらず、手持ちのスマホもマイナポイントアプリに非対応。 コンビニでの登録に苦戦したのでどうやっ…

オートフィルタの解除と、絞り込みをクリアする方法を書いておきます。 Excel2003だとショートカットを自分で設定できたのでこんなマクロいらなかったんですけどね。 Ctrl + Shift + LでLを２回押すという方法もあるけど、オートフィルタの場所が一番上の行…

Windows10のエクスプローラで写真データを見ると、 フォルダを上にしたうえで日付順にしたいのですが、上手くできませんでした。 ということで調べました。 ①並べ替えたいフォルダを開いて右クリック ②その他 ③下のほうにある「日付時刻」にチェックを入れて…