セルが選択されているか確認する（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 |
実行結果
セルが選択されている場合
図形が選択されている場合
関連記事
-
-
セル内の編集を禁止する（EditDirectlyInCell プロパティ）
EditDirectlyInCell プロパティ エクセルでは、セルをダブルクリ …
-
-
罫線の設定（Borders プロパティ）
罫線の設定 罫線を一括（上下左右すべて）で設定するには、Borders プロパテ …
-
-
指定したセルへ移動（Goto メソッド）
指定したセルへ移動 指定したシートの指定したセルへジャンプするには、Goto メ …
-
-
ハイパーリンク（Hyperlink オブジェクト）
Hyperlink オブジェクト Hyperlinks コレクション のメンバー …
-
-
数式を設定・取得する（Formula プロパティ・FormulaR1C1 プロパティ）
Formula プロパティ（FormulaR1C1 プロパティ） Formula …
-
-
外枠罫線の設定（BorderAround メソッド）
外枠罫線の設定 罫線の設定には、Borders プロパティを使用しますが、範囲内 …
-
-
グラデーション（Pattern プロパティ・Gradient プロパティ）
セルの背景ににグラデーションを設定する Pattern プロパティを使用するとセ …
-
-
フリガナの設定（SetPhonetic メソッド）
フリガナの設定（SetPhonetic メソッド） SetPhonetic メソ …
-
-
別シートのセルを選択（Goto メソッド ／ PreviousSelections プロパティ）
Goto メソッド 次の例のように、1 行で、Activate メソッド や S …
-
-
指定した行数・列数移動したセル・セル範囲を参照（Offset プロパティ）
Offset プロパティ Offset プロパティは、基準となるセル・セル範囲か …