セルが選択されているか確認する（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 |
実行結果
セルが選択されている場合
図形が選択されている場合
関連記事
-
-
直前のセル・直後のセルを参照する（Previous プロパティ・Next プロパティ）
Previous プロパティ・Next プロパティ Previous プロパティ …
-
-
オートフィルタ（矢印を非表示にする）AutoFilter メソッド
AutoFilter メソッド 【書式】 object.AutoFilter ( …
-
-
フリガナ（Phonetics プロパティ）
Phonetics プロパティ Phonetics コレクションを返します。値の …
-
-
セルを削除する（Delete メソッド）
Delete メソッド Delete メソッドで、指定したセル・セル範囲を削除し …
-
-
セル内の編集を禁止する（EditDirectlyInCell プロパティ）
EditDirectlyInCell プロパティ エクセルでは、セルをダブルクリ …
-
-
セル範囲を結合・結合を解除（Merge メソッド・UnMerge メソッド）
Merge メソッド・UnMerge メソッド セルを結合するには、指定したセル …
-
-
対象のセルが直接参照しているセル全てを取得（DirectPrecedents プロパティ）
DirectPrecedents プロパティ DirectPrecedents …
-
-
セルの値を置換（Replace メソッド）
Replace メソッド 任意のセル範囲内から特定の値を一括して置換します。Fi …
-
-
セルを参照する（Cells プロパティ）
Cells プロパティ Cells プロパティは、ワークシートの行番号と列番号を …
-
-
セル幅・高さの既定値（StandardHeight プロパティ・StandardWidth プロパティ）
StandardHeight プロパティ・StandardWidth プロパティ …