InputBoxメソッドで数値入力した場合に正常処理されないが?

Question 001p 拙著「組み方講座・プロの定番」 Previous Next
309ページ 4章2-3 定番[C1a] ◆ 環境・・ Excel 97 & Windows
詳細は こちら
[C1a]をそのまま実行させて、数値を入力するのですが、「キャンセルがクリックされた」となってしまいます。
キャンセルのときも同じです。 なぜでしょうか?
Answer   Copyright (C) 2005.1.21 永井善王
拙著「ExcelVBAマクロ組み方講座 プロの定番・裏技・合わせ技[編]」をご購読、ありがとうございます。
定番[C1a]は、「インプットボックスで情報を受け取る・InputBoxメソッドで数値入力」と題するサンプルですね。

さっそく見直してみましたところ、コードの一部に誤りがありました。 動作確認テスト等には万全を期したつもりでしたが、大変申し訳ございません。
つきましては、お手数をお掛けしますが下記のとおり訂正の程、よろしくお願い申し上げます。

 訂正カ所 … [C1a]の5行目  (誤) 
If Not 数値 Then
               (正) 
If False = 数値 Then

補足
InputBoxメソッドはユーザー入力用のダイアログボックスを表示して、[OK]ボタンがクリックされると入力された情報を返し、[キャンセル]ボタンがクリックされると Falseを返します。 (同ページの【4-2-3表】もご参照ください)
このサンプルでは、4行目に InputBoxメソッドの戻り値を変数「数値」に代入するコードがありますので、右図のメッセージを表示するのは変数「数値」の内容が Falseの場合ということになります。
なお、このことは
正誤表 にても公開させていただきます。すみませんでした。

 

Excel VBA Macro