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 …

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

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