セルが選択されているか確認する（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 |
実行結果
セルが選択されている場合
図形が選択されている場合
関連記事
-
-
２つ以上のセル範囲を１つにまとめて参照（Union メソッド）
Union メソッド Union メソッドは、２つ以上のセル範囲を１つにまとめて …
-
-
テーマカラーで網かけ（パターン）の色の取得・設定（PatternThemeColor プロパティ・PatternTintAndShade プロパティ）
PatternThemeColor プロパティ・PatternTintAndSh …
-
-
オートフィルタ（日付フィルタ）AutoFilter メソッド
日付フィルタを使用してレコードを抽出する Excel 2007 から「日付フィル …
-
-
現在選択されているセルを参照（RangeSelection プロパティ）
RangeSelection プロパティ 実際に何が選択されているかにかかわらず …
-
-
入力規則（日本語入力）Validation オブジェクト,IMEMode プロパティ
IMEMode プロパティ Validation.IMEMode プロパティ を …
-
-
文字列の横位置を取得・設定する（HorizontalAlignment プロパティ）
HorizontalAlignment プロパティ HorizontalAlig …
-
-
入力規則（エラーメッセージの設定）Validation オブジェクト
無効値を入力時に、エラーメッセージの表示 Validation.ShowErro …
-
-
セルが結合セルの一部である場合、その結合セルの範囲を取得（MergeArea プロパティ）
MergeArea プロパティ MergeArea プロパティは、指定したセルが …
-
-
重複するデータを削除（RemoveDuplicates メソッド）
RemoveDuplicates メソッド 指定したセル範囲から重複データを含む …
-
-
セルの行番号または列番号を取得（Row プロパティ,Column プロパティ）
Row プロパティ・Column プロパティ Row プロパティは、指定したセル …