困ったとき候補が出ないのは候補を出すべきクラスが分からないからVBAで各種オブジェクトの後ろでドット(.)を押すとメソッドやプロパティが表示されます。ところが同じようにドット(.)を入力しても入力候補が出ない場合があります。出ないのにはもちろん理由があります。候補が出ないのは候補を出すべきクラスが分からないためです。RangeクラスだったらValueやTextプロパティ、ShapeクラスだったらNameやTitleなどのプロパティがあるとわかるのですが、何のクラスなのか分からないと出しようがありません。x)という記述ではクラスが分からない状態なんです。そのままでは入力候補を出すことは出来ませんが別の方法で候補を出すことは出来ます。x)のそれぞれにおいて、候補が出ない理由と候補を出す方法を説明します。「Selection」は何を選択しているかによって内容が変わります。具体的にはセルを選択しているのか、オートシェイプを選択しているのか、などの違いです。「Selection」だけでは何を選択しているのかはコード上は分かりません。マクロを実行するまで何が選択されているのか分からないのです。セルの場合はRangeクラス、オートシェイプの場合ではDrawingObjectsと異なり、当然メソッドやプロパティも異なります。そのため候補を出せません。そこで、以下のように何を選択しているのかを明示することで候補表示ができるようになります。セル範囲を選択している場合のSelectionセル範囲を選択している場合のSelectionはRangeオブジェクトになります。そこで、明示的にRangeオブジェクトの変数に代入します。以下のようにSelectionをRangeクラスのオブジェクト変数に代入すると、その変数にドット(.)を入力すれば入力候補が表示されるようになります。4行目がその代入部分です。オブジェクトへの代入のためSetステートメントでの代入になります。オートシェイプを選択している場合のSelection上のセル範囲の場合と同様で、オートシェイプを選択している場合のSelectionはDrawingObjectsオブジェクトになります。DrawingObjectsオブジェクトは古い形式で内部的には存在しているのですが、DrawingObjectsクラスは入力候補が出ません。そのため、DrawingObjectsクラスの後継クラスであるShapeRangeクラスを利用します。ShapeRangeクラスは入力候補が表示されます。ShapeRangeクラスのオブジェクト変数に代入するには、Selection(ここではDrawingObjectsオブジェクト)のShapeRangeプロパティを使います。こちらもオブジェクトへの代入のためSetステートメントでの代入になります。あとは、ShapeRangeオブジェクトとしてドット(.)で入力候補が表示されるようになります。x)=Variant=クラス未定」という違いにより候補表示できません。「Cells」と入力してドット(.)を入力すると候補表示されます。「Cells」がRangeオブジェクトを返すためです。CellsとRangeは定義上はこうなっています。x)は定義として存在しません。Rangeは逆で、「Range」だけの定義は存在しません。[ColumnIndex])」と出てきます。これはCellsがRangeクラスのため、そのRangeクラスの初期値候補の_Defaultが表示されます。x)」の形になると上記の通り定義されていないため、候補が表示されないことになります。本来であれば、「Cells」の定義は以下のような定義が正しい形なんでしょうけど、これが無いのは個人的にはVBAの設計漏れだろうと思います。Rangeオブジェクト変数に代入する上のSelectionの場合と同じです。Rangeオブジェクト変数に代入します。オブジェクトへの代入のためSetステートメントでの代入になります。あとは代入後のRangeオブジェクトの変数を使えば候補が表示されます。あとにドット(.)を入力する上にも書きましたが「Cells」と5文字入力したあとにドット(.)を入力すると入力候補が表示されます。ここで候補を選んで、あとから括弧の中を書く、という方法です。個人的には面倒なのとCellsはあまり使わないのでこの書き方はしません。一応できます、って感じですね。Excel作業をVBAで効率化シェアお問合わせTOPへ。