9日目 10月生まれにチェックを入れよう【30日間1日1本マクロ生活】

30日間1日1本マクロ生活、9日目です。

いつの間にかもう9日目。我ながら頑張ってます。

いや、別に褒めてくれてもいいんですよ。「今度はちゃんと続いてるじゃん」って。

誰も褒めてくれないもんで。褒めちゃいけないなんて言ってませんから。

わたしは褒められて伸びるタイプなんで。

褒められてのぼせるタイプとも言います。はい。

まあ、頑張って30日間続けますよ。

10月生まれ

マクロを書く準備は、0日目に記事を書きました。

今日のネタは、誕生月。

こんなデータを準備してみました。

氏名生年月日
名取新一郎1989/03/18
畠中務1982/06/10
谷本剛1970/11/20
大淵千尋1993/10/23
塚原静子1979/11/14
北沢広行1973/01/01
川名浩1958/03/06
吉本美結1989/02/11
向井宏寿1979/04/21
橋口武男1972/08/21
沢英三1968/10/28
近藤修1996/04/26
河上穂香1963/01/21
堀江喜代1992/07/01
古橋千夏1985/08/13
保坂悟1976/11/26
富永茂夫1968/03/04
蛭田美月1968/06/04
神谷眞幸1961/07/30
吉田成光1974/03/14
飯野徳康1986/09/29
沼田修1994/06/26
高尾桃花1991/03/28
柏木彰三1983/11/20
大滝瑠菜1978/02/15
小幡辰也1984/08/28
小谷昭雄1958/06/12
大城莉子1995/08/17
浜崎彩乃1959/05/15
柳田隆志1986/12/13
小野浩重1980/09/10
岡田海斗1992/01/27
中山常男1958/01/10
赤塚優衣1992/03/30
長田伸一1972/04/13
南健次1969/05/04
楠本勝巳1994/03/14
三枝響子1994/01/14
福田政美1997/07/23
片桐芳久1974/04/01
古谷愛海1961/03/05
上野清一郎1995/08/31
中村靖1982/09/09
武井伊都子1985/04/25
井本三男1973/11/12
石村紗那1996/06/12
森田賢一1973/06/30
河崎和子1996/11/22
植松新次郎1969/01/16
下田葉月1984/10/27

氏名、生年月日のデータ50人分です。

ちなみに、氏名、生年月日はダミーです。4日目、6日目にも紹介した「疑似個人情報データ生成サービス」を利用しました。

今月は10月です。10月生まれの人の横にチェックを入れます。

これって、マクロを使わなくてもワークシート関数で何とかなりますけど、それでもマクロを使ってみることに意義があると思ってます。

さっそくコードを


Sub 十月生まれにチェック()
    y = 2
    Do While Cells(y, 1) <> ""
        If Month(Cells(y, 2)) = 10 Then
            Cells(y, 3) = "*"
        End If
                
        
        y = y + 1
    Loop
End Sub

では、解説します。

Month関数

4行目のMonth関数です。

Month関数は「Month(日付)」の形式で使います。カッコ内の日付の「月」を取り出す関数です。

似た関数に「Year(日付)」、「Date(日付)」などがあります。

それぞれ、日付の「年」、「日」を取り出します。

実行結果

マクロを記述するウィンドウの「Sub」と「End Sub」の間にカーソルを置いて、画面上方の再生ボタン的なアイコン(右向きの三角形)をクリックするか、[F5]キーを押します。

このように、ちゃんとチェックが入ってます。

下の方もバッチリです。

今回は3人しかいませんでした。

Excelは便利

悔しいですが、Excelは便利です。

Microsoftにお金を払うのは癪でしょうがないんですが、Excelばかりは仕方がない。

マクロを書くようになると、Excelからは離れられないですね。

30日間、頑張ります。