セルが選択されているか確認する（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 |
実行結果
セルが選択されている場合
図形が選択されている場合
関連記事
-
-
罫線の設定（Borders プロパティ）
罫線の設定 罫線を一括（上下左右すべて）で設定するには、Borders プロパテ …
-
-
オートフィルタ（日付・時刻のグループ化）AutoFilter メソッド
グループ化された日付や時刻で、レコードを抽出する Excel 2007 から日付 …
-
-
フリガナ（Phonetics プロパティ）
Phonetics プロパティ Phonetics コレクションを返します。値の …
-
-
フリガナの設定（Characters プロパティ,PhoneticCharacters メソッド）
Characters プロパティ Characters プロパティは、文字範囲を …
-
-
文字列の一部の書式を変更（Characters プロパティ）
文字列の一部を参照（Characters プロパティ） Characters プ …
-
-
オートフィルタ（アイコンで抽出する）AutoFilter メソッド
オートフィルタ（アイコンで抽出する） Excel 2007 から、条件付き書式で …
-
-
オートフィルタ（抽出条件で使用できる演算子・記号）AutoFilter メソッド
AutoFilter メソッド 【書式】 object.AutoFilter ( …
-
-
配列数式を取得または設定する（FormulaArray プロパティ）
FormulaArray プロパティ FormulaArray プロパティは、対 …
-
-
テーマカラーで網かけ（パターン）の色の取得・設定（PatternThemeColor プロパティ・PatternTintAndShade プロパティ）
PatternThemeColor プロパティ・PatternTintAndSh …
-
-
セルを挿入する（Insert メソッド）
Insert メソッド Insert メソッドで、指定した場所に新規の空白セルを …