ExcelマクロVBA技術解説 | 文字列でのセル参照と文字列の計算式について(Evaluate,INDIRECT) | Excelマクロの問題点と解決策、エクセルVBAの技術的解説



最終更新日:2013-09-05

文字列でのセル参照と文字列の計算式について(Evaluate,INDIRECT)


セルまたはセル範囲を表す文字列からセル参照する場合と、文字列としての計算式から計算する場合です。


"Sheet1"
A1に、"Sheet2"
B1に、"A1"

"Sheet2"
A1に、"(2+3)*2"

このように入っている場合に、
"Sheet1"のC1に、"Sheet2"のA1の内容つまり"(2+3)*2"を表示する場合です。

まず最初に思い浮かぶのが、
ワークシート関数のINDIRECT関数です。

C1に、"=INDIRECT(A1&"!"&B1)"

このようにする事になります。

では、マクロVBAではどうするかですが、

まず、WorksheetFunctionには、INDIRECTはありません。

INDIRECT関数と、ほぼ同様機能として、

Application.Evaluateメソッド(Application.は省略可能)があります。

Application.Evaluate(Name)

使用する名前を、オブジェクトまたは値に変換します。

Name : Excelの名前付け規則に従って、対象オブジェクトの名前を指定します。

この説明はヘルプです、全く理解できない日本語です。(笑

つまり、この場合は、

Range("C1") = Evaluate(Range("A1") & "!" & Range("B1"))

これで、C1に、"(2+3)*2" と表示されます。

しかし、ちょっと待ってください。

Range("A1") & "!" & Range("B1")

これは、"SHeet2!A1"ということですよね。

これは、セル参照の文字列なのだから、

普通に、Rangeで良いはずです。

つまり、

Range("C1") = Range(Range("A1") & "!" & Range("B1"))

結果は同じになります。

これは至極当然ですし、通常はこのように書く事になります。


では、"SHeet2!A1" このセル値の、"(2+3)*2" この計算結果を取得したい場合にどうするか。

ワークシート関数なら・・・

出来ませんよね、そんな事・・・

いや、まあ、出来ないこともないのですが・・・

名前定義を作成します。
名前はなんでも良いので、仮に、"文字列計算"とします。
参照範囲に、"=EVALUATE(INDIRECT(Sheet1!$A$1&"!"&Sheet1!$B$1))"


これができたら、
C1セルに、"=文字列計算"
これで、答えの10がC3セルに表示されます。

このように出来ないこともないのですが、

ちょっとこれは、反則級の使い方ではないかと個人的には思います。

では、マクロVBAならどうするかですが、

Range("C1") = Evaluate(Range(Range("A1") & "!" & Range("B1")).Value)

これで、答えの10がC3セルに表示されます。

順に解説すると、

Range("A1") & "!" & Range("B1")"SHeet2!A1"

Range("SHeet2!A1")
"(2+3)*2"

Evaluate("(2+3)*2")10

となります。

まさに、このような文字列としての計算式を計算するには、他の代替え方法はありません。

Evaluateを使うしかないのです。

めったに必要に迫られることはないと思いますが、

他の方法が存在しない限り、知っておかなければならない必須メソッドになります。

多少余談なりますが、

Evaluateの省略形として、[]があります。

つまり、

[A1]

このような書き方も存在しますが、これはあくまで固定文字を引数にしている為、

応用範囲も限定されますし、かなり古い記述でもあり、使用しないほうが良いでしょう。

Evaluateは、文字列としての計算式を計算する場合だけの使用が望ましいです。




同じテーマ「ExcelマクロVBA技術解説」の記事

文字列置換の基本と応用(Replace)
空白セルを正しく判定する方法(IsEmpty,IsError,HasFormula)
空白セルを正しく判定する方法2
実行時にトラップ可能なエラー番号一覧
論理積(And)論理和(Or)と真(True)偽(False)の判定
VBAにおける括弧()の使い方
Rangeオブジェクト.Valueの省略について

新着記事 ・・・新着記事一覧を見る

SUMIFの間違いによるパフォーマンスの低下について|エクセル関数超技(6月17日)
条件式のいろいろな書き方:TrueとFalseの判定とは|ExcelマクロVBA技術解説(6月15日)
空白セルを正しく判定する方法2|ExcelマクロVBA技術解説(5月6日)
フルパスをディレクトリ、ファイル名、拡張子に分ける|ExcelマクロVBA技術解説(4月15日)
テキストボックスの各種イベント|Excelユーザーフォーム入門(4月9日)
フォルダ(サブフォルダも全て)削除する、Optionでファイルのみ削除|ExcelマクロVBAサンプル集(4月4日)
最後の空白(や指定文字)以降の文字を取り出す|エクセル関数超技(3月26日)
先頭の数値、最後の数値を取り出す|エクセル関数超技(3月26日)
Excelファイルを開かずにシート名をチェック|ExcelマクロVBAサンプル集(3月23日)
数式の参照しているセルを取得する|ExcelマクロVBAサンプル集(3月18日)

アクセスランキング ・・・ ランキング一覧を見る

1.最終行の取得(End,Rows.Count)|ExcelマクロVBA入門
2.RangeとCellsの使い方|ExcelマクロVBA入門
3.Range以外の指定方法(Cells,Rows,Columns)|ExcelマクロVBA入門
4.変数とデータ型(Dim)|ExcelマクロVBA入門
5.徹底解説(VLOOKUP,MATCH,INDEX,OFFSET)|エクセル関数超技
6.セルのコピー&値の貼り付け(PasteSpecial)|ExcelマクロVBA入門
7.定数と型宣言文字(Const)|ExcelマクロVBA入門
8.セルの参照範囲を可変にする(OFFSET,COUNTA,MATCH)|エクセル関数超技
9.CSVの読み込み方法|ExcelマクロVBAサンプル集
10.ひらがな⇔カタカナの変換|エクセル基本操作



  • >
  • >
  • >
  • 文字列でのセル参照と文字列の計算式について(Evaluate,INDIRECT)

  • このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。


    記述には細心の注意をしたつもりですが、
    間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
    なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。

    ↑ PAGE TOP