すぐに役立つエクセルVBAマクロ集 すぐマク
すぐに役立つ Excel VBA マクロ集 Excel VBA Macro
FAQ
Google
 
Home |  What's New! |  Gallery |  Introduction |  Service |  Profile 500連発・組み方講座フォロー Big Color Pallet
[広告]
Excel VBA Macro
Excel DownLoad
© 1997 - 2008
永井善王.
All RightsReserved.
HappyTech & Co., Ltd.
www.happy500z.com
Excel VBA Macro ・ 値の操作 ・ FAQ
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の場合ということになります。
なお、このことは
正誤表 にても公開させていただきます。すみませんでした。