コンボボックスのリストデータを数値に変えたら[実行時エラー]が発生するが?
Question 036k Previous Next
376ページ [5-2-3図] ◆ 環境・・ Excel 2000 & Windows
詳細は こちら
電話番号のデータをすべて、ハイフォンの入らない普通の数字(1 2 3 4 等)に変更して、[表示]ボタンをクリックし、実行すると、右図のエラーメッセージが出ます。 どうしてですか。

電話番号のCOMBOBOX1のプロパティに特別な設定はしていないと思いますが・・・
Answer   Copyright (C) 2004.5.19 永井善王
拙著「Excel VBA マクロ組み方講座」本をご購入いただき、ありがとうございます。
第5章2の 「ワークシートとユーザーフォームを連係させる (2) コンボボックスとリストボックス」の学習では、
右上図のワークシートの B2:B5セルのデータをユーザーフォームのコンボボックスに表示しています。
このデータが文字列であることは、見ただけでお分かりいただけるかと思います。 これを数値に変更してしまったのですね。

この状態ですと、一応、コンボボックスのドロップダウンリストに表示されますが、それを選択するためクリックすると、お尋ねのとおりの[実行時エラー]が発生します。
なぜ、そうなるかというと、コンボボックスに表示するデータは、文字列でないといけないからです。

よって、解決策としては、B2:B5セルを [セルの書式設定]の[表示形式]で[文字列]に設定してから、右下図のように電話番号のハイフンを消去して数字だけにしてから、再度、試してみてください。

 

Excel VBA Macro