「ExcelにCopilotやPythonが来たのって、結局いつだっけ？」と分からなくなったことはありませんか？

この記事は、Microsoft 365のExcelに加わってきた新機能を「いつリリースされたか」の時系列で整理する記事です
CopilotやPython・GROUPBY・正規表現・チェックボックスといった話題の機能がMicrosoft 365へいつ来たのかを1本の流れとして並べ直します

新機能はバラバラに登場した印象になりがちですが、古い順に並べると一本の流れが見えてきます
この記事を読み終えるころには、「あの機能はいつごろのものか」「自分のExcelで使える可能性があるか」がつかめるようになります

ジャベ雄

「いつ来たか」が分かると、機能の新しさの感覚がつかめますよ

それでは、まずリリース時期が一目で分かる一覧から見ていきます

Microsoft 365 新機能のリリース時期(一覧)

ここがこの記事の核です
主な新機能がMicrosoft 365でいつ一般提供(GA)になったかを、古い順に1枚の表へまとめました

上から下へ読むと、そのまま新機能が登場してきた順番になります
右の列が「その機能がMicrosoft 365へ来た時期」です

この表を上から眺めると、Excelの進化が大きく3つの時期に分かれているのが見えてきます
その流れをざっと言葉でも追っておきます

2020年ごろ 計算の土台が変わった

表のいちばん上が、動的配列(スピル)やXLOOKUP・FILTERといった関数群です
2020年初頭にMicrosoft 365へ入り、1つの数式が複数セルへ自動で広がるスピルなど、表計算の組み立て方そのものを変えた時期です

2022〜2023年 関数と画像が増えた

真ん中の時期が、TEXTSPLITやVSTACKなどの14個のテキスト/配列関数、それにLAMBDA・IMAGE関数・セル内画像です
2022年から2023年ごろにかけてMicrosoft 365へ順に加わりました

これらは2020年のスピルの上で動く関数たちで、関数で扱えるデータの幅がぐっと広がった時期と言えます

2024年以降 AIと新しい集計が加わった

表のいちばん下が、いま話題のGROUPBY・正規表現・チェックボックス・Python・Copilotです
2024年以降にMicrosoft 365へ来た、新しい集計やAI寄りの機能がここに並びます

このあたりは展開が現在進行形で、リリース時期もここ1〜2年に集中しています
記事の後半では、この最近の機能を1つずつ「いつ来たか」とあわせて見ていきます

ジャベ雄

「2020→2022〜23→2024以降」の3区切りで覚えると整理しやすいです

新機能を先取りできる更新チャネル

Microsoft 365には、新機能がどのくらい早く届くかを決める更新チャネルという仕組みがあります
同じMicrosoft 365でも、設定によって新機能の届くタイミングが変わります

2026年6月時点で、主要な更新チャネルは次の3本です

• 最新チャネル(Current Channel) 新機能をいちばん早く受け取る既定のチャネル
• 月次エンタープライズ チャネル(Monthly Enterprise Channel) 毎月決まったタイミングで更新が届く法人向け
• 半期エンタープライズ チャネル(Semi-Annual Enterprise Channel) 年2回にまとめて更新する安定重視の法人向け

さらに早く試したい人向けに、プレビュー系のチャネルもあります
代表がベータ チャネル(Beta Channel)で、以前はInsider(Insider Fast)と呼ばれていたものです
ほかに最新チャネル(プレビュー)もあり、どちらもMicrosoft 365 Insiderプログラム経由で早期アクセスできます

ベータチャネルに切り替えると、一般提供(GA)になる前の新機能を一足先に試せます
このあと紹介する新機能も、最初はベータチャネルから順に広がっていったものが多いです

自分がどのチャネルかは、このあとの「ファイル → アカウント」の画面で確認できます
製品情報の更新オプション欄に「最新チャネル」「月次エンタープライズ チャネル」などと表示されるので、こことバージョン番号をセットで見ておくと、新機能が来ているはずなのに出てこない原因の切り分けに役立ちます

Microsoft 365のExcelで使える注目の新機能

ここからが本題です
最近Microsoft 365へ加わった注目機能を、関心の高い順に見ていきます
各機能で「何ができるか」「いつ使えるようになったか」「使うための条件」を簡潔にまとめます

Copilot in Excel AIに言葉で頼んで操作する

いちばん注目度が高いのがCopilot in Excelです
AIアシスタントに自然な言葉で頼んで、Excel作業を手伝ってもらう機能です

できることは幅広く、数式の生成と説明・データへの質問でのインサイト抽出・ハイライトや並べ替えやフィルター・Webや保存ファイルからのデータ取り込みなどがあります
「この表で売上トップ3を教えて」のように話しかける感覚で操作できます

具体的な使いどころで言うと、関数をうろ覚えで詰まったときに「この条件で合計する数式を作って」と頼むと、候補の数式を提案してくれます
長い表で何が起きているか分からないときに「売上が落ちた月とその理由になりそうな列を教えて」と聞けば、傾向の当たりをつけてくれるので、分析の入口として頼りやすいです

ちょっとしたコツとして、頼む前に表の見出し行を整えておくと精度が上がります
1行目に分かりやすい列名(売上・日付・担当など)が入っていると、Copilotがどの列が何かを読み取りやすくなり、的外れな提案が減ります

個人向けにいつ広まったかというと、2025年1月にMicrosoft 365 PersonalとFamilyのサブスクに含まれるようになりました
Word・Excel・PowerPoint・Outlook・OneNoteで使えて、毎月のAIクレジット枠が付く形です

逆に言うと、Copilotが見当たらない場合は、自分のMicrosoft 365サブスクに含まれていない可能性があります
公式も「CopilotがWord・Excel・PowerPoint・OneNoteに表示されない場合は、サブスクに含まれていないかもしれない」と説明しています

Python in Excel セルの中でPythonが動く

Python in Excelは、Excelのセルの中にPythonのコードを書いて実行できる機能です
pandasやMatplotlibといったライブラリで、データ分析やグラフ描画ができます

計算はMicrosoftのクラウド上で実行される仕組みです
Excelの使い慣れた画面のまま、Pythonの分析力を借りられるのが面白いところです

使いどころとしては、関数だけだと組みにくい集計やグラフが向いています
たとえば散布図に回帰直線を引いたり、複数シートのデータをpandasでまとめて集計したりと、ふだんのExcel機能では手数のかかる処理を数行で書けるのが強みです

はじめの一手間としては、セルに=PY(と打ってPythonモードに切り替えるところから始めます
いきなり長いコードを書かず、まずはdf.describe()で表全体の要約統計を出すあたりが、Pythonの動きを確かめる練習にちょうどよいです

時期で見ると、2023年8月にプレビューが始まり、2025年に一般提供(GA)になりました
2025年ごろ(Web版が先・Windowsはその後)に一般提供されたとされ、公式の可用性ページも「プレビューは終了した」と明記しています

使うにはある程度新しいMicrosoft 365が必要で、最新チャネルならVersion 2408以降が目安です
ただし大事な注意点があります

GROUPBY / PIVOTBY 数式だけで集計表を作る

GROUPBYとPIVOTBYは、1つの数式で集計やクロス集計ができる新しい集計関数です
これまでピボットテーブルでやっていた集計を、数式だけで組めるのが利点です

Microsoft 365では2024年9月に最新チャネルで一般提供されました
データが更新されると集計結果も自動で追従するので、ピボットテーブルを毎回更新する手間が減ります

向いている場面は、定期的に行が増えていく一覧の集計です
売上明細に行を足していく台帳で、カテゴリごとの合計をいつも最新に保ちたいときなどに、GROUPBYを1つ置いておけば追加分まで自動で取り込んでくれます
ピボットテーブルのように右クリックして更新する操作が要らないのが、地味にありがたいところです

ひとつコツを挙げると、集計したいデータ範囲は少し広めに取っておくと安心です
あとから行が増えても拾えるように、A2:A100のように余裕を持った範囲を指定しておくと、追加のたびに数式を直さずに済みます

=GROUPBY(分類の列, 集計したい値, 集計方法)

例: =GROUPBY(A2:A100, B2:B100, SUM)
    A列のカテゴリごとに、B列の値を合計する

正規表現関数(REGEX) パターンで文字列を処理する

REGEXTEST / REGEXEXTRACT / REGEXREPLACEは、正規表現(パターンマッチ)で文字列を判定・抽出・置換する3つの新関数です
「正規表現」は、文字の並びをパターンで指定して柔軟に検索する書き方のことです

メールアドレスやコード番号のように決まった形のテキストを、ルールベースでまとめて処理できます
従来はLEFTやMID・FINDの合わせ技でやっていた複雑な文字列処理を、ぐっと短い数式で書けるようになります

身近な使いどころとしては、住所から郵便番号だけを取り出す・商品コードの形式が正しいか一括チェックする・表記ゆれのある電話番号からハイフンを抜くといった作業が当てはまります
これまで列を何個も足して途中計算していた処理が、1つの数式で片づくのがありがたいところです

使い始めの一手間として、まずREGEXTESTで「狙ったパターンに当たるか」を確かめてから、抽出や置換へ進むと安全です
いきなりREGEXREPLACEで置き換えると、想定外の箇所まで巻き込むことがあるので、テストで当たりを見てから本処理に移すと失敗を減らせます

Microsoft 365では2024年5月にInsider Betaへ登場し、2024年11月までに全プラットフォームへ広がりました
ここ1〜2年の新しい関数群で、文字列処理の幅をぐっと広げてくれます

正規表現そのものの書き方や3関数の具体的な使い方は、別記事のExcelのREGEX関数3つの使い方でまとめています
パターン処理に興味がある方は、あわせてどうぞ(こちらもMicrosoft 365で使う前提の内容です)

チェックボックス セルにチェック欄を置く

セル内チェックボックスは、セルにチェックボックスを置いて、ON/OFFをTRUE/FALSEと連動させられる機能です
挿入タブからチェックボックスを選ぶだけで、選んだ範囲にまとめて入れられます

ToDoリストや進捗管理の表で出番が多く、初心者にも分かりやすい機能です
クリックでチェックが入り、その結果を数式で集計するといった使い方ができます

たとえば持ち物チェックリストで、チェック欄の隣にCOUNTIFを置いて「TRUEの数」を数えれば、いくつ済んだかが自動で出ます
条件付き書式と組み合わせて、チェックが付いた行をグレーアウトさせると、やり残しが一目で分かる表になります

まとめて入れたいときは、チェックボックスを入れたいセルをあらかじめ範囲選択してから挿入すると、選んだ範囲にまとめて配置できます
1個ずつ置くより速いので、長いリストを作るときに覚えておくと楽です

Microsoft 365では2024年6月から7月ごろに展開されました
表のなかでも比較的早い時期に来た新機能で、すぐ実務に取り入れやすいタイプです

Focus Cell 大きな表で位置を見失わない

Focus Cell(フォーカスセル)は、選択中のセルの行と列をハイライトして、アクティブセルの枠を太く見せる機能です
大きな表で「いま自分はどのセルにいるんだっけ」と迷子になるのを防げます

表示タブからフォーカスセルをオンにすると切り替わります
横にも縦にも広い表を扱う人ほど、地味に効いてくる見た目系の機能です

出番が多いのは、列がずらりと並んだ大きな管理表で1行ずつ入力していく場面です
いま編集している行と列に色が付くので、隣の行の値を間違えて触る事故が減り、入力ミスの予防にもつながります

ハイライトの色が気になるときは、表示タブから色を変えられます
常時オンにすると見た目がうるさく感じることもあるので、大きい表を触るときだけオンにするといった使い分けがおすすめです

Microsoft 365では2024年10月にInsiderへ初登場し、その後の2024年後半から2025年ごろに一般提供されました
一般提供の正確な時期は情報源で差があるので幅を持たせていますが、いずれにせよここ最近の新しい機能です

ジャベ雄

6つとも、2024年以降にMicrosoft 365へ来た新しめの機能です

VBAの独学に効く本PR

Excel VBA塾【動画×本で学ぶ!】

たてばやし淳

Amazonで見る楽天で見る

パーフェクトExcel VBA

高橋宣成

Amazonで見る楽天で見る

Excel マクロ&VBA［実践ビジネス入門講座］完全版 第3版

国本温子

Amazonで見る楽天で見る

私のおすすめからランダムで3冊を表示しています

自分がMicrosoft 365を使っているか確認する方法

ここまで読んで「で、自分のExcelで使えるの？」と気になったはずです
結論から言うと、ファイル → アカウントを開けば、自分がMicrosoft 365を使っているかどうかを見分けられます

製品名に「Microsoft 365」とあれば、この記事で紹介したCopilotやPythonなどの新機能を使える可能性があります
年号入りの買い切り版なら、それらの最近の機能は対象外になりやすいので、バージョンとあわせて見ておくと判断しやすいです

まとめ Microsoft 365の新機能とリリース時期

Microsoft 365のExcel新機能を、リリース時期の流れで最後にざっと振り返ります

• 2020年ごろ 動的配列(スピル)・XLOOKUPなど、計算の土台が変わった
• 2022〜2023年 TEXTSPLIT・VSTACKなどの14関数とLAMBDA・IMAGE関数が加わった
• 2024年以降 チェックボックス・GROUPBY・正規表現・Focus Cell、そしてPython・Copilotが登場

こうして並べると、新機能はまずMicrosoft 365に来て、時期を追って増えてきたのが分かります
とくに2024年以降はAI寄りの機能が増え、Excelの進化が速くなっている時期です

なお、これらの新機能のうち一部は、その後に買い切り版(Excel 2021/2024)へ固定された形でも使えます
買い切り版2世代に入った新機能のほうは、シリーズの別記事で扱っています

買い切り版の世代ごとの新機能を確認したい方は、Excel 2021の新機能と新関数まとめとExcel 2024の新機能と新関数まとめもどうぞ
2021→2024→Microsoft 365の流れで読むと、Excelがどう進化してきたかが一望できます

ジャベ雄

CopilotやPythonまわりは動きが速いので、最新情報は時々この記事を更新していきます(2026年6月時点)

Microsoft 365の新機能でよくある質問

最後に、新機能まわりで迷いやすいポイントを質問形式で補足します

買い切り版でもこれらの新機能は使えますか？

一部は使えますが、すべては使えません
動的配列や2024相当の関数のように、あとから買い切り版(Excel 2021/2024)へ固定された機能はありますが、CopilotやPython in Excelはサブスク版のMicrosoft 365が前提で、買い切り版や無料版は対象外です

買い切り版2世代でどこまで使えるかは、シリーズの別記事(本記事末尾でリンク)で世代ごとに整理しています
「自分の版で何が使えるか」を知りたいときは、まず製品名とバージョンを確認するのが近道です

Copilotがリボンに出てこないときは？

まず自分のサブスクにCopilotが含まれているかを確認します
公式も「Word・Excel・PowerPoint・OneNoteにCopilotが表示されない場合は、サブスクに含まれていない可能性がある」と説明しているので、ここがいちばん多い原因です

含まれているはずなのに出ない場合は、Excelのバージョンが古い・更新チャネルが遅い・サインインしているアカウントが別物、といった点を順に見ていきます
「ファイル → アカウント」でバージョンとチャネルとサインイン中のアカウントをまとめて確認できるので、まずここを開くのがおすすめです

新機能が来るはずなのに見当たらないのはなぜ？

同じMicrosoft 365でも、更新チャネルによって新機能の届くタイミングが違うためです
半期エンタープライズ チャネルのように更新がまとまっているチャネルだと、最新チャネルより数か月遅れて機能が届くことがあります

急いで試したい個人なら、最新チャネルになっているかを確認し、それでも来ないならMicrosoft 365 Insiderのベータチャネルを検討する手もあります
ただしベータは不安定な面もあるので、業務用の環境では無理に先取りせず、正式提供を待つほうが安心です

VBAの独学に効く本PR

Excel VBA塾【動画×本で学ぶ!】

たてばやし淳

Amazonで見る楽天で見る

パーフェクトExcel VBA

高橋宣成

Amazonで見る楽天で見る

Excel マクロ&VBA［実践ビジネス入門講座］完全版 第3版

国本温子

Amazonで見る楽天で見る

私のおすすめからランダムで3冊を表示しています

「Excel 2024って、どんな新機能が増えたの？」と気になっている方に向けた記事です

結論から言うと、Excel 2024でいちばん増えたのは関数まわりです
文字列を区切って分けるTEXTSPLITや、複数の表を積み重ねるVSTACKといった、データの整形を数式だけで片づけられる新関数が買い切り版に入りました
ほかにもセルの中に画像を置けるIMAGE関数など、ちょっと毛色の違う機能も加わっています

ここで先に1つ前提を共有しておきます
買い切り版のExcel(2024など)は、その時点のMicrosoft 365の機能セットを切り出して固定したものです
新機能はまずサブスク版のMicrosoft 365に入り、後から買い切り版に取り込まれる流れになっています

なのでこの記事でも、各機能に「Microsoft 365でいつ頃使えるようになったか」を一言そえていきます
たとえば今回の新関数群は2022年ごろにMicrosoft 365へ入り、それが2024年10月の買い切り版Excel 2024に乗りました
この時系列で見ると分かりやすいです

ジャベ雄

「サブスクで先に使えた機能が、買い切りに後から来る」って覚えておくと混乱しないです

更新チャネルの細かい話はシリーズの別記事に譲って、ここでは「Microsoft 365が先、買い切りが後」という大枠だけ押さえてもらえれば十分です
Excel 2024そのものは2024年10月に買い切り版として登場しました

なお1つ前の世代であるExcel 2021で増えた関数(XLOOKUPや動的配列など)については、別記事のExcel 2021の新機能と新関数まとめで整理しています
この記事のTEXTSPLITやVSTACKは、その動的配列(スピル)の上で動く関数なので、スピルがピンと来ない方は先にそちらを読んでおくと理解が早いです

それでは、関心の高い関数から順に見ていきます

Excel 2024の注目の新関数(利用頻度の高い順)

ここがExcel 2024の目玉です
新たに加わった14個のテキスト/配列関数を中心に、よく使う順で見ていきます
どれも以前のバージョンには無く、Excel 2024で初めて買い切り版に入った関数です

これらの新関数は、どれも前の世代で入った動的配列(スピル)の仕組みの上で動きます
数式1つの結果が下や右のセルへ自動で広がる、あの挙動が前提です
スピルの感覚があやしい方は、先ほどの2021の記事をのぞいてからのほうがスッと入ってきます

TEXTSPLIT 区切り文字で文字列をバッと分ける

新関数のなかで真っ先に覚えたいのがTEXTSPLITです
指定した区切り文字で文字列を分割して、別々のセルへ展開してくれる関数です

以前は「区切り位置」機能やMID・FINDの合わせ技でやっていた分割作業を、数式1つで片づけられます
住所の分割・氏名の分割・カンマ区切りデータの取り込みなど、実務で出番の多い関数です

=TEXTSPLIT(対象文字列, 列の区切り文字, [行の区切り文字])

例: =TEXTSPLIT("山田,東京,営業", ",")
    カンマで区切って「山田」「東京」「営業」を横3セルに分ける

結果はスピルで横や下へ広がるので、元のセルを書き換えれば分割結果もその場で追従します
1つのセルに詰め込まれた値をきれいに列へバラしたいとき、いちばん手早い方法になります

セットで覚えたいのがTEXTBEFOREとTEXTAFTERです
名前のとおり、指定した区切り文字の前だけ・後ろだけを取り出します
「メールアドレスの@より前だけほしい」「ファイル名から拡張子だけ取りたい」といった片側だけの抽出は、TEXTSPLITよりこの2つが向いています

=TEXTBEFORE("taro@example.com", "@")   → taro
=TEXTAFTER("taro@example.com", "@")    → example.com

これらテキスト系の関数を含む14個の新関数は、Microsoft 365では2022年3月にプレビュー(Beta)で登場し、2022年後半(9月ごろ)に最新チャネルへ一般提供されたとされています
それが2024年10月の買い切り版Excel 2024に取り込まれた、という流れです
これらは以前のバージョンでは使えません、買い切り版で使うならExcel 2024以降が必要です

ジャベ雄

「区切り位置」を手作業でやってた人ほど、TEXTSPLITは効きますよ

VSTACK / HSTACK 複数の表を縦・横に積み重ねる

VSTACKとHSTACKは、複数の範囲を1つにまとめる関数です
VSTACKは縦(Vertical)に積み、HSTACKは横(Horizontal)に並べます

毎月のシートをコピペでつなぐ、支店別の表を1枚に集約する、といった「表の結合」を数式1つでできるのが利点です
いわゆるシート集約の需要にハマる関数です

=VSTACK(範囲1, 範囲2, ...)   縦に積み重ねて1つの表にする
=HSTACK(範囲1, 範囲2, ...)   横に並べて1つの表にする

例: =VSTACK(東京!A2:C50, 大阪!A2:C50)
    東京と大阪の表を縦につないで1枚にまとめる

元のシートを更新すれば結合結果も自動でついてくるので、毎月コピペで貼り直す手間が消えます
VSTACKで全支店を縦に積んでから、前の世代で入ったFILTERやUNIQUEと重ねがけすると、集約した1枚の表からさらに絞り込みや重複除去ができます

TAKE / DROP / CHOOSECOLS / CHOOSEROWS 範囲の一部だけ抜き出す

続いて、範囲の一部分だけを取り出す4つです
どれも「大きな表から必要な行・列だけ切り出す」用途で使います

• TAKE 範囲の先頭(または末尾)から指定した行数・列数を取り出す
  「上位5件だけ」のような切り出しに向く
• DROP 逆に、先頭(または末尾)の指定数を取り除いて残りを返す
  「見出し行を落として中身だけ」に便利
• CHOOSECOLS 指定した列番号の列だけを抜き出す
  「1列目と3列目だけほしい」を順番自由に並べ替えて取れる
• CHOOSEROWS 指定した行番号の行だけを抜き出す、CHOOSECOLSの行版

=TAKE(A1:D100, 5)        先頭5行を取り出す
=DROP(A1:D100, 1)        先頭1行(見出し)を落として残りを返す
=CHOOSECOLS(A1:D100, 1, 3)   1列目と3列目だけを抜き出す

VSTACKで結合した表からTAKEで上位だけ抜く、DROPで見出しを落としてからTEXTSPLITにかける、といった組み合わせができます
1つずつだと地味ですが、ほかの新関数とつなぐと整形作業がぐっとラクになる縁の下の存在です

IMAGE関数 URLからセルに画像を表示する

IMAGE関数は、画像のURLを指定して、その画像をセルの中に表示する関数です
従来は画像がセルの「上」に浮いて乗るだけでしたが、IMAGE関数で表示した画像はセルの中にきちんと収まります

=IMAGE(画像のURL, [代替テキスト], [サイズ指定])

例: =IMAGE("https://example.com/apple.png", "りんご")
    指定URLの画像をセルの中に表示する

セルの中に入るので、行の高さに合わせて表示され、並べ替えやフィルターをかけても画像が一緒に動いてくれます
商品カタログのサムネイル・国旗の一覧・QRコードなど、表に画像を絡めたいときに向いています

IMAGE関数のMicrosoft 365での提供は2023年ごろに一般展開されたとされ、それがExcel 2024に取り込まれています
このIMAGE関数と、次の見出しで触れる「画像をセルの中に置く」機能はセットで覚えると分かりやすいです

整形系の関数(TOROW / TOCOL / WRAPROWS / WRAPCOLS / EXPAND)

残りの整形系は、ややクセのある変形を担当する関数たちです
利用頻度は高くないものの、ハマる場面ではこれ一発で済みます

• TOROW / TOCOL 表全体を1行・1列に並べ直す、バラバラな範囲を縦一列にまとめたいときなどに
• WRAPROWS / WRAPCOLS 逆に、1行(1列)の長い並びを指定した数で折り返して表の形にする
• EXPAND 範囲を指定したサイズまで広げて、足りない部分を任意の値で埋める

このあたりは「いつ使うか分からない」枠かもしれません
ただTOCOLで散らばった値を縦一列にそろえてからUNIQUEにかける、といった下ごしらえで効くことがあるので、名前だけ頭の片隅に置いておくと、いざというとき思い出せます

LAMBDAとヘルパー関数 自分だけの関数を作る(中級者向け)

最後は中級者向けのLAMBDAです
よく使う数式に名前を付けて、自分だけの独自関数として呼び出せる仕組みです
こうした「自作関数」は長らくVBA(マクロ)の領分でしたが、LAMBDAなら数式の範囲でできてしまいます

=LAMBDA(税抜, 税抜 * 1.1)(1000)
    「税抜に1.1を掛ける」処理に引数を渡して呼び出す

名前の管理で「税込」という名前を付けておけば
=税込(1000) のように自分の関数として使えるようになる

あわせて、配列を1行・1列ずつ処理するヘルパー関数も使えます
代表がBYROW(行ごとに計算)で、ほかにMAP・REDUCE・SCAN・BYCOL・MAKEARRAYといった同じLAMBDAヘルパー群がそろっています

LAMBDAはExcel 2024の公式な新機能として名指しされていて、ヘルパー関数もBYROWを代表に同じく2024へ搭載されています
Microsoft 365では、ほかの新関数と近い2022年ごろに使えるようになったとされています

ジャベ雄

まずはTEXTSPLITとVSTACK、この2つだけでも試してみてください

セル内画像とIMAGE関数 画像を表の一部として扱う

関数の次に分かりやすい変化が、画像の扱いです
Excel 2024では画像をセルの中に置けるようになりました

長らくExcelに貼り付けた画像は、セルの上に浮いて乗っているだけでした
行を並べ替えても画像は元の位置に取り残されてズレる、というのが定番の困りごとでした

Excel 2024では、画像をセルそのものの中身として扱えます
セルに入った画像は、行の並べ替え・フィルター・サイズ変更にちゃんと追従して、表の一部として一緒に動きます

セルの中に画像を置く方法は、大きく2通りあります

• 手元の画像をコピーして、セルに「セルに配置」で貼り付ける(ローカルの画像を入れたいとき)
• 先ほどのIMAGE関数でURLから読み込む(Web上の画像を数式で入れたいとき)

商品一覧にサムネイルを並べる・名簿に顔写真を添える、といった場面で「画像が表とズレない」のは思いのほか快適です
このセル内画像のMicrosoft 365での展開は2022年から2023年ごろで、それがExcel 2024に乗っています

ジャベ雄

並べ替えで画像だけ置き去りになる、あの地味なストレスから解放されますよ

VBAの独学に効く本PR

Excel VBA塾【動画×本で学ぶ!】

たてばやし淳

Amazonで見る楽天で見る

パーフェクトExcel VBA

高橋宣成

Amazonで見る楽天で見る

Excel マクロ&VBA［実践ビジネス入門講座］完全版 第3版

国本温子

Amazonで見る楽天で見る

私のおすすめからランダムで3冊を表示しています

その他の改善 動的配列グラフや性能、見た目もよくなった

派手さは無いものの、使っていると地味に効いてくる改善もまとめておきます

動的配列を参照するグラフ 件数が変わってもグラフが追従

Excel 2024では、動的配列をグラフが参照できるようになりました
FILTERなどで件数が増減するデータをグラフ化すると、配列が再計算されたときにグラフのデータ点も自動で増減してくれます

1つ注意したいのは、動的配列(スピル)そのものは前の世代で入った機能だという点です
Excel 2024で新しくなったのは、動的配列を「グラフが参照」できるようになったところです
動的配列そのものを2024の新機能と勘違いしないよう、ここだけ切り分けておきます

パフォーマンスと安定性の向上

計算の速度と安定性も改善されています
公式が挙げているのは、独立した計算を持つ複数のブックを同時に開いたときの遅延やハングが軽くなった、という点です

大きなファイルを何枚も並べて作業する人ほど効いてくる部分です
具体的に何倍速くなったといった数字は公式に出ていないので、ここでは「重さが減った」とだけ押さえておきます

既定フォントがAptosに(Office 2024全体の変更)

見た目の変化として、既定フォントがCalibriからAptosに変わりました
17年ほど続いたCalibriを置き換える形です

セキュリティ・互換まわりの改善

地味ですが、安全面とファイル互換も手が入っています

• XLLアドインの既定ブロック インターネット由来のXLLアドインを既定でブロックして、マルウェア配布の手口から守ります
  意識しないところで守られている枠です
• OpenDocument形式(ODF)1.4対応 LibreOfficeなど他のソフトとファイルをやり取りする人向けの互換改善です
• アクセシビリティの強化 読みやすい文書を作るための道具がまとまっています
  ただし前の世代から続く強化なので、2024で初めて加わったわけではありません

ジャベ雄

このへんは「ついでに良くなった」枠、意識しなくても恩恵を受けています

Excel 2024に入らなかった「Microsoft 365限定」の機能

ここは「2024で使えると思われがちだけど、実は買い切り版には来ていない」機能です
誤解しやすいので整理しておきます

冒頭でも触れたとおり、買い切り版は「ある時点のMicrosoft 365を切り出して固定したもの」です
つまり買い切り版が出たあとにMicrosoft 365へ来た新機能は、その買い切り版には入りません
次に挙げる機能は、Excel 2024には降りておらず、サブスク版のMicrosoft 365でしか使えない位置づけです

• GROUPBY / PIVOTBY 数式だけで集計表を作れる新しい集計関数、Microsoft 365では2024年9月ごろに一般提供されました
• 正規表現の関数(REGEXTEST / REGEXEXTRACT / REGEXREPLACE) 文字列を柔軟なパターンで判定・抽出・置換する関数です
• Focus Cell(フォーカスセル) 選択中のセルの行と列をハイライトして、大きな表で位置を見失わない機能です
• Copilot AIに自然な言葉で頼んで、数式作成や分析を助けてもらう機能です
• Python in Excel Excelの中でPythonのコードを実行する機能です、公式が永続ライセンス版は非対応と明記しています

このうちGROUPBYとPIVOTBYは、Microsoft 365での一般提供がExcel 2024の登場とほぼ同じ時期でした
ただ買い切り版は少し前までの機能セットで固定されているため、タイミング的に間に合わず、買い切り版には来ていないと見られています

正規表現の関数(REGEX系)も、現時点ではMicrosoft 365限定です
文字列のパターン処理に興味がある方は、別記事のExcelのREGEX関数3つの使い方で挙動をまとめているので、あわせてどうぞ
こちらはMicrosoft 365で使う前提の内容です

これらMicrosoft 365限定の機能と、買い切り版がどの世代で何を取り込んできたかの全体像は、このシリーズの次の記事でまとめて整理する予定です(近日公開)
「結局どこからどこまでが使えるのか」を一望したい方は、そちらを待ってもらえればと思います

ジャベ雄

「Excel 2024でCopilot使える?」とよく聞かれますが、あれはサブスク側だけなんですよ

まとめ Excel 2024は文字列・配列の関数が主役

Excel 2024で増えた新機能を、もう一度ざっくり振り返ります

• いちばんの目玉は14個のテキスト/配列関数(TEXTSPLIT・VSTACK・TAKEなど)とLAMBDA、データの整形が数式だけで片づく
• IMAGE関数とセル内画像で、画像を表の一部として並べ替え・フィルターできるようになった
• 動的配列を参照するグラフ・性能向上・既定フォントAptos(Office全体)などの地味な改善も入った
• GROUPBY・正規表現・Copilot・Python in ExcelはMicrosoft 365限定で、買い切りのExcel 2024には入っていない

まず触ってみてほしいのは、やはりTEXTSPLITとVSTACKまわりです
1つのセルに詰まった値をバラす・複数の表を1枚にまとめる、という日常作業が数式だけで完結するので、コピペや手作業がぐっと減ります

1つ前の世代であるExcel 2021の新機能(XLOOKUPや動的配列など)を先に押さえたい方は、Excel 2021の新機能と新関数まとめもどうぞ
この記事の新関数は、その2021で入った動的配列の上で動くものなので、合わせて読むと2021から2024への流れがつながります

このシリーズでは、続けて「Microsoft 365限定の機能+買い切り版の全体タイムライン」も近日公開予定です
買い切り版のどの世代で何が使えるのか、全体像をつかみたい方は合わせて読んでもらえればと思います

VBAの独学に効く本PR

Excel VBA塾【動画×本で学ぶ!】

たてばやし淳

Amazonで見る楽天で見る

パーフェクトExcel VBA

高橋宣成

Amazonで見る楽天で見る

Excel マクロ&VBA［実践ビジネス入門講座］完全版 第3版

国本温子

Amazonで見る楽天で見る

私のおすすめからランダムで3冊を表示しています

「Excel 2021って、どんな新機能が増えたの？」と気になっている方に向けた記事です

結論から言うと、Excel 2021でいちばん大きく変わったのは関数まわりです
XLOOKUPや動的配列(スピル)といった、表計算の組み立て方そのものが変わる機能が買い切り版に入りました
ほかにも共同編集や自動保存など、複数人で作業するための仕組みも増えています

ここで先に1つだけ前提を共有しておきます
買い切り版のExcel(2021など)は、その時点のMicrosoft 365の機能セットを切り出して固定したものです
新機能はまずサブスク版のMicrosoft 365に入り、後から買い切り版に取り込まれる流れになっています

なのでこの記事では、各機能に「Microsoft 365でいつ頃使えるようになったか」を一言そえていきます、たとえばXLOOKUPは2020年2月にMicrosoft 365で一般提供が始まり、それが2021年10月の買い切り版に乗った、という時系列で見ると分かりやすいです

ジャベ雄

「サブスクで先に使えた機能が、買い切りに後から来る」って覚えておくと混乱しないですよ

更新チャネルの細かい話(最新チャネルとか半期チャネルとか)はシリーズの別記事に譲って、ここでは「Microsoft 365が先、買い切りが後」という大枠だけ押さえてもらえれば十分です、Excel 2021そのものは2021年10月に買い切り版として登場しました

それでは、関心の高い関数から順に見ていきます

スピル(動的配列)とは Excel 2021で変わった計算の土台

新関数の話に入る前に、その土台になるスピル(動的配列)を先に説明させてください、ここを理解しておくと、このあとの新関数の挙動がスッと入ってきます

スピル(spill)は「こぼれる」という意味です、1つのセルに入れた数式の結果が、そのセルだけでなく下や右の複数セルへ自動的に広がる(こぼれる)仕組みを指します

これまでのExcelだと、複数の結果を返したい場合はセルを1つずつ数式で埋めるか、配列数式を Ctrl + Shift + Enter で確定する、ちょっと面倒な操作が必要でした
Excel 2021ではこの計算エンジンの挙動が変わって、数式を1つ書くだけで結果がまわりのセルへ自動で展開されます

たとえば商品リストに「単価×数量」の小計を入れるとき、これまでは先頭セルに数式を書いてから下までコピーする手順が要りました
スピルが効くExcel 2021なら、先頭で範囲どうしの掛け算を1回書くだけで、行数ぶんの小計がまとめてこぼれてくれます
行が増えても数式の貼り直しがいらないので、データが日々増える表ほど効いてきます

たとえば =A1:A5*2 と1セルに入れるだけで、A1からA5までを2倍した5つの結果が、入力したセルを起点に縦5マスへこぼれていきます、結果が広がった範囲は薄い枠で囲まれて表示されるので、どこまでが1つの数式の結果か一目で分かります

=A1:A5*2     一つの数式でA1〜A5を2倍した結果が下へこぼれる
=A1#         スピルで広がった範囲全体を「#」で参照できる

覚えておくと便利なのが、上の例の =A1# のようなスピル範囲演算子(#)です、スピルで広がった範囲全体を「A1#」のように後ろに#を付けて参照できるので、結果が何行になるか分からない場面でも数式を組みやすくなります

Microsoft 365での提供時期でいうと、動的配列は2020年初頭(最新チャネルでは2020年1月)に展開されました、それが2021年10月の買い切り版Excel 2021に取り込まれた、という流れです

逆に言うと、2021より前の買い切り版にはスピルがありません、同じ数式を打っても1セル分の結果しか返らない(あるいは#SPILL!のような形にならない古い挙動になる)ので、以前のバージョンからExcel 2021に乗り換えていちばん体感が変わるのがこのあたりです

ジャベ雄

新関数の土台がスピルなので、まずはここだけ押さえてみてください

Excel 2021の注目の新関数(利用頻度の高い順)

ここがExcel 2021の目玉です、よく使う順にXLOOKUP・FILTER・UNIQUE・SORT・SEQUENCE・LETの6つを見ていきます、どれも以前のバージョンには無く、Excel 2021で初めて買い切り版に入った関数です

XLOOKUP VLOOKUPの後継として一番使う関数

新関数のなかで真っ先に覚えたいのがXLOOKUPです、長年おなじみのVLOOKUP・HLOOKUPの後継にあたる検索関数で、表から目的の値を引っぱってくる用途で使います

VLOOKUPで地味に困っていた点が、XLOOKUPではかなり解消されています、おもな違いは次のとおりです

• 探す列と返す列を別々に指定できる、VLOOKUPのように「左から何列目」と数えなくてよい
• 既定が完全一致なので、うっかり近似一致で誤った値を拾う事故が減る
• 検索値が見つからないときの代わりの値(見つかりませんでした等)を引数で指定できる
• 左方向への検索や、複数列をまとめて返す配列指定もできる

=XLOOKUP(検索値, 検索範囲, 戻り範囲, [見つからない時の値])

例: =XLOOKUP("りんご", A2:A100, C2:C100, "該当なし")
    A列から「りんご」を探して、同じ行のC列の値を返す
    見つからなければ「該当なし」を表示する

VLOOKUPだと「列番号を後から数え直す」「列を挿入したら番号がズレる」といった面倒がつきものでした
XLOOKUPは範囲そのものを指定するので、列の増減に強いのが実務でうれしいところです

実際にVLOOKUPからの書き換えで何が変わるか、同じ「商品コードから単価を引く」処理を並べてみます
VLOOKUPは表の左から数えた列番号(下の例なら3列目)を手で指定するので、間に列が増えると番号がズレて壊れます

VLOOKUP: =VLOOKUP(D2, A2:C100, 3, FALSE)
         A〜C列の左端から3列目を「3」と数えて指定する

XLOOKUP: =XLOOKUP(D2, A2:A100, C2:C100)
         探す列(A列)と返す列(C列)を別々に指定するだけ

XLOOKUPは「探す列」と「返す列」を直接指定するので、列番号を数える作業そのものが消えます
列を1本足しても範囲を選び直すだけで済むので、テンプレートを長く使い回す表ほど壊れにくくなるのが利点です

実務だと、商品マスタから単価を引く・社員番号から所属を引く・コードから名称に変換する、といった突き合わせ作業のほとんどがXLOOKUPで片づきます
見つからないときの表示も引数で指定できるので、空欄やエラー値のまま放置しにくいのも地味に助かるところです

Microsoft 365での一般提供は2020年2月10日に告知され、その後春までに最新チャネルへ広がりました
これが買い切り版のExcel 2021に取り込まれています
なおXLOOKUPは以前のバージョンでは使えませんでした
買い切り版で使いたいならExcel 2021以降が必要です

ジャベ雄

VLOOKUPの列番号ズレに泣いた人ほど、XLOOKUPのありがたみが分かるはずです

FILTER 条件に合う行だけ自動で抜き出す

FILTERは、表から条件に合う行だけを抜き出してくれる関数です、これまでオートフィルターやピボットテーブルでやっていた絞り込みを、数式1つで実現できます

=FILTER(対象範囲, 条件, [一致しない時の値])

例: =FILTER(A2:C100, B2:B100="東京", "なし")
    B列が「東京」の行だけをA〜C列ごと抜き出す

抜き出した結果はスピルで下へ広がるので、元データを更新すると絞り込み結果も自動で追従します
手動でフィルターをかけ直す手間がなくなるのが大きい利点です

たとえば1枚の売上台帳から「東京分だけの一覧」「未入金だけの一覧」を別シートに出しておきたい場面で効きます
台帳に行を追加すれば各シートの抜き出し結果もその場で自動更新されるので、毎月フィルターを掛け直して貼り付ける作業から解放されます
条件を複数組み合わせたいときは、条件部分を掛け算でつなげば「東京かつ未入金」のような絞り込みもできます

FILTERを含む6つの動的配列関数(FILTER・SORT・SORTBY・UNIQUE・SEQUENCE・RANDARRAY)は、スピルの基盤と同じく2020年初頭(最新チャネルでは2020年1月)にMicrosoft 365へ提供され、Excel 2021に取り込まれました

UNIQUE 重複を除いた一覧をサッと作る

UNIQUEは、範囲から重複を取り除いて、ユニークな値の一覧を返す関数です、「重複の削除」機能を使わなくても、数式で重複なしのリストを作れます

=UNIQUE(A2:A100)
    A列の中から重複を除いた値の一覧を返す

たとえば顧客名や商品名の重複なしリストを作りたいとき、UNIQUEなら元データが増えても自動で一覧が更新されます
FILTERと組み合わせると「特定条件の重複なし一覧」も作れるので、地味ながら出番の多い関数です

集計の下ごしらえで重宝するのもこの関数です
たとえばSUMIFやCOUNTIFで集計したいとき、まずUNIQUEで「集計の見出しになる項目(店舗名や月など)」の一覧を作っておくと、その横に集計式を並べるだけで表が組めます
項目が増えても見出し側が自動で伸びるので、作り直しの少ない集計表になります

SORT 並べ替えを数式で固定する

SORTは、範囲を並べ替えた結果を返す関数です、リボンの並べ替え機能と違って、元データを直接いじらずに「並べ替えた状態のコピー」を別の場所へ出せます

=SORT(A2:B100, 2, -1)
    A〜B列を、2列目を基準に降順(-1)で並べ替えて返す

元データを更新すれば並べ替え結果も自動で付いてくるので、ランキング表のように「常に上位順で見せたい」場面に向いています
似た関数にSORTBY(別の列を基準に並べ替える)もあります

元の台帳は入力した順のまま触らず、見せる用のシートだけ売上の高い順に並べたい、というときに向いています
FILTERで絞り込んだ結果をさらにSORTで並べ替える、といった重ねがけもできるので、「東京分を売上の多い順に」のような表示用の表をワンセットで作れます

SEQUENCE 連番や日付の並びを一発で作る

SEQUENCEは、連続した数値の並びを作る関数です、1から10までの連番や、等間隔の数列をスピルで一気に生成できます

=SEQUENCE(10)        1〜10の連番を縦に作る
=SEQUENCE(5, 1, 100, 10)  100から10ずつ増える5個の数列

連番をオートフィルでドラッグして作る手間が省けるほか、ほかの関数と組み合わせて「指定日数ぶんの日付一覧」を作るような使い方もできます
利用頻度はXLOOKUPやFILTERほどではないものの、覚えておくと便利な関数です

たとえば月初の日付に SEQUENCE を足し合わせると、その月のカレンダーや日報のひな型を一発で並べられます
行数を変えたいときも数式の数字を直すだけなので、ドラッグでコピーしてマス目がズレる事故が起きにくいのが利点です

LET 長い数式に名前を付けて読みやすくする

最後は中級者向けのLETです、数式の途中で使う計算結果に名前を付けて、その名前を式の中で何度も使い回せる関数です

=LET(税抜, A1*B1, 税抜 + 税抜*0.1)
    A1*B1の結果を「税抜」と名付け、その値を再利用する

同じ計算を何度も書かずに済むので、長くなりがちな数式が読みやすくなり、再計算の負荷も減らせます
初心者のうちは優先度低めですが、複雑な数式を組むようになると効いてくる関数です

同じ中間結果を1つの数式の中で何度も参照する場面、たとえば割引後の金額をベースに税額も合計も出すような式で効きます
名前を付けておけば後から式を読み返したときに「この計算は何だっけ」となりにくいので、自分以外の人が触る表を作るときにも向いています

LETのMicrosoft 365での一般提供は2020年後半(11月ごろ、最新チャネル)とされています、これも2021年10月の買い切り版に取り込まれました

なお、ここで挙げた以外にXMATCH(MATCHの強化版、配列の中で位置を返す)もExcel 2021で新たに使えます、XLOOKUPと同じ時期にMicrosoft 365へ入った検索系の関数で、MATCHを使い込んでいる方なら出番があります

ジャベ雄

まずはXLOOKUPとFILTER、この2つだけでも作業がだいぶ変わりますよ

共同編集まわり 複数人で同時に作業する仕組み

関数の次に大きい変化が、複数人での作業を支える機能です、Excel 2021では共同編集・自動保存・シートビュー・刷新されたコメントが使えるようになりました

共同編集 同じブックを複数人で同時に開ける

共同編集(co-authoring)は、同じExcelブックを複数人で同時に開いて編集できる機能です、誰かがセルを書き換えると、その変更が数秒で他の人の画面にも反映されます、誰がどこを触っているかも色付きのカーソルで分かります

「ファイルを共有フォルダに置いて、開いている人がいたら閉じるまで待つ」というやり取りが減るのが利点です
Microsoft 365のデスクトップ版では2017年ごろに導入され、Excel 2021でも買い切り版として使えるようになりました

使い始めの一歩はシンプルで、まず編集したいブックをローカルではなくOneDriveに保存します
あとは画面右上の「共有」ボタンから相手のメールアドレスを入れてリンクを送れば、相手がそのリンクを開いた時点で同時編集が始まります
SharePointのチームサイトに置いたファイルでも同じ流れで共有でき、社内のメンバーとならこちらの方が配りやすいことも多いです

自動保存 数秒ごとに勝手に保存される

自動保存(AutoSave)は、OneDriveやSharePoint上のファイルを数秒ごとに自動で保存してくれる機能です、画面左上のトグルがオンになっていると、こまめに保存し続けてくれます

「保存し忘れて作業が飛んだ」という事故が減る半面、上書きされたくないファイルはオフにする判断もいります
クラウド保存が前提の機能なので、ローカル保存のファイルでは従来どおり手動保存(Ctrl + S)になります

シートビュー 自分用の表示を他人に影響させない

シートビュー(Sheet Views)は、自分専用の並べ替えやフィルターの表示を作れる機能です、共同編集で同じシートを見ているとき、誰かがフィルターをかけると全員の表示が変わってしまう、という困りごとを避けられます

自分はAさん分だけ絞り込んで見たい、でも他の人の表示は崩したくない、そんな場面で役立ちます、これもクラウド保存・共同編集とセットで効いてくる機能です

刷新されたコメントと@メンション

Excel 2021では、コメント機能が刷新されました、返信を重ねてスレッドのように会話できる近代的コメント(Modern comments)になり、@メンションで特定の相手を呼ぶと通知が飛ぶようになっています

コメントをスレッド状にする発想自体は以前のExcelにもありましたが、@メンション通知込みで刷新されたコメントが2021前半にMicrosoft 365へ展開され、それがExcel 2021に乗っています
あわせて「メモ」と「コメント」が別物として扱われるようになっていて、ちょっとした覚え書きはメモ、相手とのやり取りはコメント、と使い分ける形です

ジャベ雄

このへんはOneDrive保存が条件、ローカル中心の人はスルーで大丈夫ですよ

VBAの独学に効く本PR

Excel VBA塾【動画×本で学ぶ!】

たてばやし淳

Amazonで見る楽天で見る

パーフェクトExcel VBA

高橋宣成

Amazonで見る楽天で見る

Excel マクロ&VBA［実践ビジネス入門講座］完全版 第3版

国本温子

Amazonで見る楽天で見る

私のおすすめからランダムで3冊を表示しています

データ型・グラフはどう変わった？ 誤解しやすい点を整理

ここは「2021の新機能だと思われがちだけど実はそうでもない」ところなので、誤解を解く意味で整理しておきます

まずグラフについて、じょうごグラフやマップ(塗り分け)グラフは、2021より前のバージョンで既に搭載済みです、新しいグラフ=2021、というイメージを持っている方もいますが、これらは以前から使える機能なので、2021で初めて加わったわけではありません

同じく、文字列を結合するCONCATやTEXTJOIN、条件分岐のIFSやSWITCH、集計のMAXIFS・MINIFSといった関数も、すべてもっと前のバージョンで追加済みです、2021の動的配列系の新関数(XLOOKUPやFILTERなど)と混ざりやすいので、ここで切り分けておきます

もう1つ、よく話題にあがるリンクされたデータ型(株価・地理)についてです、セルに会社名や地名を入れて、関連データを引っぱってこられる機能ですね

これは以前のバージョンから使えるようになった機能で、Excel 2021固有の目玉ではありません
どの版から正式に使えるかは情報源によって書き方が分かれていて、線引きがはっきりしないところがあります
なので「2021の新機能」として強く打ち出すのは避けて、参考程度に押さえておくのがよさそうです

ジャベ雄

新グラフやCONCATを「2021の新機能」と紹介してる記事もあるけど、あれは以前から使える機能ですよ

その他の改善 パフォーマンスや見た目もよくなった

派手さは無いものの、使っていると地味に効いてくる改善もまとめておきます

• パフォーマンス改善 SUMIF・COUNTIF・AVERAGEIFといったよく使う関数の計算が速くなっています、特に意識しなくても恩恵を受けられる部分です
• アクセシビリティ リボン 読み上げ対応など、誰でも読みやすい文書を作るための道具が1か所にまとまりました(Office 2021全体の改善です)
• 見た目の刷新 ダークモードや、Office 2021全体の視覚的なリフレッシュ(配色やアイコンの整理)も入っています

パフォーマンス改善はExcel 2021の新機能として案内されているもので、具体的に何倍速くなったといった数字は公式に出ていないので、ここでは「速くなった」とだけ押さえておきます、アクセシビリティや見た目はExcel単独というよりOffice 2021全体の話なので、ついでに良くなった枠として捉えるのがちょうどいいです

まとめ Excel 2021は関数の進化が主役

Excel 2021で増えた新機能を、もう一度ざっくり振り返ります

• いちばんの目玉は動的配列(スピル)とXLOOKUP・FILTERなどの新関数、表計算の組み立て方が変わる
• 共同編集・自動保存・シートビュー・刷新コメントで複数人作業がしやすくなった(OneDrive保存が前提)
• じょうごグラフ・CONCAT系は以前のバージョンで既存、2021の新機能ではない点に注意
• 新機能はまずMicrosoft 365に入り、後から買い切り版(2021は2021年10月)へ取り込まれる

まず触ってみてほしいのは、やはりXLOOKUPと動的配列まわりです、VLOOKUPの面倒だった部分が解消され、絞り込みや並べ替えも数式だけで完結するようになるので、日々の作業がかなりラクになります

このシリーズでは、続けて「Excel 2024で2021から何が変わったか」と「Microsoft 365限定の機能+全体の変遷タイムライン」も近日公開予定です、買い切り版のどの世代で何が使えるのか、全体像をつかみたい方は合わせて読んでもらえればと思います

VBAの独学に効く本PR

Excel VBA塾【動画×本で学ぶ!】

たてばやし淳

Amazonで見る楽天で見る

パーフェクトExcel VBA

高橋宣成

Amazonで見る楽天で見る

Excel マクロ&VBA［実践ビジネス入門講座］完全版 第3版

国本温子

Amazonで見る楽天で見る

私のおすすめからランダムで3冊を表示しています

SeleniumVBAを入れてみたものの、「で、実際にやりたい操作はどう書くの？」というところで止まっていませんか？

導入と基本の流れは前の記事「Excelでもブラウザ操作！SeleniumVBAの使い方」で書いたので、この記事は実際に書くコードに集中した実践編です、導入はそちらで済んでいる前提で進めます

クリックや入力、待機、要素の存在チェック、プルダウン、複数要素のループ、スクショ、JavaScript実行…と、ブラウザ自動化で「結局これ毎回書くよね」というコードをまとめました、私が普段よく使う書き方をベースにしているので、コピペして手を入れながら使ってもらえればと思います

最初に一番だいじな「要素の探し方」から見ていきます、ここを By.CssSelector に寄せておくと、あとがぐっとラクになります

要素の探し方は By.CssSelector に寄せる

SeleniumVBAで要素を探すときは FindElement(By.X, “値”) という形で書きます、この By には id・class・name・タグ名・CSSセレクタ・XPath…と何種類か指定できるんですが、初心者のうちは全部覚えようとしなくて大丈夫です

個人的なおすすめは、基本は By.CssSelector ひとつに寄せるやり方です、CSSセレクタはWeb制作でも使う書き方で、id・class・属性・子孫…とだいたいの探し方をこれ1本でカバーできます、覚えることが減るぶん、つまずきにくくなります

「探したいもの」と「CSSセレクタの書き方」を対応表にするとこんな感じです

そして、これらをスペース(子孫)や「>」(直下の子)でつなげられるのがCSSセレクタの強みです、階層をたどって狙った要素をピンポイントに指定できるので、似た要素がたくさんあるページほどここが効いてきます

属性での絞り込み([id^=]など)や :not・:nth-child といったCSSセレクタ自体の書き方は、別記事「CSSセレクタの書き方 自動化で要素を狙う指定方法」に詳しくまとめたので、狙った要素がうまく取れないときはこちらもどうぞ

たとえば id が “search” の検索ボックスを探すなら、こう書けます、By.Name や By.ID を使い分けなくても、CSSセレクタの書き方を変えるだけで済むのがラクなところです

' id が search の要素を探す
Dim el As WebElement
Set el = driver.FindElement(By.CssSelector, "#search")

' name 属性が q の要素を探す(Googleの検索ボックスなど)
Set el = driver.FindElement(By.CssSelector, "[name='q']")

ちなみに FindElementByCssSelector(“#search”) のように、Byを書かずに呼べるショートカットのメソッドも用意されています、どちらでも結果は同じなので、書きやすい方で大丈夫です

CSSで足りないとき … テキスト検索はループ、親だけXPath

正直に書いておくと、CSSセレクタは「要素の中の文字で探す」のと「子から親へさかのぼる」のが苦手です、SeleniumVBAには By.LinkText や By.XPath もあるので手っ取り早くはそれを使えばいいんですが、By.CssSelectorに寄せ切りたいなら、テキスト検索は独自functionで再現できます

考え方はシンプルで、CSSで候補を集めて、VBAでループしながらtext一致を探すだけです、まずはリンクを表示文字で探す関数、全aタグを集めてループするので、これで By.LinkText の代わりになります

' リンクを表示文字で探す(全aタグをループしてtext一致・LinkTextの代わり)
Public Function FindLinkByText(driver As WebDriver, ByVal keyword As String) As WebElement
    Dim els As WebElements, el As WebElement
    Set els = driver.FindElements(By.CssSelector, "a")
    For Each el In els
        If InStr(el.GetText, keyword) > 0 Then
            Set FindLinkByText = el
            Exit Function
        End If
    Next el
    Set FindLinkByText = Nothing   ' 見つからなければ Nothing
End Function

同じ考え方を、リンク以外の要素にも広げたのがこちらです、探す範囲のCSSセレクタとキーワードを渡すと、その中からtext一致の要素を返します、「送信」という文字のボタンのような、By.XPath でやりがちなテキスト検索を、CSSとループだけで書けます

' 指定CSSの要素をループして表示文字で探す(XPathを使わずtext一致)
Public Function FindByText(driver As WebDriver, ByVal cssSel As String, _
                           ByVal keyword As String) As WebElement
    Dim els As WebElements, el As WebElement
    Set els = driver.FindElements(By.CssSelector, cssSel)
    For Each el In els
        If InStr(el.GetText, keyword) > 0 Then
            Set FindByText = el
            Exit Function
        End If
    Next el
    Set FindByText = Nothing
End Function

' 使い方(button の中からテキスト「送信」を探す)
' FindByText(driver, "button", "送信").Click

これで、リンク文字もテキスト一致も By.CssSelector ＋ループで書けるので、覚える By を増やさずに済みます

そして、CSSでもループでも唯一どうにもならないのが、子から親へさかのぼる逆引きです、CSSは子孫しか選べないので、ここだけは By.XPath の “..”(親を表す書き方)を使います

' 見つけた要素から親をたどる(CSSでは無理・XPathの ".." を使う)
Dim child As WebElement, parent As WebElement
Set child = driver.FindElement(By.CssSelector, "#price")

' その要素を起点に ".." で親要素を取る
Set parent = child.FindElement(By.XPath, "..")

よく使う操作コード集

ここからは、見つけた要素に対して「何をするか」のコードをまとめていきます、どれも前の記事の基本コード(StartChrome → OpenBrowser → NavigateTo でページを開いたあと)の流れの中で使う想定です

クリックする・文字を入力する

クリックは Click、文字入力は SendKeys です、入力欄に元から入っている文字を消したいときは、SendKeys の clearBeforeTyping を True にするか、先に Clear を呼びます

' ボタンをクリック
driver.FindElement(By.CssSelector, ".btn-search").Click

' 入力欄に文字を打ち込む
driver.FindElement(By.CssSelector, "[name='q']").SendKeys "SeleniumVBA"

' 元の文字を消してから入力(clearBeforeTyping)
driver.FindElement(By.CssSelector, "#keyword").SendKeys "新しい値", clearBeforeTyping:=True

' 入力欄を空にするだけ
driver.FindElement(By.CssSelector, "#keyword").Clear

' フォームを送信する
driver.FindElement(By.CssSelector, "#keyword").Submit

テキスト・属性・CSSを取り出す

表示テキストを取るのは GetText、リンク先(href)などの属性は GetAttribute、文字色などの見た目は GetCSSProperty で取れます、メソッド名を間違えやすいところなので、ここはまとめて覚えておくと安心です

Dim el As WebElement
Set el = driver.FindElement(By.CssSelector, "#title")

' 表示テキストを取る
Debug.Print el.GetText

' 属性を取る(リンク先の href など)
Debug.Print el.GetAttribute("href")

' 見た目のCSS値を取る(文字色など)
Debug.Print el.GetCSSProperty("color")

' 中のHTMLやタグ名を取りたいとき
Debug.Print el.GetInnerHTML
Debug.Print el.GetTagName

' 表示・有効・選択の状態を真偽値で取れる
Debug.Print el.IsDisplayed
Debug.Print el.IsEnabled
Debug.Print el.IsSelected

待機する(ImplicitMaxWait が基本)

ブラウザ自動化でハマりやすいのが「要素がまだ表示されていないのに探しにいって失敗する」パターンです、対策の基本が ImplicitMaxWait です

これを設定しておくと、以降の FindElement が、要素が出てくるまで自動でリトライしながら待ってくれます、ページ表示がもたつくサイトでも、これだけでだいぶ安定します

' 以降の FindElement は、最大10秒まで要素を待つ(ミリ秒指定)
driver.ImplicitMaxWait = 10000

' 単純にその場で止めたいだけなら Wait(ミリ秒)
driver.Wait 1000   ' 1秒待つ

ImplicitMaxWait は「要素が出るまで待つ賢い待機」、Wait は「とにかく指定ミリ秒止まる」だけのシンプルな待機です、基本は ImplicitMaxWait を最初に1回セットしておき、どうしても固定で待ちたい場面だけ Wait を足す、という使い分けがおすすめです

要素があるか確認する(IsPresent)

覚えておきたいのが、FindElement は要素が見つからないとエラーになる、という点です、なので「あるかどうか分からない要素」を相手にするときは、いきなり FindElement しないほうが安全です

そこで使うのが IsPresent です、これは要素があるかどうかを True / False で返してくれるので、エラーで止まらずに分岐できます、第3引数で「この要素は最大何ミリ秒待つか」も指定できます

' 要素があるかを True / False で確認する
If driver.IsPresent(By.CssSelector, ".alert") Then
    Debug.Print "アラートが出ています"
End If

' 待ち時間を指定しつつ、見つかった要素を受け取る
Dim el As WebElement
If driver.IsPresent(By.CssSelector, "#result", 5000, , el) Then
    Debug.Print el.GetText   ' 見つかったときだけ使う
End If

最後の引数に ByRef で変数を渡すと、見つかった要素をそのまま受け取れます、「あるか確認 → あれば使う」を1回で書けるので、地味に便利です

プルダウン(select)を選ぶ

プルダウン(select要素)は、専用のメソッドで選べます、表示文字で選ぶ SelectByVisibleText、値で選ぶ SelectByValue、順番で選ぶ SelectByIndex の3つを覚えておけば十分です

Dim sel As WebElement
Set sel = driver.FindElement(By.CssSelector, "#prefecture")

' 表示されている文字で選ぶ
sel.SelectByVisibleText "東京都"

' value 属性の値で選ぶ
sel.SelectByValue "13"

' 上から数えた順番で選ぶ(0始まり)
sel.SelectByIndex 0

複数の要素をまとめて取る・ループする

1つではなく、条件に合う要素を全部取りたいときは FindElements(複数形)を使います、これは要素のコレクションを返すので、For Each でぐるっと回せます、一覧ページから値をまとめて拾うときの定番です

Dim els As WebElements
Dim el As WebElement

' class="item" の要素を全部取る
Set els = driver.FindElements(By.CssSelector, ".item")

For Each el In els
    Debug.Print el.GetText
Next el

表をまるごとExcelに取り込む

VBAでブラウザを動かす一番のうまみが、取ってきた値をそのままExcelに書き出せることです、ページの表(table要素)なら、TableToArray で2次元配列にできるので、シートへの貼り付けがかなりラクになります

' ページの表を2次元配列にして、シートに一気に貼る
Dim tbl As WebElement
Set tbl = driver.FindElement(By.CssSelector, "table#data")

Dim arr As Variant
arr = tbl.TableToArray

Range("A1").Resize(UBound(arr, 1) + 1, UBound(arr, 2) + 1).Value = arr

' 1セルずつ書きたいときは For Each で
Dim els As WebElements, el As WebElement, r As Long
Set els = driver.FindElements(By.CssSelector, ".price")
r = 1
For Each el In els
    Cells(r, 1).Value = el.GetText
    r = r + 1
Next el

逆に、Excelの一覧を読みながらページを順に開く、という回し方もできます、A列に並べたURLやIDを For で回して、そのつど NavigateTo でページを開けば、Excel主導のブラウザ自動化が組めます

スクリーンショットを撮る

画面の証跡を残したいときは SaveScreenshot です、ページ全体・特定の要素だけ・縦に長いページの全体…と撮り分けられます

' 表示中の画面を保存
driver.SaveScreenshot "C:\temp\shot.png"

' 縦に長いページ全体を保存(fullScreenShot)
driver.SaveScreenshot "C:\temp\full.png", , fullScreenShot:=True

' 特定の要素だけ保存
Dim el As WebElement
Set el = driver.FindElement(By.CssSelector, "#chart")
el.SaveScreenshot "C:\temp\chart.png"

iframe・タブを切り替える

ページの中に別ページが埋め込まれている iframe の中身は、そのままだと操作できません、SwitchToFrame で中に入って、終わったら SwitchToDefaultContent で元に戻ります

' iframe の中に入る
Dim frame As WebElement
Set frame = driver.FindElement(By.CssSelector, "iframe#content")
driver.SwitchToFrame frame

' iframe 内の要素を操作したあと、元のページに戻る
driver.SwitchToDefaultContent

タブやウィンドウの切り替えは Windows 経由で行います、タイトルやURLで目的のタブに移ったり、新しいタブを開いたりできます

' タイトルやURLで目的のタブへ切り替える
driver.Windows.SwitchToByTitle "注文一覧"
driver.Windows.SwitchToByUrl "https://example.com/orders"

' 次のタブへ・新しいタブを開く
driver.Windows.SwitchToNext
driver.Windows.SwitchToNew windowType:=svbaTab

JavaScriptを実行する・スクロールする

標準のメソッドだけだと届かない操作は、ExecuteScript でJavaScriptを直接走らせて片付けられます、戻り値も受け取れるので、ちょっとした計算やページ内の値取得にも使えます

JS側では、VBAから渡した引数を arguments[0] の形で受け取れます、よく使うのは「目的の要素まで画面をスクロールする」用途です

' JSを実行して戻り値を受け取る(5 * 10 = 50)
Dim ret As Variant
ret = driver.ExecuteScript("return arguments[0]*arguments[1];", 5, 10)
Debug.Print ret

' 指定した要素までスクロールする
Dim el As WebElement
Set el = driver.FindElement(By.CssSelector, "#footer")
driver.ExecuteScript "arguments[0].scrollIntoView(true);", el

' 画面を下に1000pxスクロールする
driver.ExecuteScript "window.scrollBy(0,1000);"

エンターキーなどの特殊キーを送る

検索ボックスに文字を打って、そのままエンターで検索したい…というのもよくあります、特殊キーは WebKeyboard を用意して、SendKeys の文字とつなげて送ります

Dim k As New WebKeyboard
Dim box As WebElement
Set box = driver.FindElement(By.CssSelector, "[name='q']")

' 検索語を打ってエンターキーで送信
box.SendKeys "SeleniumVBA" & k.ReturnKey

' Ctrl + A で入力欄を全選択する
box.SendKeys k.Chord(k.CtrlKey, "a")

ヘッドレス・起動オプションを付ける

画面を出さずに裏で動かす(ヘッドレス)や、起動時のオプションを足したいときは、StartChrome のあとに CreateCapabilities で設定オブジェクトを作って、OpenBrowser に渡します

Dim driver As New WebDriver
driver.StartChrome

Dim caps As WebCapabilities
Set caps = driver.CreateCapabilities

' 画面を出さずに動かす(ヘッドレス)
caps.RunInvisible

' 起動オプションを足す
caps.AddArguments "--start-maximized"

' ダウンロード先と確認ダイアログの設定
caps.SetDownloadPrefs downloadFolderPath:="C:\dl\", promptForDownload:=False

' 設定を渡してブラウザを開く
driver.OpenBrowser caps

ヘッドレスにすると画面が出ないぶん動作が軽くなるので、定期実行や大量処理のときに向いています、ただ動作確認のうちは、画面を出したまま挙動を見ながら作るほうが安心です

便利なヘルパー関数を用意しておく

同じような書き方を毎回くり返すなら、自分用の小さな関数(ヘルパー)にまとめておくと、コードがぐっと読みやすくなります、ここでは私がよく使うものを紹介します、どれも検証済みのメソッドだけで組んでいるので、そのままコピペして使えます

TryFind … 無ければ Nothing を返す(エラーを出さない)

さっき書いたとおり FindElement は要素が無いとエラーになります、TryFind は IsPresent を使って、見つかれば要素を、無ければ Nothing を返します、「あるかどうか分からない要素」を扱うときの土台になります

' 存在チェック付き取得(無ければNothing・エラーを出さない)
Public Function TryFind(driver As WebDriver, ByVal sel As String, _
                        Optional ByVal waitMS As Long = 3000) As WebElement
    Dim el As WebElement
    If driver.IsPresent(By.CssSelector, sel, waitMS, , el) Then
        Set TryFind = el
    Else
        Set TryFind = Nothing
    End If
End Function

WaitFor … 出るまで待って、ダメなら明示エラー

WaitFor は逆に、「この要素は確実に出るはず」という場面用です、時間内に出れば返し、出なければ「何のセレクタで失敗したか」が分かるエラーを出します、原因が分からないまま止まるより、メッセージが残るぶんデバッグがラクになります

' 要素が出るまで待って取得(ダメなら明示エラー)
Public Function WaitFor(driver As WebDriver, ByVal sel As String, _
                        Optional ByVal timeoutMS As Long = 10000) As WebElement
    Dim el As WebElement
    If driver.IsPresent(By.CssSelector, sel, timeoutMS, , el) Then
        Set WaitFor = el
    Else
        Err.Raise vbObjectError + 513, , "要素が見つかりません: " & sel
    End If
End Function

Css … By.CssSelector を短く書くラッパー

毎回 driver.FindElement(By.CssSelector, “…”) と書くのは長いので、Css(driver, “…”) だけで済むようにしたラッパーです、CSSセレクタに寄せる方針と相性がよく、本文のコードがかなりスッキリします

' By.CssSelector 短縮ラッパー
Public Function Css(driver As WebDriver, ByVal sel As String) As WebElement
    Set Css = driver.FindElement(By.CssSelector, sel)
End Function

' 使うとこう書ける
' Css(driver, ".btn-search").Click

SafeClick … 存在・表示・有効を確かめてからクリック

クリックは、要素はあっても「まだ表示されていない・押せない状態」だと失敗することがあります、SafeClick は IsPresent で存在を確かめ、さらに IsDisplayed と IsEnabled が True のときだけ Click します、押せないときに止まらず素通りするので、流れが安定します

' 安全クリック(存在＋表示＋有効を確認してClick)
Public Sub SafeClick(driver As WebDriver, ByVal sel As String, _
                     Optional ByVal waitMS As Long = 5000)
    Dim el As WebElement
    If driver.IsPresent(By.CssSelector, sel, waitMS, , el) Then
        If el.IsDisplayed And el.IsEnabled Then el.Click
    End If
End Sub

スクロール系 … 最下部まで・要素を画面中央へ

スクロールまわりも、ExecuteScriptでJavaScriptを走らせる独自functionにしておくと便利です、よく出番があるのが、遅延読み込みや無限スクロールのページで最下部まで自動で送って中身を出し切る処理と、目的の要素を画面の真ん中まで持ってくる処理です

' 最下部までオートスクロール(無限スクロール・遅延読み込み対策)
' 高さが伸びなくなったら読み切ったとみなして止まる
Public Sub ScrollToBottom(driver As WebDriver, _
                          Optional ByVal maxLoops As Long = 30, _
                          Optional ByVal waitMS As Long = 800)
    Dim lastH As Double, newH As Double, i As Long
    lastH = driver.ExecuteScript("return document.body.scrollHeight;")
    For i = 1 To maxLoops
        driver.ExecuteScript "window.scrollTo(0, document.body.scrollHeight);"
        driver.Wait waitMS
        newH = driver.ExecuteScript("return document.body.scrollHeight;")
        If newH = lastH Then Exit For
        lastH = newH
    Next i
End Sub

' 対象の要素を画面の中央へスクロール
Public Sub ScrollToCenter(driver As WebDriver, el As WebElement)
    driver.ExecuteScript "arguments[0].scrollIntoView({block:'center', inline:'center'});", el
End Sub

ScrollToBottomは、ページの高さが伸びなくなったら「もう読み切った」と判断して止まる作りなので、件数の読めない無限スクロールでも空回りしません、ScrollToCenterは要素を上端ではなく中央に置くので、固定ヘッダーに隠れて押せない…みたいなクリック事故も減らせます

ハマりどころとTips

最後に、書きはじめのうちにつまずきやすいところを、軽くまとめておきます

• 閉じ忘れに注意 … 処理の終わりに CloseBrowser → Shutdown を呼ばないと、裏でWebDriverが残ることがあります、処理の最後に毎回呼ぶ形にしておくのがおすすめです
• まず ImplicitMaxWait をセット … 「要素がまだ無い」系のエラーは、最初に ImplicitMaxWait を入れておくだけでかなり減ります
• 存在チェックは IsPresent で … 無いかもしれない要素を FindElement で取りにいくとエラーになります、迷ったら IsPresent で分岐するのが安全です
• メソッド名の取り違えに注意 … 探すのは By.CssSelector(By.Cssではない)、テキストは GetText、CSS値は GetCSSProperty です、名前が紛らわしいので、ここはコピペで間違いを防ぐのがラクです

このあたりを押さえておけば、たいていの「動かない…」はかなり減らせると思います、あとは作りたい処理に合わせて、ここまでのコードを組み合わせていく感じです

まとめ

SeleniumVBAの実践コードを、ひととおり並べてみました、最後にポイントを整理しておきます

• 要素の探し方は By.CssSelector に寄せると覚えることが減る、リンク文字やテキスト検索はCSS＋ループの独自functionで再現でき、XPathが要るのは親への逆引き(“..”)だけ
• 操作は Click / SendKeys / GetText / GetAttribute が基本、待機は ImplicitMaxWait をまずセット
• 無いかもしれない要素は IsPresent で確認、プルダウンや複数要素・スクショ・JS実行も専用メソッドで書ける
• よく使う処理は TryFind / WaitFor / Css / SafeClick のようにヘルパー関数化しておくと読みやすい

まだ導入が済んでいない方は、まず「Excelでもブラウザ操作！SeleniumVBAの使い方」で土台を作ってから、この記事のコードを動かしてみてください

ドライバーの更新まわりで困ったときは「VBAでChromeDriverを自動更新する方法」、これまでの定番だったSeleniumBasicから入りたい方は「SeleniumBasicの導入方法」も合わせて読んでもらえると、VBAでのブラウザ自動化がだいぶ見通しよくなると思います

VBAの独学に効く本PR

Excel VBA塾【動画×本で学ぶ!】

たてばやし淳

Amazonで見る楽天で見る

パーフェクトExcel VBA

高橋宣成

Amazonで見る楽天で見る

Excel マクロ&VBA［実践ビジネス入門講座］完全版 第3版

国本温子

Amazonで見る楽天で見る

私のおすすめからランダムで3冊を表示しています

「Excelからブラウザを動かして、面倒なWeb作業を自動化できたらいいのに…」と思ったこと、ありませんか？

結論から言うと、VBAからでもブラウザの自動操作はできます、そのための定番が「Selenium」という仕組みで、それをExcelやAccessのVBAから使えるようにしたのが今回の主役 SeleniumVBA です

しかも、専用のRPAツールを買ったり、別のソフトをインストールしたりしなくても、手元のExcel(マクロ)の延長でブラウザ操作を始められるのが手軽なところです

私はこれまで、VBAでもPythonでもブラウザ自動化をいろいろやってきました、VBA側だと長らく「SeleniumBasic」が定番だったんですが、こちらはもう更新が止まっていて、ドライバーの手動更新まわりで地味に手間がかかるんですよね

その点 SeleniumVBA は、今もちゃんとメンテされていて、ドライバーの更新まで自動でやってくれるのが大きいです、この記事では、SeleniumVBAとは何かから、導入・基本的な使い方・ドライバーの自動更新まで、ブラウザ自動化が初めての方にも分かるように順を追って解説していきます

SeleniumVBAとは?ExcelからブラウザをVBAで操作できる

まず「Selenium」から軽く説明しておきます

Seleniumは、ブラウザを自動で操作するための仕組み(プログラムからChromeやEdgeを動かす技術)です、もともとはWebサイトの自動テスト用に作られたもので、ページを開いたり、ボタンを押したり、入力欄に文字を打ち込んだり…といった「人がブラウザでやる操作」をコードで再現できます

その Selenium を、ExcelやAccessのVBAから呼び出せるようにしたライブラリが SeleniumVBA です、GitHubの GCuser99/SeleniumVBA で公開されていて、無料で使えます

特徴をざっとまとめると、こんな感じです

• Pure VBA … VBAだけで完結していて、外部の特別なソフトに依存しない
• .NET Frameworkが不要 … 後述のSeleniumBasicと違って、追加ランタイムを入れずに動く
• Windows + Microsoft Office(Excel / Access)で動く
• Chrome / Edge / Firefox に対応している
• 今もメンテが続いている(リリースが重ねられていて、比較的新しいバージョンが出ている)

仕組みとしては、SeleniumVBAがローカルで動く「WebDriver」というサーバー(ブラウザを操作する仲介役)とやり取りして、その先のブラウザを動かす…という流れになります、このあたりはPythonのSeleniumと考え方は同じなので、両方触ったことがある方ならすんなり入れると思います

SeleniumBasicとの違いは?なぜ今SeleniumVBAなのか

VBAでSeleniumというと、これまでは「SeleniumBasic」が定番でした、私もずっとお世話になってきたライブラリで、今でも普通に使えます

ただ、これから新しく始めるなら SeleniumVBA の方が扱いやすい場面が多いです、その理由を整理しておきます

.NET Framework 3.5 が要らない

SeleniumBasicは、古い .NET Framework 3.5 に依存しています、最近のWindowsだと初期状態でこれが入っておらず、別途有効化が必要になることがあって、導入の最初でつまずく方がそこそこいるんですよね

世代としても古い土台なので、将来のサポート面ではどうしても不安が残ります、その点 SeleniumVBAは.NETが不要で、この前提条件まわりの面倒がそもそも発生しないのが大きな違いです

アプリのインストールが要らない

SeleniumBasicは、専用のソフトをインストーラーで入れる必要があります、一方の SeleniumVBA は、配布されているアドインファイル(.xlam)を読み込むだけで使えるので、ソフトのインストールそのものが不要です

会社のPCでソフトのインストールが制限されている、みたいな環境でも導入のハードルが低いのは、地味だけど助かるポイントです

ドライバーの自動更新が標準で付いている

ブラウザ自動化で一番ありがちなトラブルが、ブラウザが自動更新されて、ドライバーのバージョンと合わなくなって動かなくなるパターンです

SeleniumBasicでこれを直すには、自分で新しいドライバーを落としてきて差し替える、という手動作業が必要でした、SeleniumVBAは ドライバーをそろえる仕組みが最初から組み込まれていて、ここを自動でやってくれます、この差は地味に効いてきます

今もメンテが続いている

SeleniumBasicは、公開されているリポジトリの更新がかなり前で止まっています、一方の SeleniumVBA は今もリリースが重ねられていて、メンテが続いているのは安心材料です

もちろん「SeleniumBasicがもうダメ」という話ではなくて、既に資産があるならそのまま使えます、ただ これから新規で組むなら、土台の新しいSeleniumVBAの方が後々ラク、という温度感です

SeleniumVBAを導入する(xlamアドインが一番ラク)

導入方法は公式に何通りか用意されていますが、配布されている「SeleniumVBA.xlam」というアドインを取り込む方法が一番ラクなので、まずはこれをおすすめします

大まかな流れはこんな感じです

ほかにも、DLL登録用のインストーラーを使う方法や、ソースのクラス・標準モジュールを直接取り込む方法も公式に用意されています、ただ最初のうちは、参照設定するだけで済む xlamアドインがいちばん迷わないと思います

SeleniumVBAの基本的な使い方

導入できたら、さっそく動かしてみます、まずは「Googleのトップページを開いて、検索ボックスの情報を取ってきて、ブラウザを閉じる」という基本的な流れを書いてみます

Dim driver As New WebDriver
driver.StartChrome
driver.OpenBrowser
driver.NavigateTo "https://www.google.com/"
driver.Wait 1000
Dim element As WebElement
Set element = driver.FindElement(By.Name, "q")
Debug.Print element.GetText
driver.CloseBrowser
driver.Shutdown

短いコードですが、ブラウザ自動化の基本がひととおり詰まっています、上から順に何をしているか見ていきます

• StartChrome … Chrome用のWebDriverを起動する(Edgeなら StartEdge、Firefoxなら StartFirefox)
• OpenBrowser … 実際にブラウザのウィンドウを開く
• NavigateTo … 指定したURLのページへ移動する
• Wait … 指定したミリ秒だけ待つ(ここでは1000=1秒)
• FindElement … ページの中から目的の要素を探す(ここでは name属性が “q” の検索ボックス)
• GetText … 見つけた要素のテキストを取り出す
• CloseBrowser … ブラウザのウィンドウを閉じる
• Shutdown … WebDriver(裏で動いていた仲介役)を終了する

流れとしては、起動 → ブラウザを開く → ページ移動 → 要素を探す → 値を取る → 閉じるという順番です、ここを押さえておけば、あとは「探す要素」と「取る/入れる値」を変えていくだけで、いろんな自動化に応用できます

ちなみに FindElement の探し方は、上の例の name 以外にも、id・class・CSSセレクタ・XPath などいくつか指定できます、このあたりの「要素の探し方」の考え方は、PythonのSeleniumとほぼ共通なので、片方を知っていればもう片方もすぐ馴染みます

クリックや入力・待機、そして要素の探し方をBy.CssSelectorに寄せるコツなど、実際によく書くコードは続編の「SeleniumVBAの使い方 実践コード集」にまとめたので、基本が動いたらこちらも見てみてください

ドライバーの自動更新(SeleniumVBA最大の便利ポイント)

ここが、私がSeleniumVBAを推したい一番の理由です

前にも触れたとおり、ブラウザは勝手にバージョンアップしていくので、放っておくとドライバーとの組み合わせがズレて「昨日まで動いてたのに急に止まった」が起きます、SeleniumBasicだと、ここを自分で直す必要がありました

SeleniumVBAには WebDriverManager というクラスがあって、インストール済みのブラウザに合うドライバーを自動で検出して、必要なら自動でダウンロードしてくれます

明示的に呼ぶなら、こんな感じで書けます

Dim mngr As New WebDriverManager
Debug.Print mngr.AlignChromeDriverWithBrowser()

AlignChromeDriverWithBrowser が、「今入っているChromeに合うChromeDriverを用意する」処理です(Edge・Firefox向けの対応するメソッドもあります)、公式の説明によると、StartChrome などでドライバーを起動するときにも、ブラウザに合うドライバーを自動で検出してそろえてくれる仕組みになっています

つまり、普段は特別なことを意識しなくても、ブラウザに合ったドライバーが用意されるということです、SeleniumBasicの頃にちまちまドライバーを差し替えていた手間を思うと、ここは素直にありがたいです

SeleniumVBAはどんなことに使える?

ブラウザを自動で操作できると、できることの幅がかなり広がります、私が実務でブラウザ自動化を使ってきた中だと、ざっくり次のような場面が定番です

Webスクレイピング(情報の収集)

ページを開いて、必要な情報を読み取ってExcelに書き出す…というスクレイピングは、ブラウザ自動化の王道の使い道です

たとえば、複数ページにまたがる一覧から欲しいデータだけ拾ってきて表にまとめる、みたいな作業、手でやると気が遠くなりますが、SeleniumVBAなら NavigateTo でページを順に開いて FindElement で値を取る、という流れで回せます

ブラウザ操作の自動化(RPA的な使い方)

もうひとつが、毎日のようにやっているブラウザ作業を丸ごと自動化する、いわゆるRPA的な使い方です

ログインして、決まった画面を開いて、入力して、ボタンを押して…という一連の操作を、ExcelのVBAから流せます、Excelに置いた一覧を読みながら順番に処理する、みたいなこともできるので、Excelが得意なデータ管理と、ブラウザ操作を1つにまとめられるのがVBAでやる強みです

専用のRPAツールを別途用意しなくても、すでに手元にあるExcelの延長で組めるのは、地味だけど実務だとうれしいポイントだと思います

SeleniumVBAを使うときの注意点

便利なSeleniumVBAですが、始める前に知っておきたい前提もいくつかあります

• Windows + Microsoft Office が前提 … ExcelやAccessのVBAから使うライブラリなので、その環境がベースになります
• 操作するブラウザが必要 … Chrome / Edge / Firefox のいずれかがインストールされている前提です
• アドイン(.xlam)の読み込み・マクロ実行が前提 … 普段アドインを使わない方は最初の取り込みで少し戸惑うかもしれません、会社のPCだとマクロやアドインがセキュリティポリシーで制限されていることもあるので、自分の環境で使えるかを確認してから始めるのがおすすめです
• 初回はドライバーのダウンロードが入る … 自動でそろえてくれる分、最初の実行時にドライバーの取得が走ることがあります
• 日本語の情報はまだ少なめ … 比較的新しいので、困ったときは公式リポジトリの情報を当たる場面が多めです

とはいえ、コードの書き味そのものはSeleniumらしい素直な作りで、PythonやSeleniumBasicを触ったことがあれば StartChrome → NavigateTo → FindElement の流れはすぐ掴めると思います、最初のドライバー取得さえ越えれば、あとは快適です

SeleniumBasicという選択肢もある

ここまで SeleniumVBA を中心に紹介してきましたが、VBAでのブラウザ自動化には SeleniumBasic という長く使われてきた選択肢もあります

ざっくり選び分けると、こんな感じで考えると分かりやすいです

• これから新しく始めるなら … .NET不要でドライバー自動更新つきの SeleniumVBA が扱いやすい
• すでにSeleniumBasicの資産があるなら … そのまま使える、ただしドライバーは手動更新が必要になる

SeleniumBasicをこれから入れてみたい方は、導入手順を「SeleniumBasicの導入方法」でまとめているので、そちらを見てもらえれば一通りそろいます

ドライバーの手動更新まわりでつまずいたときは、「VBAでChromeDriverを自動更新する方法」が役立つはずです、SeleniumVBAの「自動でそろう」仕組みと読み比べると、それぞれの立ち位置がよりはっきりすると思います

まとめ

SeleniumVBAは、ExcelやAccessのVBAからブラウザを自動操作できるライブラリで、Seleniumの仕組みをそのままVBAから使えるのが魅力です

あらためてポイントを整理すると、こんなところです

• SeleniumVBAなら、ExcelのVBAからChrome / Edge / Firefox を自動操作できる
• SeleniumBasicと違って .NETが不要で、ドライバーの更新も自動でそろえてくれる
• 導入は xlamアドインを参照設定するのが一番ラク
• 基本は StartChrome → NavigateTo → FindElement → GetText → CloseBrowser の流れ
• スクレイピングやRPA的な作業まで、幅広く応用できる

これからExcelでブラウザ操作を始めるなら、自動更新つきで土台の新しい SeleniumVBA はかなり心強い選択肢だと思います、まずは今回の基本コードを動かすところから、気軽に試してみてください

VBAの独学に効く本PR

Excel VBA塾【動画×本で学ぶ!】

たてばやし淳

Amazonで見る楽天で見る

パーフェクトExcel VBA

高橋宣成

Amazonで見る楽天で見る

Excel マクロ&VBA［実践ビジネス入門講座］完全版 第3版

国本温子

Amazonで見る楽天で見る

私のおすすめからランダムで3冊を表示しています

2024年から、Excelに正規表現を扱う関数が3つ追加されました

これまで文字列を抜き出したり整えたりするのに、VBAでVBScriptのRegExpを呼んだり、LEFT・MID・FINDあたりを組み合わせて頑張ってたわけですが、それが関数1つで書けるようになったってことです

私自身、PythonでのスクレイピングやVBAでわりと正規表現を使ってきた側なんですが、Excelのセルにそのまま正規表現を書けるのは地味に助かるなと思ってます、別シートにマクロを仕込まなくても、関数だけで完結するのが大きいんですよね

この記事ではそのREGEXTEST・REGEXEXTRACT・REGEXREPLACEの3つについて、構文と引数、実際の数式の例、事務作業での使いどころをまとめていきます

ExcelのREGEX関数とは（使えるバージョンに注意）

ExcelのREGEX関数は、セルの中の文字列を正規表現でチェックしたり、抜き出したり、置き換えたりするための関数です、用意されてるのは次の3つ

名前のとおり、TEST=判定、EXTRACT=抽出、REPLACE=置換という役割分担になっていて、この3つを覚えれば文字列処理のだいたいの場面はカバーできます

ただ1つ注意したいのが、使えるExcelが限られるという点です

2024年5月にプレビューとして登場して、その後Windows・Mac・Webの各Microsoft 365で正式に使えるようになりました、Insider（先行プレビュー版）への参加もいりません

自分のExcelがどっちか分からないときは、空いてるセルに=REGEXTEST("a","a")とでも打ってみてください、エラー（#NAME?）が出るなら、その環境にはまだREGEX関数が来てないってことになります

もう1つ、正規表現の方言（フレーバー）の話です、ExcelのREGEX関数はPCRE2という、多くのツールが採用しているフレーバーを使っています、後で出てくるVBAのVBScript RegExpとは細かい書き方が違う部分があるので、そこだけ頭の片隅に置いておくといいです

正規表現の基礎は別記事にまとめてあります

この記事はExcelのREGEX関数の使い方に集中したいので、正規表現そのものの基礎（メタ文字とか\d・\wといった定義済みパターン）はここでは説明しません

「\dって何だっけ」「[0-9]と[^0-9]の違いが曖昧」みたいな、記号の意味そのものがあやしい方は、先にこっちを読んでもらえると以降の数式がスッと入ってきます、郵便番号や電話番号などのよく使うパターンの早見表も載せてあります

以下では、この記事に出てくるパターンに簡単な補足は添えますが、深い解説は上の記事にお任せして進めていきます

REGEXTEST（パターンに一致するか判定する）

まずは一番シンプルなREGEXTESTから、これは「セルの中身がパターンに一致するか？」をTRUE / FALSEで返してくれる関数です

=REGEXTEST(text, pattern, [case_sensitivity])

ポイントは、textのどこか一部でもパターンに一致すればTRUEになるところです、全体がきっちり一致してる必要はありません

例えばA2セルに数字が含まれているか調べたいなら、こんな感じ

=REGEXTEST(A2,"[0-9]")

A2セルに1個でも数字（[0-9]）があればTRUE、まったく無ければFALSEが返ります

メールアドレスっぽいかをざっくり判定したいなら、@が入ってるかどうかだけでも目印になります

=REGEXTEST(A2,"@")

これはあくまで「@を含むか」の簡易チェックなので、ちゃんとしたメール形式かまで見たいなら後で出てくる抽出のパターンを応用する形になります

大文字小文字を区別したくないときは、3つ目の引数に1を渡します、例えば“abc”でも“ABC”でも引っかけたいケースですね

REGEXEXTRACT（一致した部分を抜き出す）

次は抜き出し担当のREGEXEXTRACTです、文字列の中からパターンに一致した部分だけを取り出してくれます、住所から郵便番号だけ、文章からメアドだけ、みたいな使い方ができます

=REGEXEXTRACT(text, pattern, [return_mode], [case_sensitivity])

引数で重要なのが3つ目のreturn_modeで、これで「何を返すか」が変わります

case_sensitivity（4つ目）はREGEXTESTと同じで、0=区別する（既定）/ 1=区別しない、です

郵便番号を抜き出す（return_mode 0）

A2セルに「東京都千代田区永田町1-7-1 100-8981」みたいな住所文字列が入っているとして、そこから郵便番号だけ取り出したいとします

=REGEXEXTRACT(A2,"\d{3}-\d{4}")

\d{3}-\d{4}は「数字3つ・ハイフン・数字4つ」というパターンなので、100-8981の部分が抜き出されます、return_modeを省略してるので、最初に一致した1件だけが返る形です

メールアドレスを抜き出す（簡易版）

文章の中からメアドを抜きたいときは、こんなパターンが使えます

=REGEXEXTRACT(A2,"[A-Za-z0-9._%+-]+@[A-Za-z0-9.-]+\.[A-Za-z]{2,}")

@の前後とドメイン部分をざっくり拾うパターンです、ただしこれはあくまで簡易版で、世の中のメアドの仕様を完全に網羅したものではありません、社内の名簿から拾うくらいの用途なら十分実用になります

数字のかたまりを全部抜き出す（return_mode 1）

1件だけじゃなくて、一致したもの全部が欲しいときはreturn_modeに1を渡します

=REGEXEXTRACT(A2,"\d+",1)

\d+は「数字が1つ以上続くかたまり」なので、A2セルの中にある数字のかたまりが全部、縦にスピル（自動で複数セルに展開）して並びます、文字列に散らばった数値をまとめて拾いたいときに便利です

年・月・日に分解する（return_mode 2）

カッコ( )で囲った部分（キャプチャグループ）だけを取り出したいときはreturn_modeに2を渡します、日付を年・月・日にバラすのが分かりやすい例です

=REGEXEXTRACT("2024-05-20","(\d{4})-(\d{2})-(\d{2})",2)

3つのグループ(\d{4})・(\d{2})・(\d{2})に分けてあるので、2024・05・20の3つが配列で返ります、横にスピルして年・月・日が別セルに並ぶイメージですね

例えば数字のかたまりを数値にしたいなら、=VALUE(REGEXEXTRACT(A2,"\d+"))のように包む形になります

REGEXREPLACE（一致した部分を置き換える）

3つ目は置換担当のREGEXREPLACEです、パターンに一致した部分を別の文字列に差し替えます、不要な文字を消したり、伏せ字にしたり、並べ替えたりできます

=REGEXREPLACE(text, pattern, replacement, [occurrence], [case_sensitivity])

数字だけ残して他を消す

電話番号などで、ハイフンやカッコが混ざってるのを取り払って数字だけにしたいときの定番がこれ

=REGEXREPLACE(A2,"[^0-9]","")

[^0-9]は「数字以外の文字」という意味なので、それを空文字（””）に置き換える＝数字以外を全部消す動きになります、occurrenceを省略すると既定で全部が対象です

電話番号の中央を伏せ字にする

個人情報を一覧で見せるときに、電話番号の真ん中をマスクしたいことがあります

=REGEXREPLACE("090-1234-5678","-\d{4}-","-****-")

「ハイフン・数字4つ・ハイフン」の部分を「-****-」に置き換えてるので、結果は090-****-5678になります、真ん中の4桁だけ隠せるってわけです

姓名を並べ替える（$1 $2 を使う）

replacementの中では$1・$2でキャプチャグループを参照できます、これを使うと並べ替えができます

=REGEXREPLACE("SoniaBrown","([A-Z][a-z]+)([A-Z][a-z]+)","$2, $1")

1つ目のグループ（Sonia）を$1、2つ目（Brown）を$2として、「$2, $1」の順で並べ直しているので、結果はBrown, Soniaになります、姓・名の順番を入れ替えたいときなどに応用が利きます

実務での使いどころ

ここまでの3関数を、日々の事務作業に当てはめるとこんな使い方ができます、どれもさっきまでの数式の組み合わせで対応できる範囲です

個人的にいいなと思うのは、表記ゆれのチェックや不要文字の除去みたいな、地味だけど件数が多いと面倒な作業がフィルや数式コピーでまとめて片付くところです、今までVBAでループ書いてた処理が、関数1行で済むケースがけっこうあります

REGEXTESTはTRUE / FALSEを返すので、IF関数やフィルター、条件付き書式と組み合わせると「このパターンに合う行だけ色を付ける」みたいなこともできて、チェック作業がはかどります

関連：XLOOKUP・XMATCHも正規表現に対応した

ちょっとした関連ネタとして、2024年12月にはXLOOKUPとXMATCHでも正規表現が使えるようになりました

具体的には、これらの関数の照合モードを表すmatch_mode引数に3を指定すると、検索値を正規表現として扱ってくれます、「完全一致じゃなくて、パターンに合う行を引っ張ってきたい」みたいな検索ができるようになるってことです

正規表現を覚えておくと、こうやって対応する関数が増えたときにそのまま流用できるので、文字列処理の引き出しとして持っておいて損はないなと感じてます

REGEX関数を使うときの注意点

便利な反面、使う前に押さえておきたいポイントもいくつかあります

• 使えるのはMicrosoft 365のみ、買い切りのExcel 2021 / 2024では使えない（共有相手の環境にも注意）
• 戻り値はテキスト、数値として扱うならVALUE関数で変換する
• フレーバーはPCRE2、VBAのVBScript RegExpとは細部の書き方が違う場合がある
• 大量データに複雑なパターンを当てると、再計算が重くなることがある

共有のところは特に見落としがちで、自分のPCでは動くのに、買い切り版のExcelを使ってる同僚が開いたら#NAME?エラーになる、というのが起こり得ます、配布するファイルで使うときは相手の環境も確認しておくと安心です

まとめ

ExcelのREGEX関数3つを振り返っておきます

• REGEXTEST…パターンに一致するかをTRUE / FALSEで判定
• REGEXEXTRACT…一致した部分を抜き出す（return_modeで最初の1件 / 全件 / グループを切替）
• REGEXREPLACE…一致した部分を置き換える（$1 $2でグループ参照、occurrenceで対象を絞る）

Microsoft 365限定という条件はありますが、使える環境なら文字列処理がだいぶ楽になります、まずはREGEXTESTで判定から触ってみて、慣れてきたら抽出・置換に広げていくと取っつきやすいです

肝心の正規表現のパターンの作り方があやしいときは、メタ文字や定義済みパターンの基礎をまとめた 正規表現とは？拒否反応が出る人向けに基本とよく使うパターンを整理 を読んでみてください、そっちにはVBAで正規表現を使う実装例も載せてあるので、関数では物足りなくなってVBAに踏み込みたくなったときにも役立つと思います

VBAの独学に効く本PR

Excel VBA塾【動画×本で学ぶ!】

たてばやし淳

Amazonで見る楽天で見る

パーフェクトExcel VBA

高橋宣成

Amazonで見る楽天で見る

Excel マクロ&VBA［実践ビジネス入門講座］完全版 第3版

国本温子

Amazonで見る楽天で見る

私のおすすめからランダムで3冊を表示しています

「VBAでJSONを読み込みたいんだけど、標準機能だとどうにもならない…」と手が止まっていませんか？

結論から言うと、ExcelVBAでJSONを扱うなら「VBA-JSON」という定番ライブラリを入れるのが一番ラクです

やることはシンプルで、JsonConverter.bas というファイルを1つ取り込んで、参照設定を1つ入れるだけ、あとは ParseJson でJSONを読み込んで、ConvertToJson でJSONを書き出せます

この記事では、VBA-JSONの導入から実際の使い方(パース・生成・配列やネストへのアクセス・ループ処理)まで、初心者の方にも分かるように順を追って解説していきます、つまずきポイントとFAQ、AIにコードを書いてもらうコツもまとめているので、必要なところだけ拾い読みでも大丈夫です

VBAでJSONを扱うなら VBA-JSON が定番

まず大前提として、VBAには標準でJSONを扱う機能がありません

Excelには CSV を読む機能はあっても、JSONをそのまま「項目ごとに取り出す」みたいなことは素のVBAだとできないんですよね

そこで使うのが、オープンソースのライブラリ「VBA-JSON」です

GitHubの VBA-tools/VBA-JSON で公開されていて、JSON界隈ではかなり知られた定番です、最新は v2.3.1 で、WindowsのExcelでもMacのExcelでも動きます

使う関数は基本的にこの2つだけ覚えればOKです

• ParseJson … JSON文字列を、VBAで扱えるデータ(Dictionary / Collection)に変換する(=読み込む)
• ConvertToJson … VBAのデータを、JSON文字列に変換する(=書き出す)

「読み込む」と「書き出す」の往復、これだけです、難しそうに見えて中身はシンプルなので安心してください

VBAでJSONを扱う場面はどんなとき？

そもそも「ExcelでJSONなんて使うの？」と思うかもしれませんが、最近のWeb APIはJSONで返ってくるのがほぼ標準なので、意外と日常業務の中で出番があります

たとえばこんなケースです

• 為替レートや天気予報のWeb APIを叩いてExcelに取り込む
• WebサービスからダウンロードしたデータをVBAで集計する
• 取引先のシステムとJSON形式でデータをやり取りする
• WordPressや社内システムのREST APIを操作する

VBA-JSONを使えるようになると、Excel完結の作業に外部データを取り込める幅が一気に広がります、普段の集計シートに「最新のデータを自動で引っ張ってくる」ような仕組みを足せるイメージですね

実際にWeb APIへリクエストを送ってJSONを受け取る流れは、eBay APIにVBAでリクエストを送る方法を解説した記事でも具体例を扱っているので、API連携をやってみたい方はあわせてどうぞ

そもそもJSONって何？という人向けの基礎

「JSONって言葉は聞くけど、よく分かってない」という方のために、ここで一度ざっくり整理しておきます、もう分かってる方は読み飛ばしてOKです

JSON(JavaScript Object Notation)は、テキストベースのデータ交換フォーマットです

Web APIからデータを取得するとき、他システムとのデータやり取りなど、いろんな場面で使われています、軽量で人間にも機械にも読みやすいのが特徴ですね

JSONの基本構造と記述ルール

細かいルールはいくつかありますが、まず押さえておきたいのはこのあたりです

• 項目名は「”」(ダブルクォーテーション)で囲む
• 文字列も「”」(ダブルクォーテーション)で囲む
• 数値は小数点を含めてそのまま表記(クォーテーション不要)
• 真偽値(Boolean)は「true」「false」のどちらか ※小文字、「”」は付けない
• Null値は「null」 ※小文字、「”」は付けない
• 「[ ]」で囲んだ配列の中も、上記と同じルール

形としては「"キー": 値」のセットが基本で、複数のデータを { } で囲んだものを「オブジェクト」、順序のあるデータの並びを [ ] で囲んだものを「配列」と呼びます

このあたりの言葉は、VBA-JSONを使うときに何度も出てくるので、なんとなく頭に入れておくと後がスムーズです

JSONのサンプルをExcelの表で考えてみる

JSONはCSVほど一目で分かる形式じゃないので、サンプルと一緒に見方を説明します、この記事ではずっとこのデータを例に進めていきます

たとえばこんなJSON形式のデータがあるとして

[{"name":"Javeo","birthdate":{"year":2000,"month":1,"day":1},"height":180,"weight":70,"favorite_foods":["Meat","Vegetables"],"glasses":true},{"name":"Javelin","birthdate":{"year":2002,"month":2,"day":2},"height":150,"weight":null,"favorite_foods":["Sweets"],"glasses":false}]

一行だと分かりづらいので、整形するとこうなります(VSCodeなどのエディタで簡単に整形できます)

[
  {
    "name": "Javeo",
    "birthdate": {
      "year": 2000,
      "month": 1,
      "day": 1
    },
    "height": 180,
    "weight": 70,
    "favorite_foods": [
      "Meat",
      "Vegetables"
    ],
    "glasses": true
  },
  {
    "name": "Javelin",
    "birthdate": {
      "year": 2002,
      "month": 2,
      "day": 2
    },
    "height": 150,
    "weight": null,
    "favorite_foods": [
      "Sweets"
    ],
    "glasses": false
  }
]

これをExcel的に表にすると、こんなイメージになります

つまりJSONをざっくり言うと、項目と値が対になっていて、「{ }」が階層を、「[ ]」が配列のデータ群を表していると思えばOKです

この「JaveoとJavelinの2人分のデータ」を、これからVBA-JSONで取り出していきます

VBA-JSONの導入手順(2026年版)

ここが一番大事なパートです、導入でつまずく人が多いので、順番にやっていきましょう

やることは大きく分けて2つ、「JsonConverter.basのインポート」と「参照設定」だけです

STEP

ライブラリのダウンロード

GitHubのVBA-tools/VBA-JSONリポジトリにアクセス

STEP

ファイルを探す

ページ内にある「JsonConverter.bas」をダウンロード

※何年も更新されていませんが、文字列を分解するだけのプログラムで特に改良点がないってだけなので気にせずどうぞ

STEP

VBAへのインポート

VBAで使えるようにするにはVBEの画面でインポートするだけ

プロジェクトエクスプローラー
右クリック→「ファイルのインポート」

もしくは「JsonConverter.bas」をプロジェクトエクスプローラーへドラッグ&ドロップでもOK

STEP

Microsoft Scripting Runtime に参照設定する

VBA-JSONを動かすには参照設定が要ります

VBA-JSONは内部で「Dictionary」という、キーと値をセットで扱うデータの入れ物を使っています、このDictionaryをそのまま書くスタイル(早期バインディングと言います)で動かすために、Microsoft Scripting Runtime への参照設定が必要になります

設定はVBEのメニューからで、手順はこうです

1. VBEのメニューで「ツール → 参照設定」を開く
2. 一覧から「Microsoft Scripting Runtime」を探す
3. チェックボックスにチェックを入れて「OK」を押す

これを忘れると、コードを実行したときに「ユーザー定義型は定義されていません」というエラーが出ます、後ろのFAQでも触れますが、この参照設定はかなりの確率でハマるので先に済ませておくのがおすすめです

Mac の Excel で使う場合

MacのExcelには Microsoft Scripting Runtime が無いので、参照設定の代わりに同じ作者の「VBA-Dictionary」というライブラリを一緒に入れます

VBA-tools/VBA-Dictionary から Dictionary.cls をダウンロードして、JsonConverter.bas と同じようにインポートすればOKです、WindowsとMacの両方で動かしたいときも、参照設定ではなくこのVBA-Dictionaryを使う形にしておくと安心ですね

ここまでできたら準備は完了です、いよいよ実際にJSONを扱っていきます

ParseJson でJSONを解析(パース)してみる

JSON形式のテキストを、VBAで扱えるデータ構造(DictionaryやCollection)に変換することを「解析(パース)」と言います

このパースが、ParseJson 関数を使えばたった一行で完了します

まずはWeb APIからJSONを取ってきてパースする、いちばんよくある形のサンプルです

' /// 事前準備 ///
' VBEの [ツール] > [参照設定] から下記にチェックを入れる
' ・Microsoft Scripting Runtime   (Dictionary用、VBA-JSONに必須)
' ・Microsoft XML, v6.0           (APIを叩く場合)
Sub GetJsonData()
    Dim http As Object
    Dim jsonText As String
    Dim parsedData As Object ' 解析後のデータ格納用

    ' Web APIからJSONデータを取得(例)
    Set http = CreateObject("MSXML2.XMLHTTP")
    http.Open "GET", "https://javeo.jp/wp-json/test/v1/data", False
    http.send
    jsonText = http.responseText

    ' ここがVBA-JSONの本体、JSONを解析
    Set parsedData = ParseJson(jsonText)

    ' 解析したデータをデバッグ出力
    Debug.Print "名前: " & parsedData(1)("name")
    Debug.Print "身長: " & parsedData(1)("height")

    Set http = Nothing
    Set parsedData = Nothing
End Sub

長く見えるかもしれませんが、VBA-JSONを使っている箇所は、結局このたった一行だけです

Set parsedData = ParseJson(jsonText)

この一行を通すことで、最初のサンプルにあった「長いただの文字列」が、parsedData(1)("name") といった具合に要素を指定してデータを取り出せる構造に変わります

APIを使わず、手元の文字列をそのままパースして試すこともできます、まずは動きを確かめたいときはこちらが手っ取り早いです

Sub ParseSample()
    Dim jsonText As String
    Dim parsedData As Object

    ' 動作確認用に文字列を直接用意
    jsonText = "[{""name"":""Javeo"",""height"":180}]"

    Set parsedData = ParseJson(jsonText)

    Debug.Print parsedData(1)("name") ' → Javeo
    Debug.Print parsedData(1)("height") ' → 180
End Sub

VBAの中で「”」を書くときは「””」と2つ重ねる必要があるので、そこだけ少し読みづらいですが、やっていることは「文字列をパースして取り出す」だけです

パースしたJSONから値を取り出す(配列・オブジェクト・ネスト)

ここがVBA-JSONを使ううえで一番つまずきやすく、そして一番大事なところです

ポイントは、パース後のデータが「Dictionary」と「Collection」の2種類に化けているという点です

• JSONの「{ }」(オブジェクト)→ Dictionary になる(キー名で取り出す)
• JSONの「[ ]」(配列)→ Collection になる(番号で取り出す)

この区別さえ分かれば、あとは指定の仕方が決まります、サンプルの「JaveoとJavelinのデータ」を例に、ひとつずつ見ていきましょう

配列(Collection)は番号で取り出す

サンプルのJSONは全体が「[ ]」で囲まれた配列なので、パース直後の parsedData はCollectionになっています

Collectionは「何番目」という番号(インデックス)で要素を取り出します、VBAのCollectionは1番から始まるのがポイントで、0番からじゃないので注意です

' 1人目(Javeo)のデータを取り出す
Set firstPerson = parsedData(1)

' 2人目(Javelin)のデータを取り出す
Set secondPerson = parsedData(2)

オブジェクト(Dictionary)はキー名で取り出す

取り出した1人分のデータ(parsedData(1))は「{ }」のオブジェクトなので、こちらはDictionaryです

Dictionaryは番号ではなく、キー名(項目名)を指定して値を取り出します

' 1人目の名前と身長
Debug.Print parsedData(1)("name")   ' → Javeo
Debug.Print parsedData(1)("height") ' → 180

' 真偽値もそのまま取れる
Debug.Print parsedData(1)("glasses") ' → True

parsedData(1)("name") は「配列の1番目(Collection)→ その中のnameキー(Dictionary)」という読み方になります、カッコが連続するのは、この2段階を一気に書いているからなんですね

ネスト(入れ子)は同じ要領でつなげる

サンプルの birthdate は、中にさらに year / month / day を持つ「入れ子のオブジェクト」です、こういうネストも、考え方は同じでカッコをつなげるだけです

' 1人目の生年月日(birthdateの中のyear)
Debug.Print parsedData(1)("birthdate")("year")  ' → 2000
Debug.Print parsedData(1)("birthdate")("month") ' → 1

' 配列の中の値(favorite_foodsの1個目)
Debug.Print parsedData(1)("favorite_foods")(1) ' → Meat

コツは、「{ }が来たらキー名」「[ ]が来たら番号」をJSONの形に合わせて交互に書いていくだけ、整形したJSONを見ながら指でたどると間違えにくいです

ループでまとめて処理する

実際の業務では「全員分をシートに書き出す」みたいに、繰り返し処理(ループ)で回すことがほとんどです

配列(Collection)は For Each でぐるっと回せます

Sub WriteToSheet()
    Dim parsedData As Object
    Dim person As Object
    Dim i As Long

    Set parsedData = ParseJson(jsonText) ' jsonTextは取得済みとする

    i = 1
    ' 配列の要素(1人分のデータ)を1件ずつ取り出す
    For Each person In parsedData
        Cells(i, 1).Value = person("name")
        Cells(i, 2).Value = person("height")
        Cells(i, 3).Value = person("birthdate")("year")
        i = i + 1
    Next person
End Sub

キー名が分からないオブジェクトを総当たりで見たいときは、.Keys でキー一覧を回す手もあります

Dim key As Variant
' 1人目のオブジェクトのキーと値を全部出す
For Each key In parsedData(1).Keys
    Debug.Print key & " = " & parsedData(1)(key)
Next key

ここまでで「読み込む(パース)」側はバッチリです、配列は番号・オブジェクトはキー名、これさえ押さえれば、たいていのJSONは取り出せます

ConvertToJson でVBAのデータをJSONに変換(生成)

今度は逆方向、つまりVBAのDictionaryやCollectionからJSON文字列を作る(生成する)パターンです、こちらは ConvertToJson 関数を使います

「VBAで作ったデータをAPIに送りたい」「JSON形式でファイルに保存したい」みたいなときに出番があります

Sub CreateJsonString()
    Dim postData As Object
    Dim skillsCollection As Collection
    Dim jsonString As String

    ' データを格納する親オブジェクトを準備
    Set postData = CreateObject("Scripting.Dictionary")

    ' 基本的なキーと値を追加
    postData("name") = "鈴木 一郎"
    postData("age") = 25

    ' 配列用のオブジェクトを「Collection」で準備
    Set skillsCollection = New Collection

    ' Collectionにデータを追加
    skillsCollection.Add "Word"
    skillsCollection.Add "PowerPoint"

    ' 親オブジェクトにCollectionを追加
    postData.Add "skills", skillsCollection

    ' DictionaryをJSON文字列に変換
    jsonString = ConvertToJson(postData)

    ' 結果をイミディエイトウィンドウに出力
    Debug.Print jsonString
    ' 想定される出力: {"name":"鈴木 一郎","age":25,"skills":["Word","PowerPoint"]}

    ' オブジェクトの解放
    Set postData = Nothing
    Set skillsCollection = Nothing
End Sub

ポイントは、JSONの「{ }」はDictionary、「[ ]」はCollectionで組み立てるという点です、パースのときと逆の対応関係になっているだけなので、慣れると自然に書けるようになります

この jsonString をWeb APIに送信(POSTなど)すれば、VBAで作ったデータをサーバーに送れます

改行付きで見やすく出力したいとき

デフォルトのままだと、生成されるJSONは改行なしの一行になります、人が読む用にきれいに整形したいときは、Whitespace オプションを付けます

' インデント2つ分で改行を入れて整形
jsonString = ConvertToJson(postData, Whitespace:=2)

ファイルに保存して中身を確認したいときなんかは、こちらのほうが見やすくておすすめです

VBA-JSONを使わずにJSONを扱う方法(JScript)

ここまでVBA-JSONをおすすめしてきましたが、「ライブラリを追加したくない」「配布先でインポートさせるのが面倒」というケースもありますよね

そういうときの代替案として、Windows標準のJScriptエンジンを使ってJSONをパースする方法もあるので紹介しておきます

JScriptはWindowsに最初から入っているスクリプト実行の仕組みで、これを ScriptControl という部品から呼び出すと、JavaScriptの JSON.parse をVBAから間接的に使えます

Sub ParseByJScript()
    Dim sc As Object
    Dim jsonText As String
    Dim parsed As Object

    jsonText = "{""name"":""Javeo"",""height"":180}"

    ' JScriptエンジンを用意
    Set sc = CreateObject("ScriptControl")
    sc.Language = "JScript"

    ' JavaScriptのJSON.parseで解析
    Set parsed = sc.Eval("(" & jsonText & ")")

    ' プロパティ名で値を取り出す
    Debug.Print parsed.name   ' → Javeo
    Debug.Print parsed.height ' → 180
End Sub

この方法のメリットは、外部ライブラリのインポートが要らないことです

ただ、いくつか弱点もあって、正直なところ常用にはVBA-JSONのほうが向いています

• ScriptControl は32bit版のOfficeでしか動かない(64bit版では別の書き方が必要)
• 取り出した値の扱い(配列やネスト)がVBA-JSONより少しクセがある
• Macでは使えない

なので個人的には、基本はVBA-JSON、どうしてもライブラリを足せない事情があるときだけJScriptという使い分けがおすすめです

VBA-JSONのよくあるつまずき・FAQ

VBA-JSONでハマりやすいポイントを、質問形式でまとめておきます、エラーが出たらまずここを確認してみてください

「ユーザー定義型は定義されていません」と出る

これは 参照設定の漏れがほぼ原因です

VBA-JSONはDictionaryを使うので、WindowsのExcelなら「ツール → 参照設定」で Microsoft Scripting Runtime にチェックが入っているか確認してください、入っていなければチェックを入れて保存し、もう一度実行すれば直ります

MacのExcelの場合は、前述のVBA-Dictionary(Dictionary.cls)を取り込んでいるかを確認しましょう

「KeyNotFoundError」のようなエラーが出る

これは、JSONに存在しないキー名を指定して取り出そうとしたときに出るエラーです

キー名のタイプミス、大文字小文字の違い、そもそもそのキーが無いJSONだった、あたりが定番の原因ですね

このエラーはハマりやすいので、原因の切り分けと対処法を VBA-JSONでKeyNotFoundErrorが発生するときの対処をまとめた記事 で別途くわしく解説しています、同じエラーで止まっている方はそちらをどうぞ

日本語が文字化けする

Web APIから取得したJSONの日本語が文字化けする場合は、文字コードの取り違えが原因のことが多いです

多くのAPIはUTF-8で返してくるので、responseText をそのまま使うとShift_JIS環境で化けることがあります、その場合は responseBody(バイト列)を取得して、UTF-8として読み直すと直ります

Dim stream As Object
Set stream = CreateObject("ADODB.Stream")
stream.Open
stream.Type = 1               ' バイナリ
stream.Write http.responseBody
stream.Position = 0
stream.Type = 2               ' テキスト
stream.Charset = "UTF-8"       ' UTF-8として読み直す
jsonText = stream.ReadText
stream.Close

キーがあるか分からないとき、どう書けばいい？

キーが存在するか不安なときは、取り出す前に .Exists でチェックすると安全です(Dictionaryの機能です)

If parsedData(1).Exists("weight") Then
    Debug.Print parsedData(1)("weight")
Else
    Debug.Print "weightキーはありません"
End If

これを挟んでおくと、キーが無いJSONが来てもエラーで止まらずに処理を続けられます

VBA-JSONの活用例

導入と使い方が分かったところで、「で、実際どんなことに使えるの？」というイメージを少し具体的にしておきます

いちばん多いのは、やはり Web APIのレスポンス(JSON)をパースしてシートに展開するパターンです、為替レート・天気・在庫情報みたいな「外部の最新データ」をExcelに自動で取り込めると、手作業のコピペがまるごと無くなります

たとえばフリマやECのAPIを叩いて、出品データや売上をExcelに集計する、みたいな使い方ですね、APIへリクエストを送る具体的な書き方は eBay APIにVBAでリクエストを送る方法の記事 にまとめているので、JSONパースと組み合わせると一通りの流れがつかめます

逆に ConvertToJson 側だと、VBAで組み立てたデータをJSONにして、メール本文やAPIのリクエストボディに載せる、といった使い方ができます、VBAから自動でメールを送る仕組みは VBAでGmailを送信する方法の記事 で扱っているので、データ生成と通知を組み合わせたい方はあわせてどうぞ

そもそもVBA自体がはじめてで「Dim とか For Each の書き方からあやしい…」という方は、先に VBA入門の記事 で基礎をさらっておくと、この記事のコードもぐっと読みやすくなると思います

AIにVBA-JSONのコードを書いてもらうコツ

最近はClaudeやChatGPTにVBAコードを書いてもらう人も増えてきました、もちろんVBA-JSONを使ったコードも、頼めば書いてくれます

ただ、AIにそのまま「VBAでJSONをパースして」と頼むと、意図しない実装を返してくることがあるんですよね

• VBA-JSONを使わず、自前のJSON解析関数をゼロから書こうとする
• 参照設定の前提がズレていて、そのままだと動かないコードを返す
• 標準機能だけで無理やり読もうとして、やたら長いコードになる

こうしたズレを避けるには、依頼するときに次のような前提を明示するのがおすすめです

VBAで○○のJSONデータをパースするコードを書いてほしい
前提:
- VBA-JSON(JsonConverter.bas)を導入済み
- ParseJson の戻り値を Dictionary / Collection として直接扱う
- 参照設定は Microsoft Scripting Runtime を入れている前提
- 配列は番号、オブジェクトはキー名でアクセスする形で

エラーが出たときも、コードとエラーメッセージをまとめて貼り付ければ、AIが原因と対処をだいたい提示してくれます、自分でハマる時間がかなり減らせるので、これは活用しない手はないです

ClaudeでVBAコードを書いてもらう基本的な流れは Claudeの使い方を初心者向けに解説した記事 にまとめているので、AIにコードを頼むのが初めての方は、そちらから読むとスムーズだと思います

まとめ

VBA-JSONを使えば、これまでVBAでは扱いにくかったJSONが、ぐっと身近になります

導入のポイントはこの2つだけです

• JsonConverter.bas をVBEにインポートする
• Microsoft Scripting Runtime に参照設定する(Macは VBA-Dictionary)

使い方も、覚える関数は2つだけです

• JSONを読み込むなら ParseJson(配列は番号、オブジェクトはキー名で取り出す)
• JSONを書き出すなら ConvertToJson(「{ }」はDictionary、「[ ]」はCollectionで組む)

この導入2ステップと関数2つさえ押さえれば、Web APIとの連携をはじめ、VBAでできることの幅がかなり広がります

まずは手元の短いJSONを ParseJson に通して、Debug.Print で1個取り出してみるところから始めると、感覚がつかみやすいと思います

VBAの独学に効く本PR

Excel VBA塾【動画×本で学ぶ!】

たてばやし淳

Amazonで見る楽天で見る

パーフェクトExcel VBA

高橋宣成

Amazonで見る楽天で見る

Excel マクロ&VBA［実践ビジネス入門講座］完全版 第3版

国本温子

Amazonで見る楽天で見る

私のおすすめからランダムで3冊を表示しています

待機処理が必要な理由

SeleniumでWebサイトを操作するときにありがちな内容がこちら

• ページロードが完了していないうちに要素を取得してエラー
• JavaScriptで動的に生成されるボタンや入力欄がまだ非表示
• ボタンが表示されてもクリック可能になる前に操作しようとしてエラー

これらを解決するには「要素が存在する・表示される・有効になる」まで待機処理が必要です

WebDriverWaitクラスでできること

今回作ったVBAクラス WebDriverWait は、PythonのWebDriverWaitに近い操作性で以下の条件を待機できます

ポイント：

• 成功時は WebElement を返す
• タイムアウト時は Nothing を返す
• Pythonのように例外処理に頼らずVBAらしい安全な設計

VBA版WebDriverWaitの実装例

以下のクラスモジュールをVBAに追加してください※クラス名は WebDriverWait にしています

'--- クラス名: WebDriverWait ---
Option Explicit
'====================================================================================================
' PythonのWebDriverWaitの一部を再現したクラス
' ※条件に合致した場合はWebElementを返して一致しなかった場合はNothingを返す
'   - UntilPresenceeLocated・DOM上に指定したelementが表示されるまで待機は発生し得ないから準備していない
'   - UntilPresence・・・・・DOM上に指定したByが表示されるまで待機
'   - UntilVisibleLocated・・画面上に指定したelementが表示されるまで待機（IsDisplayed）
'   - UntilVisible ・・・・・画面上に指定したByが表示されるまで待機（IsDisplayed）
'   - UntilEnableLocated・・画面上に指定したelementが利用できるまで待機（IsDisplayed & IsEnabled）
'   - UntilEnable ・・・・・画面上に指定したByが利用できるまで待機（IsDisplayed & IsEnabled）
'====================================================================================================
Private pDriver As Selenium.WebDriver
Private pTimeout As Double
Private pInterval As Double

Public Sub Init(driver As Selenium.WebDriver, Optional timeoutSeconds As Double = 10, Optional intervalSeconds As Double = 0.5)
    Set pDriver = driver
    pTimeout = timeoutSeconds
    pInterval = intervalSeconds
End Sub

' Presence
Public Function UntilPresence(By As Selenium.By) As Selenium.WebElement
    Dim start As Double: start = Timer
    Dim elem As Selenium.WebElement
    
    Do
        On Error Resume Next
        Set elem = pDriver.FindElement(By)
        On Error GoTo 0
        
        If Not elem Is Nothing Then
            Set UntilPresence = elem
            Exit Function
        End If
        
        DoEvents
        Application.wait Now + TimeSerial(0, 0, pInterval)
    Loop While Timer - start < pTimeout
    
    Set UntilPresence = Nothing
End Function

' Visibility (By指定)
Public Function UntilVisibleLocated(By As Selenium.By) As Selenium.WebElement
    Dim start As Double: start = Timer
    Dim elem As Selenium.WebElement
    
    Do
        On Error Resume Next
        Set elem = pDriver.FindElement(By)
        On Error GoTo 0
        
        If Not elem Is Nothing Then
            If elem.IsDisplayed Then
                Set UntilVisibleLocated = elem
                Exit Function
            End If
        End If
        
        DoEvents
        Application.wait Now + TimeSerial(0, 0, pInterval)
    Loop While Timer - start < pTimeout
    
    Set UntilVisibleLocated = Nothing
End Function

' Visibility (element指定)
Public Function UntilVisible(elem As Selenium.WebElement) As Selenium.WebElement
    Dim start As Double: start = Timer
    
    Do
        If Not elem Is Nothing Then
            If elem.IsDisplayed Then
                Set UntilVisible = elem
                Exit Function
            End If
        End If
        
        DoEvents
        Application.wait Now + TimeSerial(0, 0, pInterval)
    Loop While Timer - start < pTimeout
    
    Set UntilVisible = Nothing
End Function

' Enable (By指定)
Public Function UntilEnableLocated(By As Selenium.By) As Selenium.WebElement
    Dim start As Double: start = Timer
    Dim elem As Selenium.WebElement
    
    Do
        On Error Resume Next
        Set elem = pDriver.FindElement(By)
        On Error GoTo 0
        
        If Not elem Is Nothing Then
            If elem.IsDisplayed And elem.IsEnabled Then
                Set UntilEnableLocated = elem
                Exit Function
            End If
        End If
        
        DoEvents
        Application.wait Now + TimeSerial(0, 0, pInterval)
    Loop While Timer - start < pTimeout
    
    Set UntilEnableLocated = Nothing
End Function

' Enable (element指定)
Public Function UntilEnable(elem As Selenium.WebElement) As Selenium.WebElement
    Dim start As Double: start = Timer
    
    Do
        If Not elem Is Nothing Then
            If elem.IsDisplayed And elem.IsEnabled Then
                Set UntilEnable = elem
                Exit Function
            End If
        End If
        
        DoEvents
        Application.wait Now + TimeSerial(0, 0, pInterval)
    Loop While Timer - start < pTimeout
    
    Set UntilEnable = Nothing
End Function

使い方サンプル

このブログの練習用ページでテストできるようにしていますので自由にテストしてください

ポイントはInit部分で引数は下記の通りです

wait.Init driver, {最大待機秒数}, {判定間隔}

Sub test()
    Dim driver As New Selenium.ChromeDriver
    Dim By As New Selenium.By
    
    driver.Get "https://javeo.jp/practice_scraping/"

    Dim wait As New WebDriverWait
    wait.Init driver, 10, 0.5

    ' presence_of_element_located(By)
    Dim elemUser As Selenium.WebElement
    Set elemUser = wait.UntilPresence(By.Css("#input_test"))
    

    ' visibility_of_element_located(By)
    Dim elemPass As Selenium.WebElement
    Set elemPass = wait.UntilVisibleLocated(By.Css("#textarea_test"))

    ' element_to_be_clickable(By)
    Dim elemBtn As Selenium.WebElement
    Set elemBtn = wait.UntilClickableLocated(By.Css("[name=""checkbox_test""]"))

    
    elemUser.SendKeys "testuser"
    elemPass.SendKeys "secret"
    elemBtn.Click
End Sub

まとめ

個人的にPythonでもSeleniumを使うのでWebDriverWaitが使えない不便さを感じていました

PythonとVBAでは思想も違うので適当にいじってますが、ほぼ同じように使えてスッキリです！

やっていること

1. chromedriverの保存先は端末環境によって違うので候補となる3箇所のフォルダ有無を確認
2. chromeの保存先も端末環境によって違うので候補となる3箇所のフォルダ有無を確認
3. PowerShellでchromeのバージョンを取得する
   ※なので一瞬PowerShellの画面がチラつきます
4. APIでChrome.exeのビルドまで一致している最新chromedriverのダウンロードパスを取得
5. ダウンロードしたzipファイルを解凍してをseleniumbasic用のフォルダへコピーする

以前作成したVBAはJSON API endpointsを総当たりで取得していたのでJSONをパースする必要がありましたが、APIでドライバのバージョンを直接取得できることに気づいて少し手順を簡略化できました

処理としては数秒しか変わりませんがVBA-JSOＮ不要になったのは個人的にGoodポイント

ここからは以前と同じことを書いてますが単独でこのページを見ていただいた方向けです

必要な参照設定

このプログラムを実行するために設定した参照設定

追加したのは下記3つ

• Microsoft Scripting Runtime
• Microsoft XML, v6.0
• Selenium Type Library

ここは旧バージョンと変わりありません

ファイルへの反映手順

サンプルファイルとソースは下部に準備していますがファイルへの反映方法がわからない方向けに反映と使い方です

そんなことわかってるからはよソースを！って方は下部のソースまで飛んじゃってください

プロパティウィンドウを表示しておく

あとからモジュール名を変更したいので、もし表示されていない時は表示しておく

標準モジュールを追加

自動更新プログラム用にモジュールを追加する

モジュール名を変更する

必須ではないんですが、わかりやすい運用のためにはモジュール名変更推奨です

今回は”ChromeDriverAutoUpdateModule“にします

プログラムの使い方

「<モジュール名>.<プロシージャ名>() ※”<モジュール名>.”は省略可」でプログラムを呼び出せるので、本体プログラムの最初に「ChromeDriverAutoUpdateModule.ChromeDriverAutoUpdate()」を追加すれば必要なときにchromedriverが自動更新されます

Sub main()
'---Chromedriverの自動更新 ※別モジュールを参照
If ChromeDriverAutoUpdateModule.ChromeDriverAutoUpdate Then
    Exit Sub
End If

'－－・－－・－－以下にプログラムを－－・－－・－－
End Sub

Chromedriverの書き込み権限がない時

Winsows11からセキュリティ周りが厳しくなったのか管理者権限でSeleniumBasicをインストールした場合、Chromedriverを更新しようとすると書き込み権限なしエラーが発生するので対応まとめました

画像の通りですが下記手順で権限設定ができます

1. “C:\Program Files”にある”SeleniumBasic”フォルダを右クリック
2. 右クリックメニューで”プロパティ”をクリック
3. セキュリティタブに移って”編集”ボタンをクリック
4. “Users（{コンピュータ名}\Users）”をクリック
5. “フルコントロール”にチェックがついていないはずなのでクリックしてチェックを付ける
6. “適用”ボタンをクリック

サンプルファイル

JSON-VBA含めて最低限のモジュールをセットしたファイル準備したので一から作る時のベースにしていただければ

最後に実際のソース

まずはGithubをご利用の方向けはこちら

https://github.com/javeo2022/webdriver_manager_VBA_Lite

例によってコピペ用はこちらです

Option Explicit
#If VBA7 Then
Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
                        (ByVal pCaller As Long, _
                         ByVal szURL As String, _
                         ByVal szFileName As String, _
                         ByVal dwReserved As Long, _
                         ByVal lpfnCB As Long) As Long
Private Declare PtrSafe Function SHCreateDirectoryEx Lib "shell32.dll" Alias "SHCreateDirectoryExA" _
                        (ByVal hwnd As LongPtr, ByVal pszPath As String, ByVal psa As LongPtr) As Long
#Else
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
                        (ByVal pCaller As Long, _
                         ByVal szURL As String, _
                         ByVal szFileName As String, _
                         ByVal dwReserved As Long, _
                         ByVal lpfnCB As Long) As Long
Private Declare Function SHCreateDirectoryEx Lib "shell32.dll" Alias "SHCreateDirectoryExA" _
                        (ByVal hwnd As LongPtr, ByVal pszPath As String, ByVal psa As LongPtr) As Long
#End If

Private Type VersionType '---本当はクラスオブジェクトにしたいけどこれだけのためにモジュール作りたくない
    Major As Long
    Minor As Long
    Build As Long
    Revision As Long
    BuildVersion As String
    RevisionVersion As String
End Type
Const ZIP_FILE As String = "chromedriver.zip"
Const DRIVER_EXE As String = "chromedriver.exe"
Dim workPath As String
Sub test()
Call ChromeDriverAutoUpdate
End Sub
Public Function ChromeDriverAutoUpdate(Optional ByVal ForcedExecution As Boolean = False) As Boolean
'====================================================================================================
'chrome.exeとchromedriver.exeのバージョンを比較してchromedriverを自動更新する
'もしくは強制実行フラグ（ForcedExecution）がTrueでも実行する
'====================================================================================================
    Dim chromePath As String '---chrome.exeが保存されているパス
    Dim chromeFullpath As String '---chrome.exeまで含めたフルパス
    Dim chromeVersion As VersionType
    Dim chromedriverPath As String
    Dim chromedriverFullPath As String
    Dim objFso As New Scripting.FileSystemObject
    ' ---chromedriverをダウンロード用のフォルダを作成する　※Seleniumのキャッシュ構造に合わせている
    workPath = Environ("USERPROFILE") & "\.cache\selenium\seleniumbasic"
    Select Case SHCreateDirectoryEx(0&, workPath, 0&)
        Case 0:
            ' ---作成成功
        Case 183
            ' ---作成済み
        Case Else:
            ' ---作成できなかった時
            MsgBox "ダウンロード用フォルダを作成できませんでした" & vbCrLf & Error(Err), vbCritical
            ChromeDriverAutoUpdate = False
            Exit Function
    End Select
    
    '---chrome本体のフォルダを探す
    Select Case True
        Case objFso.FolderExists(Environ("LOCALAPPDATA") & "\Google\Chrome\Application")
            chromePath = Environ("LOCALAPPDATA") & "\Google\Chrome\Application"
        Case objFso.FolderExists(Environ("ProgramW6432") & "\Google\Chrome\Application")
            chromePath = Environ("ProgramW6432") & "\Google\Chrome\Application"
        Case objFso.FolderExists(Environ("ProgramFiles") & "\Google\Chrome\Application")
            chromePath = Environ("ProgramFiles") & "\Google\Chrome\Application"
        Case Else
            MsgBox "'chrome'フォルダが見つかりません", vbCritical
            ChromeDriverAutoUpdate = False
            Exit Function
    End Select
    
    '---念のためchrome.exeを確認する
    If objFso.FileExists(chromePath & "\chrome.exe") = True Then
        chromeFullpath = chromePath & "\chrome.exe"
    Else
        MsgBox "'chrome.exe'が見つかりません", vbCritical
        Exit Function
    End If
    
    '---SeleniumBasicのフォルダを探す
    Select Case True
        Case objFso.FolderExists(Environ("LOCALAPPDATA") & "\SeleniumBasic")
            chromedriverPath = Environ("LOCALAPPDATA") & "\SeleniumBasic"
        Case objFso.FolderExists(Environ("ProgramW6432") & "\SeleniumBasic")
            chromedriverPath = Environ("ProgramW6432") & "\SeleniumBasic"
        Case objFso.FolderExists(Environ("ProgramFiles") & "\SeleniumBasic")
            chromedriverPath = Environ("ProgramFiles") & "\SeleniumBasic"
        Case Else
            MsgBox "'SeleniumBasic'のフォルダが見つかりません", vbCritical
            ChromeDriverAutoUpdate = False
            Exit Function
    End Select
    
    '---念のためchromedriver.exeを確認する
    If objFso.FileExists(chromedriverPath & "\" & DRIVER_EXE) = False Then
        Debug.Print "'chromedriver.exe'が見つかりませんでした"
    End If
    chromedriverFullPath = chromedriverPath & "\" & DRIVER_EXE
        
    '---chrome.exeのバージョンを取得する
    If GetChromeVersion(chromeFullpath, chromeVersion) = False Then '---chrome.exeのバージョンを取得する
        MsgBox "'chrome.exe'のバージョンが取得できませんでした", vbCritical
        ChromeDriverAutoUpdate = False
        Exit Function
    End If
    
    '---chrome.exeのバージョンに合わせたchromedriver.exeをダウンロードする
    If ChromedriverQuickCheck(chromedriverPath, chromeVersion) = False Then '---chromedriverのバージョンを取得する
        MsgBox "'chromedriver.exe'のバージョンが取得できませんでした", vbCritical
        ChromeDriverAutoUpdate = False
        Exit Function
    End If
    
    '---結果として更新していない場合もあるが、更新失敗じゃなくて更新不要な判定だからTrueを返す
    ChromeDriverAutoUpdate = True
Exit Function
ErrLabel:     '---予期せぬエラーの分岐
    MsgBox "chromedriver の入替に失敗しました" & vbCrLf & Error(Err) & vbCrLf & "※この画面のキャプチャを作成者へ送ってください"
    ChromeDriverAutoUpdate = False
End Function
Private Function GetChromeVersion(ByVal chromeFullpath As String, ByRef chromeVersion As VersionType) As Boolean
'====================================================================================================
'PowerShellでchrome.exeのバージョン情報を取得する　※一瞬PowerShellが立ち上がる
'====================================================================================================
    Dim command As String
    Dim objRet As Object
    
    On Error GoTo ErrLabel
        '---chromeバージョン情報の初期値
        chromeVersion.Major = 1
        chromeVersion.Minor = 0
        chromeVersion.Build = 0
        chromeVersion.Revision = 0
        '---chrome.exeのバージョンを取得するPowerShellコマンド
        command = "powershell.exe -NoProfile -ExecutionPolicy Bypass (Get-Item -Path '" & chromeFullpath & "').VersionInfo.FileVersion"
        '---PowerShellの実行結果をセット
        Set objRet = CreateObject("WScript.Shell").Exec(command)
        '---PowerShellのコマンドレットの実行結果を取得
        chromeVersion.RevisionVersion = Trim(objRet.StdOut.ReadAll)
        '---情報の取得が終わったらオブジェクトをクリアする
        Set objRet = Nothing
        '---改行コードが含まれているから削除する
        chromeVersion.RevisionVersion = Trim(Replace(Replace(Replace(chromeVersion.RevisionVersion, vbCrLf, vbNullString), vbCr, vbNullString), vbLf, vbNullString))
        '---バージョン情報を分けて返す
        With CreateObject("VBScript.RegExp") '---正規表現の準備
            .Pattern = "\d+\.\d+\.\d+(\.\d+)?"
            .Global = True
            If .test(chromeVersion.RevisionVersion) Then '---念のため正規表現でバージョン情報をチェックする
                chromeVersion.Major = CLng(Split(chromeVersion.RevisionVersion, ".")(0))
                chromeVersion.Minor = CLng(Split(chromeVersion.RevisionVersion, ".")(1))
                chromeVersion.Build = CLng(Split(chromeVersion.RevisionVersion, ".")(2))
                If UBound(Split(chromeVersion.RevisionVersion, ".")) >= 3 Then '---リビジョン番号がなければ9999を仮でセット※基本あるはず
                    chromeVersion.Revision = CLng(Split(chromeVersion.RevisionVersion, ".")(3))
                Else
                    chromeVersion.Revision = 9999
                End If
                chromeVersion.BuildVersion = Join(Array(chromeVersion.Major, chromeVersion.Minor, chromeVersion.Build), ".") '---リビジョンを覗いたショートバージョン情報をセットする
                Debug.Print "Chromeのバージョン：" & chromeVersion.RevisionVersion
            Else '---正規表現不一致なら失敗で返す
                MsgBox "chrome.exe のバージョン情報取得に失敗しました" & vbCrLf & "[取得バージョン情報：" & chromeVersion.RevisionVersion & "]" & vbCrLf & "※この画面のキャプチャを作成者へ送ってください"
                GetChromeVersion = False
                Exit Function
            End If
        End With
        GetChromeVersion = True
    On Error GoTo 0
    Exit Function
ErrLabel:     '---予期せぬエラーの分岐
    MsgBox "chrome.exe のバージョン情報取得に失敗しました" & vbCrLf & "[" & Error(Err) & "]" & vbCrLf & "※この画面のキャプチャを作成者へ送ってください"
    GetChromeVersion = False
End Function
Private Function ChromedriverQuickCheck(chromedriverPath, chromeVersion As VersionType) As Boolean
    Dim objHttp As New MSXML2.XMLHTTP60
    Dim targetVarsion As String
    Dim uri As String
    Dim api_endpoints As String
    Dim downloadPath As String
    Dim objFso As New Scripting.FileSystemObject
    Const TARGET_PLATFORM As String = "win64"

    api_endpoints = "https://googlechromelabs.github.io/chrome-for-testing/LATEST_RELEASE_" & chromeVersion.BuildVersion
    On Error GoTo ErrLabel
        With objHttp
            .Open "GET", api_endpoints, False
            .Send
            targetVarsion = .responseText '---JSON endpoints から情報を収集する
            downloadPath = workPath & "\" & targetVarsion
            '--- 念のためリビジョンバージョンを比較する
            If chromeVersion.Major >= CLng(Split(targetVarsion, ".")(0)) Then
                '--- まだダウンロードしていなかったらダウンロードする
                If objFso.FileExists(downloadPath & "\" & DRIVER_EXE) = False Then
                    uri = "https://storage.googleapis.com/chrome-for-testing-public/" & targetVarsion & "/" & TARGET_PLATFORM & "/chromedriver-" & TARGET_PLATFORM & ".zip"
                    Call DownloadChromedriver(uri, targetVarsion)
                    Call objFso.DeleteFile(chromedriverPath & "\" & DRIVER_EXE, True)
                    Debug.Print "インストールしたChromedriverのバージョン：" & targetVarsion
                End If
                '--- chromedriverはいつでも上書きする
                Call objFso.GetFile(downloadPath & "\" & DRIVER_EXE).Copy(chromedriverPath & "\" & DRIVER_EXE, True)
            Else
                Debug.Print "Chromeのバージョンが古いためChromedriverは更新しません"
            End If
        End With
    On Error GoTo 0
    ChromedriverQuickCheck = True
    Exit Function
ErrLabel:     '---予期せぬエラーの分岐
    MsgBox "chromedriver.exe の更新に失敗しました" & vbCrLf & "[" & Error(Err) & "]" & vbCrLf & "※この画面のキャプチャを作成者へ送ってください"
    ChromedriverQuickCheck = False
End Function
Private Function DownloadChromedriver(ByVal url As String, targetVersion As String) As Boolean
    Dim rc As Long
    Dim downloadPath As String
    Dim newDriverPath As String
    Dim objFso As New Scripting.FileSystemObject
    Dim objFolder As Scripting.Folder
    downloadPath = workPath & "\" & targetVersion
    ' ---chromedriverのフォルダを作成する
    Select Case SHCreateDirectoryEx(0&, downloadPath, 0&)
        Case 0:
            ' ---作成成功
        Case 183
            ' ---作成済み
        Case Else:
            ' ---作成できなかった時
            MsgBox "ChromeDriver用フォルダを作成できませんでした" & vbCrLf & Error(Err), vbCritical
            DownloadChromedriver = False
            Exit Function
    End Select
    
    '---ファイルをダウンロードする
    If URLDownloadToFile(0, url, workPath & "\" & ZIP_FILE, 0, 0) <> 0 Then
        MsgBox "ChromeDriverをダウンロードできませんでした" & vbCrLf & Error(Err), vbCritical
        DownloadChromedriver = False
        Exit Function
    End If
    Application.DisplayAlerts = False
    '---zipを既定のフォルダに向けて解凍する
    With CreateObject("Shell.Application") '---zipを既定のフォルダに向けて解凍する
        .Namespace((downloadPath)).CopyHere .Namespace((workPath & "\" & ZIP_FILE)).Items
    End With
    '--- 解凍したフォルダから再起処理してchromedriver.exeのフルパスを取得する
    newDriverPath = SearchFilesRecursively(downloadPath & "\", "chromedriver.exe")
    If newDriverPath = "" Then
        MsgBox "chromedriver.exe の更新に失敗しました"
        DownloadChromedriver = False
    End If
    '---chromedriverをバージョンフォルダ直下に移動する
    Call objFso.MoveFile(newDriverPath, downloadPath & "\")
    '---chromedriverがなくなった不要フォルダを削除する
    For Each objFolder In objFso.GetFolder(downloadPath).SubFolders
        objFolder.Delete True
    Next
    '---zipファイルを削除する
    Call objFso.DeleteFile(workPath & "\" & ZIP_FILE, True)
    Application.DisplayAlerts = True
    DownloadChromedriver = True
End Function
Function SearchFilesRecursively(ByVal folderPath As String, fileName As String) As String
    '====================================================================================================
    ' folderPathを起点に再帰処理でサブフォルダまで対象にしてfileNameを探してフルパスを返す
    '====================================================================================================
    Dim objFso As New Scripting.FileSystemObject
    Dim objFolder As Scripting.Folder
    Dim subFolder As Scripting.Folder
    Dim objFile As Scripting.File
    Dim result As String

    ' ファイル一覧をチェック
    For Each objFile In objFso.GetFolder(folderPath).Files
        If objFile.Name = fileName Then
            SearchFilesRecursively = objFile.Path
            Exit Function
        End If
    Next objFile

    ' サブフォルダを再帰的に探索
    For Each subFolder In objFso.GetFolder(folderPath).SubFolders
        result = SearchFilesRecursively(subFolder.Path, fileName)
        If result <> "" Then
            SearchFilesRecursively = result
            Exit Function
        End If
    Next subFolder

    ' 見つからなかった場合
    SearchFilesRecursively = ""
End Function

あとがき

こちらが後出しなので簡易版としましたがむしろこちらを正規版で過去作成した方を特殊版にした方がいいかなと思っているレベル

今後改修するとしたらこちらになる予定です

ループ処理とは

ループ処理とは、”指定条件の間“や”条件を満たすまで“繰り返し実行する仕組みのことです

例えば、セルA1からA10までの値を順番に読み取る、リストの中から条件に合うデータだけを抽出する、などの場面で使われます

VBAにはいくつかのループ構文があり、目的や処理対象に応じて使い分けることが重要です

For Next について

For Nextは、指定した回数だけ繰り返すループ処理の中では基本的かつ他の言語でも多く使われる処理です

VBAでは

For {変数} To {初期値} To {上限} [Step {加算数}] ・・・処理・・・ Next [{変数}]

の形で記載し、{変数}は数値になるので必然的にLong型やInteger型などを選択することに
※[]内は省略可能

↓↓のサンプルコードは、1から10までの数字をカウンター変数を使って順番に表示します

Dim i As Long
For i = 1 To 10
    Debug.Print i
Next i

Stepで増減を調整

Stepは指定しなければ1が適用されますが、負の値含め指定すると変動幅を調整できます

例えば「奇数行だけ～」などの制御であれば Step 2 を指定することで条件分岐しなくても奇数だけのループが実現できます

For i = 1 To 10 Step 2
    Debug.Print i ' ---1，3，5，7，9
Next i

For Each Next について

For Each Nextは、コレクション（複数の要素を持つオブジェクト）を対象にしたループです

For Each {変数} In {オブジェクト} ・・・処理・・・ Next [{変数}]

で記載しますがこちらは変数をVariant型で指定するのがVBAでのお作法

活用シーンはオブジェクトを取り扱う際が多いと思うのですが、覚え始めの頃はオブジェクト自体そこまで利用しないと思うので個人的には中級者以上向けかなと思っています

↓のサンプルでは、A1からA10までのセルの値を順番に表示します

For Eachは、対象の要素数が不定の場合や、オブジェクトを扱うときに特に有効です

Dim cell As Range
For Each cell In Range("A1:A10")
    Debug.Print cell.Value
Next cell

配列などFor Nextで代替できる（時もある）

VBAにはLBound、UBoundでインデックスの最小値と最大値を取得することができます

配列であればインデックスを順番に指定すれば代替になるのでこの方法でOK

↓↓はどちらも同じ結果になります

Dim sample As Variant
Dim v As Variant

sample = Array("a", "b", "c", "d", "e")
For Each v In sample
    Debug.Print v
Next

Dim i As Long
For i = LBound(sample) To UBound(sample)
    Debug.Print sample(i)
Next

Do Loop について

Do Loopは、条件に応じて繰り返すループです

繰り返しの終了条件を柔軟に設定できるため、より複雑な処理に向いていてFor Nextならサンプルの通りDo Loopでの代替も可能

Do ・・・処理・・・Loop

だけですが細々あるので以降詳細です

Whileを使う場合

Whileは「条件が真の間、繰り返す」という意味です

これが一番の基本形というか、Do Loopの8割くらいはこの記載になるはず

Dim i As Integer
i = 1
Do While i <= 10
    Debug.Print i
    i = i + 1
Loop

Untilを使う場合

Untilは「条件が偽の間、繰り返す」という意味で、Whileと逆の考え方になります

あえてUntilを使うシーンはあまりないと思うので誰かが書いたプログラムを読み解くための知識程度に

Dim i As Integer
i = 1
Do Until i > 10
    Debug.Print i
    i = i + 1
Loop

Doの後ろ・Loopの後ろ、どちらでも条件指定可能

Doの後ろにWhile/Untilを記載するのが基本形ですが、Loopの後ろでも動作します

初回は無条件で処理をする場合には便利ですが、条件で何とかなるケースがほぼだと思うのでこちらも知識程度に

Do While i <= 10
    ' 処理
Loop

Do
    ' 処理
Loop While i <= 10

条件分岐とExitでループを抜ける場合

While/Untilを使わなくてもIfやSelect Caseの条件分岐の中でExit Doを使えば、条件に応じてループの途中で抜けることができます

が、条件に合致しないと無限ループに陥ることもあるのであまり推奨はしていません

Do
    If 条件 Then Exit Do
    ' 処理
Loop

While WendはDo While Loopと同じ

古い構文でWhile WendはなるものがあってDo While Loopと同じ動作をします

あえて使う必要もないのでこれまた知識程度に

Dim i As Integer
i = 1
While i <= 10
    Debug.Print i
    i = i + 1
Wend

Exitを使った途中抜け

途中でも紹介しましたがExit For/Doで途中抜けすることもできます（他の言語ではbreakが多いです）

このコードは、1〜4までを表示し、5でループを終了します

For i = 1 To 10
    If i = 5 Then Exit For
    Debug.Print i
Next i

他言語にあるContinueについて

他の言語にはcontinueというキーワードがあり、「その回の処理をスキップして次のループへ進む」ことができます

VBAにはcontinueがありませんが、GoToを使って似たような動作を実現できます

このコードは、5のときだけ処理をスキップしますがGotoは可読性が下がるため、使用は最小限に留めるのがベター

For i = 1 To 10
    If i = 5 Then GoTo Skip
    Debug.Print i
Skip:
Next i

まとめ

ループ処理はVBAの基礎中の基礎ですが、奥が深く、使いこなすことで業務効率が劇的に向上しますので是非マスターしましょう！