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

2017年10月7日

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

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

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

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

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

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

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

10月生まれ

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

0日目　マクロを書く準備をしよう【30日間1日1本マクロ生活】

マクロを書く準備早速マクロを書こうと思ったんですが、マクロって何？食えんの？って人もいると思うんで、丁寧に行こうかな、と。マクロってのは、通常は人間の手でやるような作業を、プログラムを書くことで機械に自動的にやらせるってことです。Excelの場合はVBA(Visual Basic for Application)という言語を使ってマクロを書きます。まずはその準備を。Excelを起動すると、ワークシートが現れます。ここでキーボードの「ALT+」を押してください。はキーボードの上方にあるファンクションキーの11番です。すると、このウィンドウが開...

今日のネタは、誕生月。

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

氏名、生年月日のデータ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日間、頑張ります。

【購入特典付】Microsoft Office 365 Solo (1年版)|オンラインコード版|Win/Mac/iPad対応|特典12/31まで

posted with カエレバ

マイクロソフト 2014-10-17

Amazon

楽天市場