関数 | VBA・GAS・Pythonで仕事を楽しく効率化

文字列関数を用いて長い文字列から特定の部分を抜き出す

okumasahito — Sun, 12 Jul 2020 06:41:47 +0000

VBAの文字列関数は使いこなすとすごく便利
よく使う文字列関数
文字列関数の使い方の応用例

VBAの文字列関数は使いこなすとすごく便利

最近VBAだけでなく、RPAだったり他のプログラミング言語だったりをちょこちょこと使う機会があったのですが、今さらながらVBAの文字列関数の便利さに気づきました。
（他の言語でも似たような関数はあるのに、私が慣れていなくて把握していないだけかもしれませんが）

今回は文字列関数の中で私がよく使うものを紹介します。

よく使う文字列関数

①Left関数

Left関数は左から決められた文字数を抜き出す関数です。
Excelのワークシートでも同じ関数があります。
形式は下記の通りです。

Left(“全体の文字列”,抜き出したい文字数)

抜き出したい文字数が一定ではなく、特定の文字の位置までを抜き出したい場合は③Instr関数④InstrRev関数などと併せて用います。

Right関数という右から文字を抜きだす関数もありまして基本的な使い方はLeft関数と同じですが、使用頻度は明らかにLeft関数の方が高いと思います。

②Mid関数

Left関数やRight関数よりも少し複雑で、文字列の中の指定した位置から指定した文字分抜き出す関数です。
下記の形式で記入します。

Mid(“全体の文字列”,文字を抜き出す開始位置,抜き出す文字数)

抜き出す文字数は省略可能です。
Excelのワークシートでも同じ名前の関数がありますが、抜き出す文字数を省略したときの挙動が変わります。

ExcelワークシートのMid関数→抜き出す文字数の指定が必須（指定しないとエラーになる）

VBAのMid関数→文字列の最後まで抜き出す

③Instr関数

文字列の中で特定の文字（列）がどの位置にあるか調べる関数です。
下記の形式で記入します。

Instr(“全体の文字列”,“検索文字(列)”)

指定した文字（列）が含まれていない場合値は0になるという特徴を利用して、文字（列）が含まれているかどうかを判定するのにも使用します。

検索したい文字（列）が複数含まれている場合は、一番左側の位置（若い番号）を抜き出します。

④InstrRev関数

Instr関数と同じく、文字列の中で特定の文字（列）がどの位置にあるか調べる関数です。
下記の形式で記入します。

InstrRev(“全体の文字列”,“検索文字(列)”)

Instrとの違いは検索したい文字（列）が複数含まれている場合は、一番右側の位置（大きい番号）を抜き出すことです。

⑤Len関数

Len関数は文字列の文字数を抜き出す関数です。
上記4つの関数と比較して使う頻度は低いですが、文字列全体の文字数を把握するときに使います。
形式は下記の通りです。

Len(“全体の文字列”)

単独の使用頻度は高くないのですが、他の関数組み合わせて使用するのがほとんどだと思います。

文字列関数の使い方の応用例

文字列関数は単独で使用するより、組み合わせて使用することで便利になることが多いです。
よく使われる文字列関数の組み合わせをご紹介します。

①特定の文字より左側の文字列を抜き出す

決まった文字数を抜き出すのではなく、決まった文字までの文字列を抜き出すにはLeft関数とInstr関数を使用します。
例えば文字列の中で「_」までの部分を抜き出す場合、下記のように記入します。

Left(”全体の文字列”,Instr(”全体の文字列”,”_”))

Left関数で左側の文字を抜き出すのですが、その際にInstrを使用して取り出したい文字の位置を指定します。

抜き出すときの目印になる文字（列）が複数存在する場合、最も左側の目印で切り分けたい場合はInstr関数、最も右側の目印で切り分けたい場合はInstrRev関数を用います。

②特定の文字より右側の文字列を抜き出す

①の使い方と似ていますが、Mid関数とInstr関数の組み合わせで上記の処理が可能になります。
例えば文字列の中で「_」から後の部分を抜き出す場合、下記のように記入します。

Mid(”全体の文字列”,Instr(”全体の文字列”,”_”)+1)

Instr(”全体の文字列”,”_”)で目印となる「_」の位置を求めて、その次の文字位置から抜き出すために+1を行います。

③文字列のうち右から数文字だけ除いた分を抜き出す

全体の文字数が色々変わる中で、右から4文字だけ除いた残りの文字列を抜き出すときなどはLeft関数と組み合わせて下記のように記載します。

Left(“全体の文字列”,Len(“全体の文字列”)-4)

左側を抜き出すのでLeft関数を使用しますが、Len関数を用いて抜き出す文字数を調べています。

④文字列の中で特定の文字（列）が複数含まれているか確認する

少しイレギュラーな方法ですが、全体の文字列の中に特定の文字（列）が複数含まれているか確認する方法として、Instr関数の結果とInstrRev関数の結果を比較する方法があります。
下記のように条件分岐に使用します。

If Instr(“全体の文字列”,”_”)= InstrRev(“全体の文字列”,”_”) then
’1つしか含まれない、もしくは1つも含まれない場合の処理
Else
’2つ以上含まれている場合の処理
End If

値が0になる場合の分岐を追加することで1つも含まれない場合の処理を分けることも可能です。

文字列を切り離して配列に格納する方法

okumasahito — Sat, 12 Oct 2019 04:02:44 +0000

配列→文字列、文字列→配列の変換はどちらも覚えると便利
文字列→配列の変換にはSplit関数を用いる

配列→文字列、文字列→配列の変換はどちらも覚えると便利

以前にこちらの記事で配列を区切り文字で区切った文字列に変換するJoin関数をご紹介しましたが、逆に文字列を区切って配列に格納する関数の存在を最近知りました。

どちらも使えるとより便利になることに気づいたのでご紹介します。

文字列→配列の変換にはSplit関数を用いる

Split関数は文字列を特定の文字で切り離して、切り離した文字列をそれぞれ配列に格納するという関数です。

例えば誰かが作った住所録などで「郵便番号」「住所」「電話番号」が記載されていたとして、それぞれの情報が半角スペースで区切られた文字列になっているような場合、Split関数を使用すれば3つの情報を切り離して別のセルに格納することができます。

Sub Split関数で配列に格納()

Dim 住所連絡先 As String
住所連絡先 = “〒590-0504 大阪府泉南市信達市場 072-000-0000”

Dim 住所配列
住所配列 = Split(住所連絡先, ” “)
MsgBox 住所配列(1)

End Sub

上記のコードを実行すると住所連絡先の文字列から、「郵便番号」「住所」「電話番号」がそれぞれ配列の住所配列(0)、住所配列(1)、住所配列(2)に格納されます。

Excelの区切り位置指定でも似たような作業をすることができますが、例えば上記のように住所の部分だけ取り出す場合などは圧倒的にSplit関数を使う方が早いと思います。

また、Split関数を使用する際の注意点ですが、格納するための配列はVariant型の変数で宣言する必要があります。
文字列型の配列などで宣言しても使えませんのでご注意ください。

時間を比較するときに使うVBAの関数について

okumasahito — Sun, 13 Jan 2019 12:46:13 +0000

時間の比較の手順を考えてみました
時間の比較で使用するVBA関数
1. ①TimeValue関数
2. ②TimeSerial関数
その他使用すると便利な関数

時間の比較の手順を考えてみました

以前にこちらで乗り換え検索を自動で行うツールをご紹介しましたが、追加で所要時間を比較する必要があり、コードを考えました。
文字列で書かれている時間を比較するには関数を用いて変換をしたり、少しコツが必要になりますので、ここで紹介します。

時間の比較で使用するVBA関数

時間の比較で使用する関数は主に下記の2つです。

①TimeValue関数

文字列で表示されている時間を数値に変換する関数です。
24時間を1とした場合の値に変換されます。

記入方法は下記の通りです。

1.Cells(1, 1) = TimeValue(“9:00”)

2.Cells(1, 1) = TimeValue(“9時00分”)

②TimeSerial関数

こちらも時間を数字で表示するための関数です。
数字で表したい時間の時間（hour）、分(minute)、秒(second)を引数に入力して用います。

Cells(1, 1) = TimeSerial(9, 0, 0)

その他使用すると便利な関数

所要時間を表示する際は「〇〇時××分△△秒」ではなく、「〇〇時間××分△△秒」と表示されていることが多いと思います。
この中に入っている「間」が厄介で、このままではTimeValue関数が使用できません。

この「間」を取り除くのにはVBA関数のReplace関数を用います。
（ワークシート関数のReplaceとは挙動が異なります。）

例えばA1セルに「6時間00分」と入力されているとすると、
Cells(1,2) = Replace(A1,”間”,””)と入力するとB1セルに時間に変換した値（=0.25、＝6:00:00など）が入力されます。

ワークシートの書式を設定していなければ自動で時間型に変換されるのでそのまま使用できますし、ワークシートの書式を文字列にしておいてからTimeValue関数で数値型に変換しても良いと思います。

翌月の日付や前月の日付を算出するユーザー定義関数

okumasahito — Tue, 12 Jun 2018 10:00:24 +0000

追記：2019/09/20
月の日数は一律でないので計算しにくい
当月の初日を算出するユーザー定義関数
翌月の初日を算出するユーザー定義関数
前月の初日を算出するユーザー定義関数

追記：2019/09/20

この記事の内容は以前に作成したもので、より適切な方法をこちらのページに記載しています。
Excel標準のワークシート関数で月の最終日を取得できる便利な関数があるのでよければご覧ください。

月の日数は一律でないので計算しにくい

日付の足し算・引き算などはExcelの中でかなり頻繁に使われる機能だと思いますが、日数が月によってバラバラなために計算が複雑になることが多いと思います。

特にスケジュール帳の作成や共有のシフト表など間違えてはいけない書類・データを作る際、時間をかけて手作業で行っている方も多いと思います。

今回はExcelなどでスケジュール表や共有シフト表を作成する際に役立つ「翌月の初日を」ユーザー定義関数を紹介します。

当月の初日を算出するユーザー定義関数

当月の初日を算出するにはYear関数とMonth関数を使用し、下記のように設定します。

Function 当月初日(該当日 As Date) As Date

当月初日 = Year(該当日) & “/” & Month(該当日) & “/” & 1 ’①

End Function

翌月の初日を算出するユーザー定義関数

どんな日付からでも翌月の初日をすぐに算出できる関数があれば、日付の計算における複雑さは改善できると思われますので、今回私は翌月の初日を算出する関数を考えました。

作成の手順は色々パターンがありますが、今回私が考えた関数は下記の手順で翌月の初日を算出する仕様となっています。

①今月（任意の指定した日の当月）1日を算出する。（当月の初日を算出するユーザー定義関数から算出）

②①で算出した当月1日に31日を加算する。（翌月任意日）

③②の年月の初日（1日）を算出する（翌月初日）

Function 翌月初日(該当日 As Date) As Date

Dim 翌月任意日 As Date

翌月任意日 = 当月初日(該当日) + 31 ’②
翌月初日 = Year(翌月任意日) & “/” & Month(翌月任意日) & “/” & 1 ’③

End Function

前月の初日を算出するユーザー定義関数

翌月の初日を算出するユーザー定義関数と同様の方法ですが、当月の初日を算出し、そこから1を引いた値で前月を導き出しています。（④）

Function 前月初日(該当日 As Date) As Date

Dim 前月任意日 As Date

前月任意日 = 当月初日(該当日) – 1 ’④
前月初日 = Year(前月任意日) & “/” & Month(前月任意日) & “/” & 1 ’⑤

End Function

配列の要素を取り出す関数について

okumasahito — Wed, 18 Apr 2018 14:43:43 +0000

配列の要素を取り出す専用の関数がある
関数を使わず配列の要素を取り出すサンプルコード
UBound関数を使用した場合のサンプルコード
Join関数を使用した場合のサンプルコード

配列の要素を取り出す専用の関数がある

以前から配列の値を取り出すのに良い方法が思いつかなかったので、結構力技で実施していたのですが、配列を取り出すのに便利な関数があることを知ってショックを受けました。

今回は配列の要素を取り出す際に役立つJoin関数とUBound関数をご紹介します。

関数を使わず配列の要素を取り出すサンプルコード

これまで私が配列を取り出す際に使用していたコードは以下のようなものになります。

ExcelでA列のセルの値を配列に格納し、その配列の要素を取り出すサンプルコードです。
配列の要素数は可変を想定してコードを作成しています。

Sub 配列の要素取り出し()

Dim hairetsu()
Dim i As Long, k As Long
k = 0
i = 0
Do Until Cells(i + 1, 1) = “”
ReDim Preserve hairetsu(i)
hairetsu(i) = Cells(i + 1, 1)
k = k + 1
i = i + 1
Loop

Dim mojiretsu
mojiretsu = hairetsu(0)
For i = 1 To k – 1
mojiretsu = mojiretsu & “,” & hairetsu(i)
Next i
MsgBox mojiretsu

End Sub

要素数を調べるために変数kを宣言し、iと同じ数になるようにして呼び出す際に使用しています。

このコードはきちんと動作するのですが、以下2点の手間・問題点がありました。

①要素数で繰り返し処理をする際、変数kに最後に余分に追加された1を減らすのがややこしくて面倒

②変数を文字列にする際に間に入れる文字（今回は”,”）は要素数-1の数を繰り返して挿入するため、配列の1つめかもしくは最終だけは繰り返しの中で処理できない

これらの問題点はUBound関数やJoin関数を使えばきちんと解決できます。

UBound関数を使用した場合のサンプルコード

Ubound関数は配列の要素数を返す関数です。
（配列のインデックス番号を返すので厳密には要素数-1となります。）

この関数を知って、これまで私が要素数の確認のためにわざわざ宣言して使用していた変数kが必要ないことがわかりました。
Ubound関数を使用すると要素を文字列にするのが少し簡略化されます。

Sub 配列の要素取り出しUBound関数使用()

Dim hairetsu()
Dim i As Long
i = 0
Do Until Cells(i + 1, 1) = “”
ReDim Preserve hairetsu(i)
hairetsu(i) = Cells(i + 1, 1)
i = i + 1
Loop

Dim mojiretsu
mojiretsu = hairetsu(0)
For i = 1 To UBound(hairetsu)
mojiretsu = mojiretsu & “,” & hairetsu(i)
Next i
MsgBox mojiretsu

End Sub

Join関数を使用した場合のサンプルコード

Join関数は配列の要素を文字列の一覧として取り出す関数です。
Join(“配列名”,”区切りに使用する文字列”)の形式で要素を文字列に変換して並べることが可能です。

区切りの文字を”
”やVbCr、VbCrLfにすることで改行コードを間にはさむことも可能です。

細かい部分の融通は利きにくいかもしれませんが、簡単に間に文字列を挟み込むことができるので使用しやすいです。

Sub 配列の要素取り出しJoin関数使用()

Dim hairetsu()
Dim i As Long, k As Long
i = 0
Do Until Cells(i + 1, 1) = “”
ReDim Preserve hairetsu(i)
hairetsu(i) = Cells(i + 1, 1)
i = i + 1
Loop

Dim mojiretsu
mojiretsu = Join(hairetsu, “,”)
MsgBox mojiretsu

End Sub

VBAでのReplace関数の使い方について

okumasahito — Sun, 07 May 2017 14:12:31 +0000

内容を置き換えるPeplace関数
VBAでのReplace関数の使い方
私が作成したVBAコード
Excelのワークシート上で使用するREPLACE関数とは異なる

内容を置き換えるPeplace関数

あるセルと他のセルの内容を比較しようとしたときに、セルの内容が微妙に違うせいで比較できないことがあります。

私はこの前、二つの表に書いてある店舗一覧を住所の情報を用いてVlookup関数で一つの表になるように加工していたのですが、住所の書き方が微妙に違っていて、情報を抜き出すのに苦労しました。

住所のハイフンが色々使われていて、データが一致している情報が探せなかったのが原因です。
同じ住所でもデータを作成した人によって色々な書き方があります。

「○○市××8-1-1」

「○○市××8 – 1 – 1」

「○○市××8―1―1」

「○○市××8－1－1」

「○○市××8ー1ー1」

「○○市××8丁目1番地1」

空白が入っていたり、半角だったり、全角だったり、ひかれているハイフンがハイフンでなく横線だったりすると、それだけでVlookupでは探せなくなります。またハイフンではなく、「丁目」「番地」と記載されている場合もあります。

色々な形式で記載されている住所を、一括である決まった形式に置き換えるときに便利な関数がReplace関数です。

今回はVBAでのReplace関数の使い方について紹介します。

VBAでのReplace関数の使い方

VBAでのReplace関数の基本的な使い方は以下のようになります。

Replace(元の文字列, 検索する文字列, 置き換える文字列)

例としてA1セルの文字列のうち”―”を”-“に変更するには以下のように記載します。

Cells(1, 1) = Replace(Cells(1, 1), “―”, “-“)

私が作成したVBAコード

Replace関数をもとにして私が住所一覧表を修正するのに作ったVBAコードは以下のようになります。

Sub 住所修正()
Dim i As Long
i = 2
Do Until Cells(i, 1) = “”
Cells(i, 1) = Replace(Cells(i, 1), “―”, “-“) ’全角「―」を半角「-」に変換する
Cells(i, 1) = Replace(Cells(i, 1), “－”, “-“) ’全角のマイナス「－」を「-」に変換する
Cells(i, 1) = Replace(Cells(i, 1), “ー”, “-“) ’「ー」を「-」に変換する
Cells(i, 1) = Replace(Cells(i, 1), “丁目”, “-“) ’「丁目」を「-」に変換する
Cells(i, 1) = Replace(Cells(i, 1), “番地”, “-“) ’「番地」を「-」に変換する
Cells(i, 1) = Replace(Cells(i, 1), ” “, “”) ’半角の空白を削除する
Cells(i, 1) = Replace(Cells(i, 1), “　”, “”) ’全角の空白を削除する
i = i + 1
Loop
End Sub

これで同じ書式で表されるようになり住所の突合せでの確認ができるようになりました。
他に数字やアルファベットの半角、全角を変更する関数が必要な場合もあります。

Excelのワークシート上で使用するREPLACE関数とは異なる

Excelのワークシート上で使用するワークシート関数でもREPLACE関数はありますが、VBAで使用するReplace関数とは引数の設定が異なります。
Excelのワークシート関数の中のREPLACE関数は以下のように引数を設定します。

REPLACE(文字列, 開始位置, 文字数, 置換文字列)

VBAの関数とは異なり、開始位置と文字数を設定して置換する方法になります。よって今回のような文字数がばらばらの住所一覧からハイフンの形をそろえたりはできず、少し使い勝手が悪い気がします。

ユーザー定義関数を作成する

okumasahito — Sun, 30 Apr 2017 12:35:09 +0000

VBAの機能で関数を作成できる
ユーザー定義関数の作り方
1. ユーザー定義関数の使用方法

VBAの機能で関数を作成できる

VBAを使ってVBAの中や、Excelのシートの中で使える関数を作成することができます。

あらかじめ関数を作っておくと複雑な処理も簡単なコードで実行できるようになります。
今回はあらかじめ作っておくことで便利になるユーザー定義関数についてお伝えします。

ユーザー定義関数の作り方

ユーザー定義関数は標準モジュール内にFunctionプロシージャとして作成することで使用できるようになります。

FunctionとSubの違いは返り値があるかどうかの違いです。（詳細をわかっていなくても使用できるのでややこしければ気にせずに作成してみましょう。）
Functionプロシージャの形式はおおよそこのような形になります。

Function 関数名(a As Variant)
～
～
関数名 = ～～
End Function

まずFunction ～で関数名を決めます。
その後必要な処理を記入して、最後に使いたい関数がこういう結果を表すようにしてくださいと記載することで関数を使用できるようになります。

ユーザー定義関数の使用方法

私が今まであまりたくさんユーザー定義関数を考えたわけではありませんが、仕事の都合上、氏名か姓のどちらかが表示されているセルから姓だけを抽出したいことがあり、ユーザー定義関数を作ったことがあります。
（姓と名の間は半角の空白が入っているとします。）

その際は以下のVBAコードで関数を定めました。

Function myouji(a As Variant)
If InStr(a, ” “) <> 0 Then
myouji = Left(a, InStr(a, ” “) – 1)
Else
myouji = a
End If
End Function

VBAの条件分岐を関数に使用できるのが大きな特徴です。
空白があれば空白の前の文字を取り出し、空白がなければ全体を表示する関数です。

VBAのコードの中でも使用できますし、他のワークシート関数と同じようにシートの中でも使用できます。

以下の画像はA列に人の名前（氏名もしくは姓のみ）、B列には「=myouji(A～)」の関数を入力しています。
ユーザー定義関数をシートでも使用できるようにした例です。