教えて!ExcelVBA!

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

【ExcelVBA 関数】Left関数の使い方がわからないです。教えて!

     f:id:m_kbou:20200420095719p:plain

Left関数は文字列の先頭から指定文字数分だけを抜き出す場合に使用します。Left関係の関数にはLeft関数とLeftB関数の2種類があります。このLeft関数の使い方について紹介します。

 

 

構文

記述方法は以下の通りとなります。

(1)Left関数の記述方法

Left([文字列],[桁数])

[説明]:

[文字列]には抜き出す対象文字を記述します。[桁数]には先頭から抜き出す桁を記述します。内容を纏めると、「[文字列]に記述された文字を、先頭から[桁数]に指定した桁で抜き出します。」との意味になります。

[記述例]:

Left("おはようございます。", 4)

(2)LeftB関数の記述方法

LeftB([文字列],[バイト数])

[説明]:

[文字列]には抜き出す対象文字を記述します。[バイト数]には先頭から抜き出すバイト数を記述します。内容を纏めると、「[文字列]に記述された文字を、先頭から[バイト数]に指定したバイト数で抜き出します。」との意味になります。

[記述例]:

LeftB("おはようございます。", 2)

 

使い方

使い方について具体的に説明します。

Left関数の使い方

Left関数の使い方について説明します。

(1)基本的な使い方

基本的な使い方について説明します。

[プログラミング例]:

Sub サンプル()
  MsgBox Left("おはようございます。", 4)
End Sub

内容は、「”おはようございます。”の文字列に対し、先頭から4桁の文字を抽出し、MsgBoxで表示して下さい。」との意味になります。

f:id:m_kbou:20210217075017p:plain

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

[実行例]:

①<実行>ボタンには上記のプログラミング例のプログラムが登録されています。この<実行>ボタンをクリックします。(※<ボタンにプログラムを割り当てるにはこちらを参考にして下さい。)

f:id:m_kbou:20210223145825p:plain

②結果は以下の様に表示されます。指定した文字列「おはようございます。」の先頭から4文字である「おはよう」が抽出され表示されます。

f:id:m_kbou:20190529104031p:plain 

[サンプル]:

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

drive.google.com

基本的な使い方についての説明は以上です。

(2)ループ処理と組み合わせた使い方

For~Next文と組み合わせた使い方について説明します。

[プログラミング例]:

Sub サンプル()

  '↓処理①
  Dim 行 As Double

  '↓処理②
  For 行 = 2 To 4
        Range("B" & 行) = Left(Range("A" & 行), 4)
    Next

End Sub

処理の流れは以下の通りとなります。

[処理①]:変数定義
Dimによる変数定義となります。

[処理②]:For~Next文の記述
For~Next文による繰り返し処理です。[処理①]で指定した変数:行に2から4の値を順次セットし、処理を3回実行します。1回目の処理では行に2がセットされ、A2セルに入力されている文字列の先頭から4文字を抽出しB2セルにセットします。2回目の処理では行に3がセットされ、A3セルに入力されている文字列の先頭から4文字を抽出しB3セルにセットします。3回目の処理では行に4がセットされ、A4セルに入力されている文字列の先頭から4文字を抽出しB4セルにセットします。

f:id:m_kbou:20210217075045p:plain

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

[実行例]:

①<実行>ボタンには上記のプログラミング例のプログラムが登録されています。この<実行>ボタンをクリックします。(※<ボタンにプログラムを割り当てるにはこちらを参考にして下さい。)

f:id:m_kbou:20210223150954p:plain

②結果は以下の様に表示されます。A列2行目の文字列「おはようございます。」は先頭から4文字である「おはよう」がB列2行目に、3行目の文字列「こんにちは。」は先頭から4文字である「こんにち」がB列3行目に、4行目の文字列「こんばんは。」は先頭から4文字である「こんばん」がB列4行目に表示されます。

f:id:m_kbou:20210223151007p:plain

[サンプル]:

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

drive.google.com

ループ処理と組み合わせた使い方についての説明は以上です。

 

LeftB関数の使い方

LeftB関数の使い方について説明します。

(1)基本的な使い方

基本的な使い方について説明します。

[プログラミング例]:

Sub サンプル()
  MsgBox LeftB("おはようございます。", 2)
End Sub

内容は、「”おはようございます。”の文字列に対し、先頭から2バイトの文字を抽出し、MsgBoxで表示して下さい。」との意味になります。

f:id:m_kbou:20210217075105p:plain

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

[実行例]:

①<実行>ボタンには上記のプログラミング例のプログラムが登録されています。この<実行>ボタンをクリックします。(※<ボタンにプログラムを割り当てるにはこちらを参考にして下さい。)

f:id:m_kbou:20210223151711p:plain

②結果は以下の様に表示されます。指定した文字列「おはようございます。」の先頭から2バイトである「お」が抽出され表示されます。

f:id:m_kbou:20190529104144p:plain

[サンプル]:

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

drive.google.com

基本的な使い方についての説明は以上です。

(2)ループ処理と組み合わせた使い方

For~Next文と組み合わせた使い方について説明します。

[プログラミング例]:

Sub サンプル()

    '↓処理①
    Dim 行 As Double

    '↓処理②
    For 行 = 2 To 4
        Range("B" & 行) = LeftB(Range("A" & 行), 2)
    Next

End Sub

処理の流れは以下の通りとなります。

[処理①]:変数定義
Dimによる変数定義となります。

[処理②]:For~Next文の記述
For~Next文による繰り返し処理です。[処理①]で指定した変数:行に2から4の値を順次セットし、処理を3回実行します。1回目の処理では行に2がセットされ、A2セルに入力されている文字列の先頭から2バイトを抽出しB2セルにセットします。2回目の処理では行に3がセットされ、A3セルに入力されている文字列の先頭から2バイトを抽出しB3セルにセットします。3回目の処理では行に4がセットされ、A4セルに入力されている文字列の先頭から2バイトを抽出しB4セルにセットします。

f:id:m_kbou:20210217075124p:plain

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

[実行例]:

①<実行>ボタンには上記のプログラミング例のプログラムが登録されています。この<実行>ボタンをクリックします。(※<ボタンにプログラムを割り当てるにはこちらを参考にして下さい。)

f:id:m_kbou:20210223152254p:plain

②結果は以下の様に表示されます。A列2行目の文字列「おはようございます。」は先頭から2バイトである「お」がB列2行目に、3行目の文字列「こんにちは。」は先頭から2バイトである「こ」がB列3行目に、4行目の文字列「こんばんは。」は先頭から2バイトである「こ」がB列4行目に表示されます。

f:id:m_kbou:20210223152308p:plain

[サンプル]:

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

drive.google.com

ループ処理と組み合わせた使い方についての説明は以上です。

 

プログラミング(サンプル)

プログラミング事例を紹介します。

www.osiete-excelvba.work

 

おわりに

今回はLeft関数について説明をしました。類似の関数にはRight関数Mid関数Instr関数もありますので、合わせて覚えて下さい。