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






