Eval 関数

result = Eval(expression)

式を評価し、結果を返します。

引数

result

省略可能です。
戻り値が代入される変数を指定します。result を指定しない場合は、Execute ステートメントで代用することを検討してください。

expression

任意の正しい VBScript の式を含む文字列を指定します。

解説

VBScript では、x = y の解釈が 2 とおりあります。1 つ目は代入ステートメントとして解釈され、y の値が x に代入されます。2 つ目は x と y の値が等しいかどうかをテストする式として解釈されます。等しい場合、result は True です。それ以外の場合、result は False です。Eval メソッドは常に 2 つ目の解釈を適用し、Execute ステートメントは常に 1 つ目の解釈を適用します。

備考

Microsoft JScript では、代入と比較を混同することはありません。代入演算子 (=) は比較演算子 (==) と異なるからです。

使用例

次のコードは、Eval 関数の使用例です。

Sub GuessANumber
   Dim Guess, RndNum
   RndNum = Int((100) * Rnd(1) + 1)
   Guess = CInt(InputBox("当たりだと思う数字を入力してください。",,0))
   Do
      If Eval("Guess = RndNum") Then
         MsgBox "おめでとう ! 当たりです。"
         Exit Sub
      Else
         Guess = CInt(InputBox("残念 ! もう一度。",,0))
      End If
   Loop Until Guess = 0
End Sub

この記事を読んで当サイトが面白いと思ったら、ぜひRSSリーダーやはてブなどに登録していただいて、また遊びにきてくださいね！ツイッターでも、更新履歴を流してます。

最速攻略VBScriptサンプル大全集

好評の「最速攻略 VBScript サンプル大全集」の改訂版です。これまでのWindows2000／XPに加え、Windows Vista、最新のWindows 7環境にも対応しています。Windows上での処理の自動化や一括処理（バッチ処理）をテーマとしたVBScriptのサンプルスクリプト集です。付属 CD-ROMには、すぐに使うことができる100以上のサンプルスクリプトを用意しています。

VBScriptポケットリファレンス改訂版

ＷｅｂでもＷｉｎｄｏｗｓでも使えるＶＢＳｃｒｉｐｔだから手元においてさっと引けるこの一冊！ＶＢＳｃｒｉｐｔ５．６に対応！待望の改訂版！目的別リファレンスでやりたいことから調べられます。すべての項目にサンプルコード掲載！ＷＳＨ、ＡＳＰ、ＩＥすべての環境でお役に立ちます。

Excel VBAポケットリファレンス改訂第3版

好評のExcel VBAポケットリファレンスが改訂第3版としてリニューアルしました。知りたいコマンドがすぐ調べられる機能引きリファレンスはそのままに、最新の Excel 2010に完全対応。もちろん、これまでのExcel 97、2000、2002、2003、2007のすべてのバージョンに対応しています。「こんなときどうするの？」「どう書けばいいの？」という疑問がすぐ解決する、全てのExcel VBAユーザー必携の、最強のリファレンスブックです！

Access VBA逆引きハンドブック

本書はAccess VBAの各機能を、豊富なプログラミング例を使って、初心者にもわかりやすく、かつ網羅的に解説しています。また、やりたいことを目的別に簡単に探せる「逆引き」の構成になっています。

スポンサードリンク