/* アクセス解析(Google Analytics 等)の Javascript は、?> 以降に書いてください。 (Javascript of Access analysis (Google Analytics etc.), please write them after the below ?>. ) */ ?>

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日間、頑張ります。