Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

セルが選択されているか確認する（TypeName 関数）

2015/05/24

セルが選択されているか確認する方法と使用例

TypeName 関数の引数に、Selection を渡し、この時の戻り値が「Range」であればセルが選択されていることを示します。
戻り値が「Range」以外の場合は、セル以外のオブジェクトが選択されていることになります。（例：図形を選択 ⇒「Rectangle」,　テキストボックスを選択 ⇒「TextBox」など）
（ ※ TypeName 関数の使い方 )

【書式】

If TypeName ( Selection ) = “Range” then

　　　　’セルが選択されている場合の処理
　　　　[ statements ]

Else

　　　　’セルが選択されていない場合の処理
　　　　[ statements ]

End If

サンプルVBAソース

　
Sub Sample_TypeName_Selection()

    If TypeName(Selection) = "Range" Then
    
        MsgBox ActiveCell.Value
    
    Else
        
        MsgBox "セルは選択されていません"
    
    End If

End Sub

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

　

実行結果

セルが選択されている場合

図形が選択されている場合

- セルの操作 Selection, TypeName 関数, VBA基本, エクセルVBA, セルの操作, セルの選択

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: セルが結合セルの一部である場合、その結合セルの範囲を取得（MergeArea プロパティ）

MergeArea プロパティ MergeArea プロパティは、指定したセルが …

: オートフィルタの設定と解除（AutoFilter メソッド）

AutoFilter メソッドオートフィルタを設定する場合、AutoFilte …

: 終端セルを参照する（End プロパティ）

End プロパティ End プロパティは、基準となるセルが含まれる領域の指定した …

: セル範囲を結合・結合を解除（MergeCells プロパティ）

MergeCells プロパティ MergeCells プロパティは、指定したセ …

: 別シートのセルを選択（Goto メソッド／ PreviousSelections プロパティ）

Goto メソッド次の例のように、1 行で、Activate メソッドや S …

: 文字列の横位置を取得・設定する（HorizontalAlignment プロパティ）

HorizontalAlignment プロパティ HorizontalAlig …

: 対象のセルを参照している全てのセルを取得（Dependents プロパティ）

Dependents プロパティ Dependents プロパティは、対象のセル …

: オートフィルタ（抽出条件で使用できる演算子・記号）AutoFilter メソッド

AutoFilter メソッド【書式】 object.AutoFilter ( …

: セルに値を設定する・セルの値を参照する（Value プロパティ）

Value プロパティ Value プロパティは、セルの値を取得したり、値を設定 …

: ハイパーリンク（Hyperlink オブジェクトのメソッド）

Hyperlink オブジェクトのメソッド Hyperlinks コレクション …

PREV: セルをアクティブにする・セルを選択する（Activate, Select）
NEXT: 非連続のセルが選択されているか確認する（Areas コレクション）