教えて!ExcelVBA!

ExcelVBAの基礎知識・書き方について紹介します。

【ExcelVBA プログラミング】(関数2)Left関数のプログラミング例を教えて!

f:id:m_kbou:20200526085002p:plain

Left関数を使用したプログラミング例を紹介します。

 

 

例題

例題は、<実行>ボタンをクリックするとA2セルに入力されている数値について、Left関数を使用して左から4桁の数値がが2020未満であれば「去年です。」を表示し、2020以上であれば「今年です。」を表示する

 

[サンプル1]:

①年月日に「20191231」を入力し、<実行>ボタンをクリックします。

f:id:m_kbou:20200526073222p:plain

②「去年です。」がMsgBoxで表示されます。

f:id:m_kbou:20200526073236p:plain

 

[サンプル2]:

①年月日に「20200101」を入力し、<実行>ボタンをクリックします。

f:id:m_kbou:20200526073331p:plain

②「今年です。」がMsgBoxで表示されます。

f:id:m_kbou:20200526073356p:plain

 

プログラミング

プログラミングは以下の通りとなります。

[記述例]:

Sub サンプル()

    If (Left(Range("A2"), 4) < 2020) Then
        MsgBox "去年です。"
    Else
        MsgBox "今年です。"
    End If
   
End Sub

内容を説明すると、

A2セルに入力されている数字の頭4桁(左4桁)が2020未満であれば”去年です。”を表示し、2020以上であれば”今年です。”を表示して下さい。

との意味になります。

f:id:m_kbou:20210212174559p:plain

※上記の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。また、ボタンにプログラムを割り当てるにはこちらを参考にして下さい。

 

ダウンロード

上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。

drive.google.com