Left関数を使用したプログラミング例を紹介します。
例題
例題は、<実行>ボタンをクリックするとA2セルに入力されている数値について、Left関数を使用して左から4桁の数値がが2020未満であれば「去年です。」を表示し、2020以上であれば「今年です。」を表示する
[サンプル1]：
①年月日に「20191231」を入力し、<実行>ボタンをクリックします。
②「去年です。」がMsgBoxで表示されます。
[サンプル2]：
①年月日に「20200101」を入力し、<実行>ボタンをクリックします。
②「今年です。」がMsgBoxで表示されます。
プログラミング
プログラミングは以下の通りとなります。
[記述例]：
Sub サンプル()
If (Left(Range("A2"), 4) < 2020) Then
MsgBox "去年です。"
Else
MsgBox "今年です。"
End If
End Sub
内容を説明すると、
A2セルに入力されている数字の頭4桁（左4桁）が2020未満であれば”去年です。”を表示し、2020以上であれば”今年です。”を表示して下さい。
との意味になります。
※上記の記述例は、VBE（VBA記述画面）に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。また、ボタンにプログラムを割り当てるにはこちらを参考にして下さい。
ダウンロード
上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。