セルが選択されているか確認する（TypeName 関数）
セルが選択されているか確認する方法と使用例
TypeName 関数の引数に、Selection を渡し、この時の戻り値が「Range」であればセルが選択されていることを示します。
戻り値が「Range」以外の場合は、セル以外のオブジェクトが選択されていることになります。（ 例：図形を選択 ⇒「Rectangle」, テキストボックスを選択 ⇒「TextBox」など）
（ ※ TypeName 関数 の使い方 )
If TypeName ( Selection ) = “Range” then
’セルが選択されている場合の処理
[ statements ]
Else
’セルが選択されていない場合の処理
[ statements ]
End If
サンプルVBAソース
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
Sub Sample_TypeName_Selection() If TypeName(Selection) = "Range" Then MsgBox ActiveCell.Value Else MsgBox "セルは選択されていません" End If End Sub |
実行結果
セルが選択されている場合
図形が選択されている場合
関連記事
-
-
入力規則（入力時メッセージの設定）Validation オブジェクト
入力規則の入力時メッセージを表示する Validation.ShowInput …
-
-
セルを参照する（Cells プロパティ）
Cells プロパティ Cells プロパティは、ワークシートの行番号と列番号を …
-
-
非連続のセルが選択されているか確認する（Areas コレクション）
Areas コレクション の使い方 複数の離れた位置にあるセル範囲を選択した場合 …
-
-
セル・セル範囲をコピーする（Copy メソッド）
Copy メソッド Copy メソッドは、セル範囲をコピーし、指定したセル範囲に …
-
-
セル内部を参照（Interior プロパティ）
Interior プロパティ Interior プロパティで、セルの内部を参照し …
-
-
セルの表示形式を設定・取得する（NumberFormat プロパティ）
NumberFormat プロパティ NumberFormat プロパティは、現 …
-
-
ハイパーリンク（Hyperlinks オブジェクト）
Hyperlinks オブジェクト ワークシートまたはセル範囲のワークシートコレ …
-
-
セル・セル範囲に名前を定義・削除（Name プロパティ・Names コレクション）
セル・セル範囲に名前を定義（Name プロパティ） Range オブジェクトのN …
-
-
セルの行番号または列番号を取得（Row プロパティ,Column プロパティ）
Row プロパティ・Column プロパティ Row プロパティは、指定したセル …
-
-
対象のセルを参照している全てのセルを取得（Dependents プロパティ）
Dependents プロパティ Dependents プロパティは、対象のセル …