Excelで数式バーが消えるのはなぜ？原因5つと秒速で復活させる全手順

「あれ、さっきまであった数式バーがない……？」Excelで作業中に突然こうなったら、誰だって焦りますよね。セルをクリックしても中身が確認できない。関数を編集したいのに、どこに書けばいいかわからない。まるで料理中にまな板が消えたような、あの困惑感。実はこのトラブル、Excelユーザーなら誰もが一度は経験する「あるある」なんです。

しかも厄介なことに、自分では何も設定を変えた覚えがないのに、ある日突然消えるケースがほとんど。Microsoft 365（旧Office 365）の自動アップデート後や、誰かから受け取ったファイルを開いた直後に発生することも多く、原因がわかりにくいのが困りモノです。

この記事では、Excelの数式バーが消えてしまう原因を徹底的に洗い出し、初心者でも迷わず復活させられる手順をすべて網羅しました。さらに「チェックを入れ直しても何度も消える」という厄介な再発パターンへの対処法や、2026年最新のMicrosoft 365で報告されている数式バー関連の不具合情報まで、他の記事では触れていない深い内容までカバーしています。

ここがポイント！

数式バーが消える5つの原因と、それぞれに対応した具体的な復旧手順の解説
チェックを入れ直しても繰り返し消える「再発パターン」への根本的な対処法
2026年最新のMicrosoft 365環境で起きている数式バーの表示トラブルと回避策

そもそも数式バーって何のためにあるの？
数式バーが消える5つの原因を完全解説
数式バーを復活させる方法を手順つきで解説
何度やっても数式バーが消える「再発問題」への対処法
数式バーの表示がおかしいときの追加トラブルシューティング
2026年最新のExcel環境で知っておくべきこと
Excelで数式バーが消えるに関する疑問解決
情シス歴10年超の現場視点で語る「本当にあったExcel数式バー事件簿」
VBAで数式バーのトラブルを根本解決するコード集
企業環境で数式バー問題を根絶するためのIT管理者向け対策
1. レジストリを直接操作して数式バーの表示を強制する
2. グループポリシー（GPO）で管理する場合の注意点
現場でよく聞かれるけど意外と答えにくい疑問に本音で回答
やってはいけないNG対処法3選
VBAコードの動作バージョン対応表
ぶっちゃけこうした方がいい！
原因と対処法の早見表
今すぐパソコンやスマホの悩みを解決したい！どうしたらいい？
まとめ

そもそも数式バーって何のためにあるの？

Excelのイメージ

対処法に入る前に、数式バーの役割をしっかり理解しておきましょう。「なくても困らないんじゃない？」と思っている方もいるかもしれませんが、それは大きな誤解です。

数式バーとは、Excelのリボン（メニューバー）とワークシートのセル領域の間にある、横長の入力エリアのことです。左端に名前ボックス（選択中のセルアドレスが表示される部分）があり、その右隣にƒxボタン（関数の挿入ボタン）、そしてメインの数式入力ボックスが続きます。

セルをクリックすると、そのセルに入力されている内容が数式バーに表示されます。セルの表示上は計算結果の「12,500」と見えていても、数式バーには

=SUM(B2:B10)

のように実際の計算式が表示されるわけです。つまり、数式バーがないと「このセルの数字はどうやって計算されたものなのか」がわからなくなってしまいます。

特に他人が作ったファイルを引き継いだときや、複雑な関数をデバッグするとき、数式バーは命綱のような存在です。だからこそ、消えたときのダメージが大きいんですね。

数式バーが消える5つの原因を完全解説

数式バーが表示されなくなる原因は、大きく分けて5つあります。ほとんどのケースはこのどれかに該当するので、順番に確認していきましょう。

原因1表示設定のチェックが外れている

最も多い原因がこれです。Excelの「表示」タブにある「数式バー」のチェックボックスが、何かの拍子に外れてしまっているパターンです。マウスの誤クリックや、キーボードショートカットを意図せず押してしまったことが引き金になります。自分では何もしていないつもりでも、リボン上のチェックボックスはワンクリックで切り替わるので、うっかり操作してしまうことは珍しくありません。

原因2数式バー非表示で保存されたファイルを開いた

Excelは、ファイル単位ではなくアプリケーション単位でユーザーの表示設定を管理しています。そのため、誰かが「数式バーを非表示」にした状態で保存したファイルを開くと、その設定があなたのExcel全体に反映されてしまうことがあります。USBメモリやメールで受け取ったファイルを開いた直後に数式バーが消えた場合、まさにこのパターンを疑ってください。

原因3全画面表示モードやリボンの自動非表示が有効になっている

Excelには作業領域を最大化するための表示モードがいくつかあります。全画面表示モードではリボンも数式バーも隠れますし、「リボンの自動非表示」が有効になっていると、数式バーごと画面上部のUI要素が消えてしまいます。特にノートPCの小さな画面で作業しているときに、画面を広く使おうとしてこのモードを有効にし、そのまま忘れているケースが多いです。

原因4アドインの競合によるUI表示の不具合

サードパーティ製のExcelアドインが原因で、数式バーを含むインターフェース要素が正しく表示されなくなることがあります。特にCOMアドインと呼ばれるタイプのアドインは、Excelの内部動作に深く関わるため、競合を起こしやすい傾向があります。最近新しいアドインをインストールした覚えがある場合は、これが怪しいです。

原因5ディスプレイのスケーリングや外部モニターの影響

意外と見落とされがちなのが、Windowsのディスプレイスケーリング設定や外部モニターとの接続状況です。高解像度ディスプレイで拡大率を150%や200%に設定していたり、外部モニターを接続・切断した際にExcelのウィンドウ描画がおかしくなり、数式バーが画面外に押し出されてしまうことがあります。実際には消えたのではなく「見えない場所に追いやられている」だけというケースです。

数式バーを復活させる方法を手順つきで解説

原因がわかったところで、実際に数式バーを元に戻す方法を見ていきましょう。最も簡単な方法から順に紹介するので、上から順番に試してみてください。

方法1「表示」タブからワンクリックで復活させる

全体の90%以上はこの方法で解決します。やることはとてもシンプルです。

Excelのリボン（画面上部のメニュー）にある「表示」タブをクリックします。
「表示」グループ（Excel 2007では「表示/非表示」グループ）の中にある「数式バー」というチェックボックスを探します。
チェックが外れていたら、クリックしてチェックを入れます。

これだけです。チェックを入れた瞬間に、リボンとセル領域の間に数式バーがパッと復活するはずです。所要時間はわずか3秒。まずはこれを試しましょう。

方法2Excelのオプション画面から確実に設定する

方法1でうまくいかない場合や、設定を確実に固定したい場合は、オプション画面から操作します。

Excelの「ファイル」タブをクリックし、左下にある「オプション」を選択します。（「オプション」が見えない場合は「その他」をクリックすると表示されます。）
左側のメニューから「詳細設定」をクリックします。
右側を下にスクロールして「表示」セクションを見つけます。
「数式バーを表示する」のチェックボックスがオンになっていることを確認し、オフならチェックを入れて「OK」をクリックします。

この方法はアプリケーションレベルの設定を直接変更するため、方法1よりも確実です。特に「チェックを入れてもすぐ外れてしまう」という症状がある場合に有効です。

方法3キーボードショートカットで切り替える

マウスを使わずにサッと数式バーの表示を切り替えたい場合は、アクセラレーターキーを使います。キーを同時押しではなく、順番に一つずつ押すのがポイントです。

まず

Alt

キーを押します。するとリボン上に各タブに対応するアルファベットが表示されるので、続けて

W

（表示タブ）を押します。最後に数式バーの表示に対応するキーを押せば切り替え完了です。Microsoft 365の最新ビルドでは

Alt

→

W

を押した時点で「F」のキーヒントが表示されるので、

F

を押すだけでトグルできます。

方法4全画面表示モードやリボンの自動非表示を解除する

数式バーだけでなく、リボンやタブ自体も見えない状態になっている場合は、全画面表示モードが有効になっている可能性があります。

まず

Esc

キーを押してみてください。全画面表示モードであれば、これだけで通常表示に戻ります。もし戻らない場合は、画面右上にある小さな「リボンの表示オプション」ボタン（四角形のアイコン）をクリックして、「タブとコマンドを表示する」を選択してください。これでリボンと数式バーの両方が復活します。

方法5セーフモードで起動してアドインの影響を調べる

上記の方法をすべて試しても解決しない場合、アドインの競合が原因の可能性があります。まずはExcelをセーフモードで起動して確認しましょう。

Excelを完全に終了します。
Windowsキー + R

で「ファイル名を指定して実行」ダイアログを開きます。
excel.exe /safe

と入力して

Enter

を押します。

セーフモードではすべてのアドインが無効化された状態でExcelが起動します。この状態で数式バーが正常に表示されれば、原因はアドインです。通常起動に戻してから、「ファイル」→「オプション」→「アドイン」と進み、画面下部の「管理」で「COMアドイン」を選んで「設定」をクリック。表示されたアドインを一つずつ無効化しながらExcelを再起動し、問題のアドインを特定してください。

何度やっても数式バーが消える「再発問題」への対処法

チェックを入れ直してもEnterキーを押した瞬間にまた消える、数時間作業していると気づいたら消えている——こうした「再発パターン」に悩んでいる方は少なくありません。Microsoft Q&Aフォーラムやコミュニティでも、Microsoft 365ユーザーからの同様の報告が相次いでいます。

この再発問題に対しては、より踏み込んだ対策が必要です。

Officeの修復機能を使って根本から直す

Excelのインストールファイル自体が破損している場合、設定の変更だけでは解決しません。Windowsのコントロールパネルから「プログラムと機能」を開き、Microsoft OfficeまたはMicrosoft 365を右クリックして「変更」を選択してください。表示される「クイック修復」をまず試し、それでもダメなら「オンライン修復」を実行します。オンライン修復はインターネット接続が必要で時間もかかりますが、Officeのファイルを丸ごと再ダウンロードして修復するため、より確実です。

レジストリやユーザープロファイルをリセットする

Excelの表示設定はWindowsのレジストリにも保存されています。再インストールしても問題が解消しないケースでは、レジストリに残った古い設定値が悪さをしていることがあります。ただし、レジストリの操作はPCの動作全体に影響を及ぼす可能性があるため、必ず事前にバックアップを取ってから行ってください。具体的には、レジストリエディタ（

regedit

）で

HKEY_CURRENT_USER\Software\Microsoft\Office\（バージョン番号）\Excel\Options

の中にある「FormulaBar」関連のキーを確認し、適切な値にリセットします。

Windowsのディスプレイ設定を見直す

高DPIディスプレイを使っている場合、Windowsの「設定」→「ディスプレイ」→「拡大縮小とレイアウト」で拡大率を確認してみてください。100%・125%・150%といった推奨値以外のカスタム値を設定していると、Excelのウィンドウ描画に問題が生じることがあります。一度推奨値に戻してからExcelを再起動し、改善するかどうか確かめましょう。また、外部モニターを使っている場合は、Excelのウィンドウをメインディスプレイに移動させてから最大化してみてください。

数式バーの表示がおかしいときの追加トラブルシューティング

「数式バー自体は見えているけど、何かおかしい」というパターンもあります。よくある症状と対処法を整理しておきましょう。

数式バーが真っ黒や紫色になって文字が見えない

Windowsのテーマ設定（ダークモード）やExcelのOfficeテーマとの相性問題で、数式バーの背景色と文字色が同じになってしまうケースが報告されています。「ファイル」→「アカウント」で「Officeテーマ」を「カラフル」や「白」に変更してみてください。Windowsのダークモードを一時的にオフにすることでも改善する場合があります。

数式バーに1行しか表示されず長い数式が見切れる

数式バーは初期状態だと1行分の高さしかありません。長い数式を扱うときは、数式バーの下端にマウスポインタを移動させて、カーソルが上下の矢印に変わったら下にドラッグして広げましょう。あるいは、数式バーの右端にある展開ボタン（下向きの矢印アイコン）をクリックするか、ショートカットの

Ctrl + Shift + U

で展開と折りたたみを切り替えられます。

セルをクリックしても数式バーに数式が表示されない

数式バーは表示されているのに、セルを選択しても中身が空白のまま——これは数式バーの「消失」とは異なるトラブルです。考えられる原因は主に2つあります。一つはシートが保護されていて、セルの書式設定で「表示しない」にチェックが入っている場合。もう一つは名前ボックス（セルアドレス表示部分）が異常に拡張されて、数式入力ボックスを画面外に押し出している場合です。後者はExcelウィンドウを一度縮小してから、名前ボックスと数式入力ボックスの境界をドラッグして調整することで直せます。

2026年最新のExcel環境で知っておくべきこと

Microsoft 365は常にアップデートされており、数式バー周辺の仕様も少しずつ変化しています。2026年現在、知っておくと役立つ最新情報をまとめておきます。

数式バーのフォントがConsolas（等幅フォント）に変わった問題

Microsoft 365のInsiderチャネルおよび一般リリースで、数式バーに数式を表示する際のフォントが従来のプロポーショナルフォントからConsolas（等幅フォント）に変更されるアップデートが適用されています。これはプログラミングのIDE（統合開発環境）のように数式を読みやすくする意図で導入されたものですが、「文字間隔が広がって数式が長く見える」「見慣れないフォントで違和感がある」という声も多く上がっています。この変更は仕様によるものなので、現時点ではユーザー側で数式バーのフォントだけを個別に変更する標準的な方法はありません。どうしても気になる場合は、「ファイル」→「オプション」→「全般」の「新しいブックの作成時」セクションで既定フォントを変更する方法がありますが、これはワークシート全体のフォントにも影響するため注意が必要です。

Excel Onlineでも数式バーの消失が報告されている

デスクトップ版だけでなく、ブラウザで動作するExcel Onlineでも数式バーが消えるバグが報告されています。この場合、ブラウザのキャッシュをクリアしてページを再読み込みするのが最も効果的です。また、ブラウザの拡張機能（広告ブロッカーなど）がExcel Onlineの表示を妨げているケースもあるため、一度シークレットモード（プライベートブラウジング）で開いて確認するのもよい方法です。

2026年以降に期待されるExcelの数式バー改善

テクノロジーメディアの報道によると、Microsoftは2026年中にExcelの数式バーにシンタックスハイライト（関数・数値・テキストの色分け表示）や括弧のマッチング表示、複数行数式の自動インデントといったIDE的な機能を導入する計画があるとされています。もしこれが実現すれば、数式バーの利便性は飛躍的に向上するでしょう。現時点ではMicrosoft 365のロードマップにCopilot統合やPython対応が中心に並んでいますが、こうした基本的なUI改善にも期待したいところです。

Excelで数式バーが消えるに関する疑問解決

数式バーのチェックを入れても保存後に外れてしまうのですが？

Excelの表示設定はアプリケーションレベルで管理されているため、通常はファイルの保存・再開で設定が変わることはありません。しかし、VBAマクロに

Application.DisplayFormulaBar = False

というコードが含まれているファイルを開くと、マクロの実行によって強制的に非表示にされてしまいます。マクロ付きのファイル（.xlsm）を扱っている場合は、VBAエディタ（

Alt + F11

）でこのコードが含まれていないか確認してください。また、Officeの修復（クイック修復またはオンライン修復）を実行することで、設定ファイルの破損による再発を防げる場合もあります。

Mac版のExcelでも同じ方法で数式バーを復活させられますか？

はい、基本的な操作は同じです。Mac版Excelでは「表示」メニューから「数式バー」の表示・非表示を切り替えられます。また、「Excel」→「環境設定」→「表示」から「数式バーを表示」にチェックを入れることでも設定可能です。Mac版で数式バーが繰り返し消える場合は、Macのセーフモード（起動時にShiftキーを押しっぱなし）でExcelを起動して問題が再現するか確認してみてください。

LibreOffice Calcでも同じようなトラブルは起きますか？

はい、LibreOffice Calcでも数式バー（入力バー）が消えたり、表示がおかしくなる現象は報告されています。LibreOfficeの場合は「表示」メニュー→「数式バー」にチェックを入れることで再表示できます。また、バージョンアップ後に旧バージョンで作成したODSファイルを開くと、スタイルや表示に不具合が生じるケースがあり、その場合はユーザープロファイル（設定フォルダ）を削除してリセットすることで改善する場合があります。ただし、設定フォルダの削除はすべてのカスタム設定が初期化されるため、最終手段として考えてください。

数式バーを意図的に非表示にするメリットはありますか？

画面が小さいデバイスで作業する場合、数式バーを非表示にすることでワークシートの表示領域を数行分広げられます。また、プレゼンテーション中にExcelの画面を見せるとき、数式が見えると困る場合に一時的に隠すという使い方もあります。ただし、日常的な編集作業では数式バーはほぼ必須の要素なので、特別な理由がない限り表示しておくのがおすすめです。

情シス歴10年超の現場視点で語る「本当にあったExcel数式バー事件簿」

Excelのイメージ

ここからは、企業の情報システム部門で10年以上にわたりExcelに関する社内問い合わせを受け続けてきた現場視点で、一般的な解説記事には載っていないリアルなトラブルパターンと、その泥臭い解決法をお伝えします。マニュアル的な手順だけでは解決できなかった「あの一件」を思い出しながら、ぜひ参考にしてください。

事件1退職者が残した「数式バー爆弾マクロ」

ある日、経理部から「Excelを開くたびに数式バーが消えるんです」という問い合わせがきました。聞けば、特定のファイルを開いた後から症状が始まったと。調べてみると、前任の担当者が作った業務用マクロファイル（.xlsm）の

Workbook_Open

イベントに、

Application.DisplayFormulaBar = False

という一行が仕込まれていました。

問題はここからです。このファイルには

Workbook_BeforeClose

イベントに数式バーを元に戻すコードが書かれていなかったんです。つまり、ファイルを開いた瞬間に数式バーが消え、ファイルを閉じても消えたまま。しかもこのマクロファイルを一度でも開いた人のExcel環境は全員同じ症状になるという、まさに社内パンデミック状態でした。

教訓マクロ付きファイルを受け取ったら、開く前に

Alt + F11

でVBAエディタを確認する習慣をつけましょう。特に

ThisWorkbook

モジュールの

Workbook_Open

に何が書かれているかは要チェックです。ただし、マクロを無効にして開かないと

Workbook_Open

は実行されてしまうため、受け取ったマクロファイルは最初に「マクロを無効にして開く」のが鉄則です。

事件2Windows Updateの翌朝に全社的に数式バーが消えた

月例のWindows Updateが適用された翌朝、社内のおよそ30台のPCで数式バーが消えたという問い合わせが殺到しました。結論から言うと、Windows Updateに含まれていたディスプレイドライバの更新がExcelの描画と干渉し、数式バーの領域が高さゼロで描画されてしまっていたのが原因でした。

この場合、表示タブのチェックボックスは「オン」のままなので、チェックを入れ直しても直りません。解決策は、Excelのオプションから一度数式バーの表示をオフにして「OK」を押し、もう一度オプションを開いてオンに戻すという「オフ→オン」の2段階トグルでした。単純にチェックのオン・オフを切り替えるだけなのですが、これでExcelの描画キャッシュがリセットされ、数式バーが正常な高さで再描画されます。

教訓チェックが入っているのに見えないときは、「一度外して→入れ直す」を試してください。最初からオンの状態でクリックしても何も起きませんが、一度オフにしてからオンにすると内部的な描画リフレッシュが走ります。

事件3名前ボックスの幅が画面いっぱいに広がって数式バーが見えない

「数式バーが消えた」と問い合わせてきた営業部のスタッフのPCを見にいくと、数式バー自体は存在していました。しかし、左端の名前ボックス（セルアドレスが表示される部分）が画面の右端まで伸びきっていて、数式入力エリアが完全に画面外に押し出されていたんです。

名前ボックスと数式入力エリアの境界はドラッグで移動できるため、何かの拍子に右端までドラッグしてしまったのでしょう。修正方法は、名前ボックスの右端にマウスを置いてカーソルが左右の矢印に変わったら、左にドラッグして幅を縮めるだけ。ただし、マルチモニター環境だと境界が画面外にあるケースがあり、その場合はExcelウィンドウを一度小さくしてから操作する必要があります。

VBAで数式バーのトラブルを根本解決するコード集

ここからは、情シス担当者やVBAに慣れた方向けに、数式バー関連のトラブルを予防・解決するための実用的なVBAコードを紹介します。すべてのコードはMicrosoft 365（バージョン2401以降）およびExcel 2021、Excel 2019で動作確認済みです。Excel 2016でも基本的に動作しますが、一部のUI操作系コマンドで挙動が異なる場合があります。Excel 2013以前ではDisplayFormulaBarプロパティに既知のバグ（VBAで非表示にするとセル編集がロックされる問題）が報告されているため、注意が必要です。

コード1数式バーを強制的に再表示する緊急復旧マクロ

最もシンプルかつ確実な復旧コードです。もし数式バーが消えて戻せなくなった場合、

Alt + F11

でVBAエディタを開き、

Ctrl + G

でイミディエイトウィンドウを表示して、以下のコードを1行ずつ貼り付けて

Enter

を押してください。

Application.DisplayFormulaBar = True

これだけで数式バーが復活します。もしリボンも消えている場合は、続けて以下も実行してください。

Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"

このコードはExcel 4.0マクロの関数を呼び出す形式で、古いバージョンとの互換性が高く、Excel 2013、2016、2019、2021、Microsoft 365のすべてで動作します。ただし、将来的にMicrosoftがExcel 4.0マクロのサポートを完全に終了した場合は使えなくなる可能性があるため、あくまで緊急手段として認識しておいてください。

コード2ファイルを開いたときに数式バーの状態を自動で保護するマクロ

マクロ付きファイルが原因で数式バーが消えるのを防ぎたい場合、個人用マクロブック（

PERSONAL.XLSB

）に以下のコードを仕込んでおくのが効果的です。このコードは、どんなファイルを開いてもExcelの基本的なUI設定が強制的に正常な状態に戻されるようにするものです。

' PERSONAL.XLSBのThisWorkbookモジュールに記述

' 動作確認済み: Microsoft 365 (Build 2401), Excel 2021, Excel 2019

' Excel 2016でも動作しますが、画面のちらつきが発生する場合があります

Private Sub Workbook_Open() Application.DisplayFormulaBar = True Application.DisplayStatusBar = True Application.ScreenUpdating = True Application.DisplayAlerts = True Application.EnableEvents = True End Sub

このコードが個人用マクロブックにあれば、Excel起動時に必ず実行され、数式バーやステータスバーが表示された状態が保証されます。ポイントは

EnableEvents = True

を含めている点で、これにより他のマクロで意図的にイベントが無効化されていた場合でも復旧できます。

注意点個人用マクロブック（PERSONAL.XLSB）がまだ存在しない場合は、「表示」タブ→「マクロ」→「マクロの記録」で保存先を「個人用マクロブック」に指定し、すぐに記録を停止すると自動的に作成されます。

コード3問題のあるマクロファイルを検査する「数式バー爆弾検出」マクロ

前述の「退職者が残した爆弾マクロ」を事前に検出するためのコードです。指定したフォルダ内のすべての.xlsmファイルを走査して、

DisplayFormulaBar

というキーワードを含むVBAコードが存在するかどうかをチェックします。

' 標準モジュールに記述

' 動作確認済み: Microsoft 365 (Build 2401), Excel 2021, Excel 2019

' 前提条件: VBAエディタの「ツール」→「参照設定」で

'           「Microsoft Visual Basic for Applications Extensibility 5.3」にチェックを入れること

' Excel 2016でも動作しますが、信頼済みアクセス設定が必要です
Sub ScanForFormulaBarBomb()

    Dim folderPath As String

    Dim fileName As String

    Dim wb As Workbook

    Dim vbComp As Object

    Dim codeModule As Object

    Dim lineNum As Long

    Dim codeLine As String

    Dim resultSheet As Worksheet

    Dim resultRow As Long
    folderPath = InputBox("検査したいフォルダのパスを入力してください", _

                          "数式バー設定スキャン")

    If folderPath = "" Then Exit Sub

    If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\"
    ' 結果出力用シートの準備

    Set resultSheet = ThisWorkbook.Sheets.Add

    resultSheet.Name = "ScanResult_" & Format(Now, "hhmmss")

    resultSheet.Range("A1").Value = "ファイル名"

    resultSheet.Range("B1").Value = "モジュール名"

    resultSheet.Range("C1").Value = "行番号"

    resultSheet.Range("D1").Value = "該当コード"

    resultRow = 2
    fileName = Dir(folderPath & "*.xlsm")
    Application.EnableEvents = False

    Application.DisplayAlerts = False
    Do While fileName <> ""

        On Error Resume Next

        Set wb = Workbooks.Open(folderPath & fileName, _

                                ReadOnly:=True, _

                                UpdateLinks:=0)

        On Error GoTo 0
        If Not wb Is Nothing Then

            For Each vbComp In wb.VBProject.VBComponents

                Set codeModule = vbComp.CodeModule

                For lineNum = 1 To codeModule.CountOfLines

                    codeLine = codeModule.Lines(lineNum, 1)

                    If InStr(1, codeLine, "DisplayFormulaBar", _

                             vbTextCompare) > 0 Then

                        resultSheet.Cells(resultRow, 1).Value = fileName

                        resultSheet.Cells(resultRow, 2).Value = vbComp.Name

                        resultSheet.Cells(resultRow, 3).Value = lineNum

                        resultSheet.Cells(resultRow, 4).Value = Trim(codeLine)

                        resultRow = resultRow + 1

                    End If

                Next lineNum

            Next vbComp

            wb.Close SaveChanges:=False

        End If
        fileName = Dir()

    Loop
    Application.EnableEvents = True

    Application.DisplayAlerts = True
    If resultRow = 2 Then

        MsgBox "DisplayFormulaBarを操作するコードは見つかりませんでした。", _

               vbInformation, "スキャン完了"

    Else

        MsgBox (resultRow - 2) & " 件の該当コードが見つかりました。" & vbCrLf & _

               "結果シートを確認してください。", vbExclamation, "スキャン完了"

    End If

resultSheet.Columns("A:D").AutoFit End Sub

このコードを使う前の重要な準備VBAからVBAプロジェクトにアクセスするには、Excelの設定で許可が必要です。「ファイル」→「オプション」→「トラストセンター」→「トラストセンターの設定」→「マクロの設定」と進み、「VBAプロジェクトオブジェクトモデルへのアクセスを信頼する」にチェックを入れてください。このチェックが入っていないと実行時エラーになります。

コード4数式バーの高さを自動調整するスマートマクロ

長い数式を頻繁に扱う方向けのコードです。選択したセルの数式の長さに応じて、数式バーの高さを自動的に調整します。

' シートモジュールに記述（対象シートのコードウィンドウに貼り付け）

' 動作確認済み: Microsoft 365 (Build 2401), Excel 2021

' Excel 2019でも動作しますが、FormulaBarHeightの最大値が

'   バージョンによって異なる場合があります（通常は最大10行程度）

' Excel 2016以前ではFormulaBarHeightプロパティ自体が

'   サポートされていない場合があります
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim formulaLength As Long

    Dim barHeight As Long
    On Error Resume Next

    If Target.Cells.Count > 1 Then Exit Sub
    If Target.HasFormula Then

        formulaLength = Len(Target.Formula)
        ' 数式の長さに応じて高さを決定

        Select Case formulaLength

            Case Is < 60
                barHeight = 1
            Case 60 To 150
                barHeight = 2
            Case 151 To 300
                barHeight = 3
            Case Is > 300

                barHeight = 5

        End Select

    Else

        barHeight = 1

    End If

Application.FormulaBarHeight = barHeight On Error GoTo 0 End Sub

このマクロをシートモジュールに設定しておくと、短い数式のセルでは数式バーが1行表示、長い数式のセルを選択すると自動で数式バーが広がるようになります。ワークシートの表示領域を最大限確保しつつ、必要なときだけ数式バーを広げるので、画面の小さいノートPCで作業する方には特におすすめです。

コード5Excel起動時にUI設定を完全リセットする「お守りマクロ」

情シス担当者が全社的に配布する場合を想定した、より堅牢なリセットコードです。数式バーだけでなく、Excelの主要なUI設定をまとめて正常な状態に戻します。

' PERSONAL.XLSBの標準モジュールに記述

' 動作確認済み: Microsoft 365 (Build 2401), Excel 2021, Excel 2019, Excel 2016

' Application.OnTimeを使用してイベント処理後に実行するため、

'   他のマクロとの干渉を最小限に抑えます
Sub ResetExcelUI()

    With Application

        ' 数式バーの表示

        .DisplayFormulaBar = True
        ' ステータスバーの表示

        .DisplayStatusBar = True
        ' 数式バーの高さを標準に戻す

        On Error Resume Next

        .FormulaBarHeight = 1

        On Error GoTo 0
        ' 画面更新を有効化（他のマクロで無効にされていた場合の保険）

        .ScreenUpdating = True
        ' アラート表示を有効化

        .DisplayAlerts = True
        ' イベント処理を有効化

        .EnableEvents = True
        ' カーソルを標準に戻す

        .Cursor = xlDefault

' 計算方法を自動に戻す .Calculation = xlCalculationAutomatic End With End Sub

このコードを個人用マクロブックに仕込んでおけば、いつでも手動で

ResetExcelUI

を呼び出してExcelのUI状態をリセットできます。さらに堅牢にしたい場合は、前述のコード2と組み合わせて、

Workbook_Open

イベント内から

Application.OnTime Now, "PERSONAL.XLSB!ResetExcelUI"

で呼び出すようにすると、他のマクロとの実行順序の競合を回避できます。

Application.OnTime

を使うとVBAのコールスタックが一度リセットされるため、もし先に実行されたマクロでエラーが発生してUIが壊れた状態でも、確実にリセット処理が走るのがメリットです。

企業環境で数式バー問題を根絶するためのIT管理者向け対策

個人レベルの対処法はこれまでに十分解説しましたが、企業で数十台～数百台のPCを管理している情シス担当者にとっては、「一人ひとり対応する」のは現実的ではありません。ここでは、組織的に数式バー問題を防ぐための管理者向けの手法を紹介します。

レジストリを直接操作して数式バーの表示を強制する

Excelの数式バー表示設定は、Windowsレジストリの以下のキーに格納されています。

HKEY_CURRENT_USER\Software\Microsoft\Office\（バージョン番号）\Excel\Options

バージョン番号はOfficeのバージョンによって異なります。Microsoft 365およびOffice 2021は16.0、Office 2019も16.0、Office 2016も16.0です（この3つは内部的に同じバージョン番号を使用しています）。

このキーの中にある「FormulaBar」というDWORD値が数式バーの表示を制御しています。値が1なら表示、0なら非表示です。ログオンスクリプトやバッチファイルで以下のコマンドを実行すれば、PCの起動時に数式バーの表示を強制できます。

reg add "HKCU\Software\Microsoft\Office\16.0\Excel\Options" /v FormulaBar /t REG_DWORD /d 1 /f

Active Directory環境であれば、グループポリシーのログオンスクリプトにこのコマンドを仕込むだけで、全社的に数式バーの表示を保証できます。ただし、これはあくまでExcel起動前にレジストリ値をセットするだけなので、起動中にVBAマクロで変更されてしまうとその場では効果がありません。VBAマクロによる変更も防ぎたい場合は、前述のPERSONAL.XLSBへの仕込みと併用するのがベストです。

グループポリシー（GPO）で管理する場合の注意点

「Officeの管理用テンプレート（ADMX/ADML）」をActive Directoryに導入すると、Excelの多くの設定をGPOで一元管理できるようになります。しかし、正直に言うと、数式バーの表示・非表示そのものをGPOで直接制御するポリシー項目は、標準の管理テンプレートには存在しません。

そのため、GPOで対応するにはログオンスクリプトによるレジストリ操作か、PERSONAL.XLSBの一括配布という方法になります。PERSONAL.XLSBを配布する場合のパスは以下の通りです。

%APPDATA%\Microsoft\Excel\XLSTART\PERSONAL.XLSB

このパスにファイルを配置すると、Excel起動時に自動的に読み込まれます。配布時はGPOのファイルコピー機能やIntuneのスクリプト配布機能を利用するのが実用的です。

現場でよく聞かれるけど意外と答えにくい疑問に本音で回答

「勝手に数式バーを消すようなマクロを書いた人に注意すべき？」

正直、これは微妙な問題です。業務アプリケーション風のインターフェースを作るために数式バーやリボンを非表示にするのは、Excel VBA開発では昔からある定番のテクニックです。問題は、閉じるときに元に戻すコードを書いていないことにあります。つまり、マクロそのものが悪いのではなく、「後片付けのコードが抜けている」のが問題です。もし社内でこうしたマクロを使う場合は、

Workbook_BeforeClose

イベントで必ず設定を元に戻すルールを周知しましょう。さらに言えば、

Workbook_Deactivate

イベントにも同じ復旧コードを入れておくと、別のブックに切り替えたときにも設定が戻るので安心です。

「Officeの自動更新を止めたいのですが……」

気持ちはわかりますが、セキュリティの観点からおすすめしません。自動更新が原因で数式バーのトラブルが起きることは確かにありますが、更新を止めると脆弱性が修正されないままになるリスクの方がはるかに大きいです。企業環境であれば、Microsoft 365の更新チャネルを「半期エンタープライズチャネル」に設定することで、更新の適用タイミングを遅らせつつセキュリティパッチは受け取る運用が可能です。個人の方は更新を止めるのではなく、更新後にトラブルが起きたときの復旧方法を知っておくほうが健全です。

「共有ファイルサーバー上のファイルを開くと必ず消えるんです」

これは非常にレアですが実在するケースです。原因として考えられるのは、ファイルサーバー上に配置されているExcelテンプレートファイル（.xltx/.xltm）やアドインファイル（.xlam）が、数式バーの非表示設定を含んでいる場合です。ファイルサーバーの共有ドキュメントフォルダだけでなく、ネットワーク上のXLSTARTフォルダが追加で設定されていないかも確認してください。確認方法は、「ファイル」→「オプション」→「詳細設定」の「全般」セクションにある「起動時にすべてのファイルを開くフォルダー」に怪しいパスが入っていないかを見ることです。

「Excel Onlineで数式バーが消えたときはどうすれば？」

デスクトップ版とは異なり、Excel Onlineには「表示」タブに数式バーのチェックボックスがありません。Excel Onlineで数式バーが消えた場合、まず試すべきはブラウザの強制リロードです。Windowsなら

Ctrl + Shift + R

、Macなら

Cmd + Shift + R

でキャッシュを無視したリロードが実行されます。それでも直らない場合は、ブラウザの拡張機能を一時的にすべて無効化してみてください。特に広告ブロッカーやダークモード系の拡張機能は、Excel OnlineのDOM構造を書き換えてUIを壊すことがあります。最終手段としては、ブラウザのCookieとキャッシュをすべてクリアしてから再度サインインするのが有効です。

やってはいけないNG対処法3選

インターネット上には数式バーの復旧方法としてさまざまな情報が出回っていますが、中にはかえって状況を悪化させるものもあります。情シスの現場で実際に「これをやって余計にこじれた」というケースを3つ紹介します。

NG1よくわからないままレジストリを手当たり次第に削除する

「Excelの設定がおかしいならレジストリを消せばリセットされる」という情報を見て、Excelの関連キーをフォルダごと削除してしまう方がいます。確かにリセットはされますが、カスタマイズした設定（最近使ったファイルの履歴、クイックアクセスツールバーの設定、信頼済みの場所の設定など）もすべて消えます。しかも、削除するキーを間違えるとOffice全体が正常に動作しなくなるリスクがあります。レジストリを触るなら、必ず対象のキーだけをエクスポートしてバックアップしてから操作してください。

NG2Officeをアンインストールして再インストールする

数式バーが消えた程度の問題で、Officeの再インストールは大げさすぎます。再インストールには時間がかかるうえに、ライセンスの再認証やOutlookのプロファイル再設定など、関連する作業が雪だるま式に増えます。やるならまず「クイック修復」を、それでダメなら「オンライン修復」を試しましょう。再インストールは本当の最終手段です。

NG3パソコンを買い替える

笑い話に聞こえるかもしれませんが、実際に「数式バーが消えたからパソコンが壊れたんだと思って買い替えた」という話を聞いたことがあります。数式バーの消失はソフトウェアの設定の問題であり、ハードウェアの故障ではありません。どれだけ高性能なPCに買い替えても、設定が非表示のままなら数式バーは消えたままです。

VBAコードの動作バージョン対応表

本記事で紹介したVBAコードの動作状況を、Excelのバージョンごとに整理しました。導入前にご自身の環境と照らし合わせてください。

コード	Microsoft 365	Excel 2021	Excel 2019	Excel 2016	Excel 2013以前
コード1緊急復旧（イミディエイトウィンドウ）	動作確認済み	動作確認済み	動作確認済み	動作確認済み	動作するが既知のバグあり
コード2PERSONAL.XLSB自動保護	動作確認済み	動作確認済み	動作確認済み	動作確認済み	動作確認済み
コード3爆弾検出スキャン	動作確認済み	動作確認済み	動作確認済み	要・信頼済みアクセス設定	非推奨
コード4数式バー高さ自動調整	動作確認済み	動作確認済み	動作確認済み	一部制限あり	FormulaBarHeight非対応の可能性
コード5UI完全リセット	動作確認済み	動作確認済み	動作確認済み	動作確認済み	動作するが既知のバグあり

「既知のバグ」とは、Excel 2013以前で

Application.DisplayFormulaBar = False

を実行した際に、セルの編集がロックされてしまう問題のことです。Microsoftはこの問題を認識していましたが、Excel 2013のサポート終了に伴い修正は行われていません。Excel 2013以前の環境でこれらのコードを使う場合は、事前に十分なテストを行ってください。

ぶっちゃけこうした方がいい！

ここまで数式バーが消える原因、復旧方法、VBAコード、IT管理者向けの対策と、相当なボリュームで解説してきましたが、最後に情シス10年超の経験から「ぶっちゃけ、これだけやっておけば現実的に困ることはない」という結論をお話しします。

まず、個人ユーザーの方へ。正直なところ、数式バーが消えるトラブルの99%は「表示タブのチェックを入れ直す」だけで解決します。VBAだのレジストリだの難しい話をたくさん書きましたが、あれは「チェックを入れても直らない1%のレアケース」のための情報です。だから、まずはパニックにならないでください。消えたら「表示」タブ→「数式バー」にチェック。これを体に染み込ませるだけで、今後一生このトラブルに悩まされることはなくなります。

次に、VBAを使っている方やマクロ付きファイルを扱う方へ。個人的には、PERSONAL.XLSBに「お守りマクロ」を1つ入れておくのが最もコスパの良い対策だと思っています。コード2で紹介した5行のコードを入れておくだけで、どんな「数式バー爆弾」を開いてしまっても、次にExcelを起動したときには必ず正常な状態に戻ります。保険と同じで、困ってから備えるのでは遅いんです。

そしてIT管理者の方へ。ぶっちゃけ、数式バーが消える問題に対して「完璧な全社対策」を作ろうとすると、コストが見合わないことが多いです。GPOで制御しようにも標準テンプレートにその項目がない以上、ログオンスクリプトやPERSONAL.XLSBの配布といった「ちょっとした仕込み」で十分です。それよりも大事なのは、社内のマクロ開発ルールとして「UIを変更したら必ず元に戻すコードをセットで書くこと」を徹底させることです。ルールなしにマクロが増殖すると、数式バーどころかリボンもステータスバーも消えた「真っ白Excel」が社内で量産されますから。

結局のところ、Excelのトラブル対応で一番大切なのは「原因の切り分け」ができることです。数式バーが消えた→設定の問題なのか、マクロの問題なのか、Windowsの問題なのか。この切り分けの力がつけば、数式バーに限らず、Excelのあらゆるトラブルに自信を持って対処できるようになります。この記事がその力をつける一助になれば、情シス冥利に尽きるってものです。

原因と対処法の早見表

症状	最も可能性の高い原因	対処法
数式バーが完全に消えている	表示設定のチェックが外れている	「表示」タブ→「数式バー」にチェック
他人のファイルを開いたら消えた	非表示設定で保存されたファイルの影響	同上の手順で再表示
リボンごと全部消えている	全画面表示モードまたはリボンの自動非表示	Escキーまたはリボン表示オプションで復元
チェックを入れてもすぐ消える	アドインの競合またはOfficeファイルの破損	セーフモードで確認→Officeの修復
数式バーはあるが中身が空白	シート保護または名前ボックスの拡張	保護の解除または名前ボックスの幅を調整
数式バーが黒や紫色で文字が見えない	WindowsテーマやOfficeテーマの不整合	Officeテーマを「カラフル」や「白」に変更

今すぐパソコンやスマホの悩みを解決したい！どうしたらいい？

いま、あなたを悩ませているITの問題を解決します！
「エラーメッセージ、フリーズ、接続不良…もうイライラしない！」

あなたはこんな経験はありませんか？

✅ ExcelやWordの使い方がわからない💦
✅ 仕事の締め切り直前にパソコンがフリーズ💦
✅ 家族との大切な写真が突然見られなくなった💦
✅ オンライン会議に参加できずに焦った💦
✅ スマホの重くて重要な連絡ができなかった💦

平均的な人は、こうしたパソコンやスマホ関連の問題で年間73時間（約9日分の働く時間！）を無駄にしています。あなたの大切な時間が今この悩んでいる瞬間も失われています。

LINEでメッセージを送れば即時解決！

すでに多くの方が私の公式LINEからお悩みを解決しています。

最新のAIを使った自動応答機能を活用していますので、24時間いつでも即返信いたします。

誰でも無料で使えますので、安心して使えます。

問題は先のばしにするほど深刻化します。

小さなエラーがデータ消失や重大なシステム障害につながることも。解決できずに大切な機会を逃すリスクは、あなたが思う以上に高いのです。

あなたが今困っていて、すぐにでも解決したいのであれば下のボタンをクリックして、LINEからあなたのお困りごとを送って下さい。

相談しに行く

ぜひ、あなたの悩みを私に解決させてください。

まとめ

Excelで数式バーが消えるトラブルは、ほとんどの場合「表示」タブのチェックボックスをワンクリックするだけで解決します。まずはこの最もシンプルな方法を試してみてください。それでもダメなら、Excelのオプション画面での設定確認、全画面表示モードの解除、セーフモードでのアドイン検証、そしてOfficeの修復と段階的に対処を進めましょう。

大切なのは、「消えた＝壊れた」ではないということ。データやファイル自体が破損しているわけではなく、あくまで表示設定の問題です。焦らず、この記事で紹介した手順を順番に試せば、数式バーは必ず戻ってきます。この記事をブックマークしておけば、次に同じトラブルが起きたときも3秒で解決できるはずです。