Home » Excel VBA Rangeオブジェクト » セル数式 » VBAでMID関数・FIND関数を使った数式を入力する

VBAでMID関数・FIND関数を使った数式を入力する

動作検証バージョン：64bit Windows 10 Pro + 32bit Excel（バージョン2105 ビルド14026.20308 Microsoft Store）

「特定のセルにMID関数 VBA」
といった検索キーワードでアクセスがありました。

VBAを使って、MID関数を使った数式をセルに入力するには、どのようなコードを書けばいいのかを探していらしたのでしょうか。

［スポンサードリンク］

VBAでMID関数を使った数式を入力するサンプル

以下のSubプロシージャを実行すると、アクティブなワークシートのB1セルに、数式「=MID(A1, ４, LEN(A1))」が入力されます。

Sub MID関数を使った数式を入力する()
　Range("B1").Formula = "=MID(A1, ４, LEN(A1))"
End Sub

セルに手入力する数式を、先頭の「=」も含んだ形で、VBAから見た場合には単なる文字列として、Range.Formulaプロパティを使って設定すればOKです。

「特定のセルにMID関数 VBA」
と検索なさった方が探していたのは上記のような例ではなく、他の関数たとえばFIND関数を組み合わせた数式を入力する、Excel VBAのコードを探していらしたのではないかと想像しています。

A1セルに「舞黒　花子」のように、姓と名の間に全角スペースが必ず氏名が入力されているときに、
　　=MID(A1, FIND("　", A1)+1, LEN(A1))
という数式をB1セルに手入力すれば、B1セルには名前の「花子」だけが出力されます。

こういった「"」（ダブルクォーテーション）の使われている数式をExcel VBAから入力するにはどうすればいいのかを探していらしたのではないかと私は想像しています。

以下のSubプロシージャを実行すると、アクティブシートのB1セルに、数式「=MID(A1, FIND("　", A1)+1, LEN(A1))」が入力されます。

Sub MID関数とFIND関数を使った数式を入力する()
　Range("B1").Formula = "=MID(A1, FIND(""　"", A1)+1, LEN(A1))"
End Sub

ポイントは、FIND関数の第1引数です。

「"」を指定するために、Excel VBAのコードとしては「""」とダブルクォーテーションを2つ書く必要があります。

［スポンサードリンク］

Home » Excel VBA Rangeオブジェクト » セル数式 » VBAでMID関数・FIND関数を使った数式を入力する

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「セル数式」の記事一覧