ExcelWork.info

Excel(エクセル)のマクロ・VBA・関数・操作などのメモ

セルが選択されているか確認する(TypeName 関数)

   

セルが選択されているか確認する方法と使用例

TypeName 関数の引数に、Selection を渡し、この時の戻り値が「Range」であればセルが選択されていることを示します。
戻り値が「Range」以外の場合は、セル以外のオブジェクトが選択されていることになります。( 例:図形を選択 ⇒「Rectangle」, テキストボックスを選択 ⇒「TextBox」など)
( ※ TypeName 関数 の使い方 )


【書式】

If TypeName ( Selection ) = “Range” then

    ’セルが選択されている場合の処理
    [ statements ]

Else

    ’セルが選択されていない場合の処理
    [ statements ]

End If



サンプルVBAソース


実行結果

セルが選択されている場合

TypeName(Selection) 例01

図形が選択されている場合

TypeName(Selection) 例02




 - セルの操作 , , , , ,

Message

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください

  関連記事

セルに値を設定する・セルの値を参照する(Value プロパティ)

Value プロパティ Value プロパティは、セルの値を取得したり、値を設定 …

別シートのセルを選択(Goto メソッド / PreviousSelections プロパティ)

Goto メソッド 次の例のように、1 行で、Activate メソッド や S …

セル内の編集を禁止する(EditDirectlyInCell プロパティ)

EditDirectlyInCell プロパティ エクセルでは、セルをダブルクリ …

列幅を取得・設定・する(ColumnWidth プロパティ)

ColumnWidth プロパティ ColumnWidth プロパティは、対象セ …

文字列の横位置を取得・設定する(HorizontalAlignment プロパティ)

HorizontalAlignment プロパティ HorizontalAlig …

セルの値を置換(Replace メソッド)

Replace メソッド 任意のセル範囲内から特定の値を一括して置換します。Fi …

Goto メソッド
指定したセルへ移動(Goto メソッド)

指定したセルへ移動 指定したシートの指定したセルへジャンプするには、Goto メ …

オートフィルタ(日付による抽出)AutoFilter メソッド

日付で、抽出する(AutoFilter メソッド) 【書式】 object.Au …

文字列をセル幅で折り返す(WrapText プロパティ)

WrapText プロパティ WrapText プロパティは、セルに表示されてい …

セル・セル範囲を貼り付ける(Paste メソッド)

Paste メソッド Paste メソッドは、クリップボードの内容を指定したセル …