セルが選択されているか確認する（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 |
実行結果
セルが選択されている場合
図形が選択されている場合
関連記事
-
-
使用中のセル範囲を取得（UsedRange プロパティ）
UsedRange プロパティ UsedRange プロパティは、指定したワーク …
-
-
文字列の縦位置を取得・設定する（VerticalAlignment プロパティ）
VerticalAlignment プロパティ VerticalAlignmen …
-
-
セルの高さ・幅を取得（Height プロパティ・Width プロパティ）
Height プロパティ・Width プロパティ Height プロパティは、指 …
-
-
対象のセルが参照している全てのセルを取得（Precedents プロパティ）
Precedents プロパティ Precedents プロパティは、対象のセル …
-
-
コメントの設定（Comments, Comment, AddComment, ClearComment）
コメントの設定 セルにコメントを新規に挿入するには、AddComment メソッ …
-
-
セルの幅・高さの自動調整（AutoFit メソッド）
AutoFit メソッド AutoFit メソッドは、指定したセル・セル範囲（R …
-
-
フリガナの取得（GetPhonetic メソッド）
GetPhonetic メソッド GetPhonetic メソッドは、指定した文 …
-
-
オートフィルタ（抽出件数の取得・結果集計）AutoFilter メソッド
ワークシート関数の Subtotal 関数 の使い方 VBA には、オートフィル …
-
-
数式を非表示にする（FormulaHidden プロパティ）
FormulaHidden プロパティ 数式が入力されたセルを選択するとその数式 …
-
-
文字列の一部の書式を変更（Characters プロパティ）
文字列の一部を参照（Characters プロパティ） Characters プ …