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

変数がオブジェクト型かどうかをチェックする（ IsObject 関数）

2015/04/27

IsObject 関数の使い方

【書式】

result = IsObject ( expression )

【引数・戻り値】

expression ・・・調べる変数や式
result ・・・引数 expression が、オブジェクト型の変数であるかどうかを調べた結果
（ブール型：オブジェクト変数であれば、True ／そうでなければ、False ）。

IsObject 関数は、引数 expression がオブジェクト型（Object）で宣言された変数であったり、任意の有効なクラスを指定して宣言された変数である場合は、真（True）を返します。
また、expression がバリアント型（Variant）であっても、Set ステートメントで、オブジェクト変数を参照している場合は、真（True）を返します。さらに、変数に、Nothing が設定されている場合にも真（True）を返します。

IsObject 関数の使用例

サンプルVBAソース

　
Sub Sample_isobject()


    Dim myObj1 As Object, myObj2 As Object, myObj3 As Object
    Dim myVal1, myVal2, myVal3, myVal4
        
    Set myObj1 = Application.ActiveWorkbook
    Set myObj3 = Nothing
    Set myVal1 = myObj2
    myVal2 = "Hello！"
    myVal3 = Null

    'True
    Debug.Print IsObject(myObj1)    'ワークブックオブジェクト
    Debug.Print IsObject(myObj2)    'オブジェクト型（宣言のみ）
    Debug.Print IsObject(myObj3)    'Nothing を設定
    Debug.Print IsObject(myVal1)    'バリアント型（オブジェクト型を参照）
    
    'False
    Debug.Print IsObject(myVal2)    'バリアント型（文字列）
    Debug.Print IsObject(myVal3)    'バリアント型（Null）
    Debug.Print IsObject(myVal4)    'バリアント型（Empty）


End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

　

Sub Sample_isobject()

Dim myObj1 As Object, myObj2 As Object, myObj3 As Object

Dim myVal1, myVal2, myVal3, myVal4

Set myObj1 = Application.ActiveWorkbook

Set myObj3 = Nothing

Set myVal1 = myObj2

myVal2 = "Hello！"

myVal3 = Null

'True

Debug.Print IsObject(myObj1) 'ワークブックオブジェクト

Debug.Print IsObject(myObj2) 'オブジェクト型（宣言のみ）

Debug.Print IsObject(myObj3) 'Nothing を設定

Debug.Print IsObject(myVal1) 'バリアント型（オブジェクト型を参照）

'False

Debug.Print IsObject(myVal2) 'バリアント型（文字列）

Debug.Print IsObject(myVal3) 'バリアント型（Null）

Debug.Print IsObject(myVal4) 'バリアント型（Empty）

End Sub

　

実行結果

- VBA基本 IsObject 関数, object, VBA基本, エクセルVBA, 変数, 調査

Tweet

Message コメントをキャンセル

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

関連記事

: Array 関数（バリアント型の配列を作成）

Array 関数の使い方【書式】 myArray = Array ( elem …

: 日付時刻：現在の日付・時刻を取得・設定（Now、Date、Time）

現在の日付・時刻を取得・設定現在の日付・時刻を取得（Now 関数、Date 関 …

: データ型を調べて、そのデータ型を示す数値を返す（VarType 関数）

VarType 関数の使い方 VarType 関数は、引数に、データ型を調べた …

: VBA で正規表現を使う（RegExp オブジェクトのプロパティ）

RegExp オブジェクトのプロパティ RegExp オブジェクトの詳細に関して …

: 日付時刻：経過時間を取得（ Timer 関数）

Timer 関数の使い方【書式】 result = Timer () 【戻り値 …

: 文字列：文字列左から指定文字数取得（Left 関数,LeftB 関数）

Left 関数・LeftB 関数の使い方【書式】 result_left = …

: 配列（宣言・要素数の変更について）

配列の宣言【書式】※ 配列の宣言＜Type 型の静的配列（固定長配列）の宣言 …

: メッセージボックスを表示（MsgBox関数）

MsgBox関数【書式】 result = MsgBox ( Prompt [ …

: 列挙型変数（Enum ステートメント）

列挙型変数を使う列挙型変数を使用するには、Enum ステートメントを使って、宣 …

: 文字列：文字列を最後から検索してその最初の文字位置を返す（InStrRev 関数）

InStrRev 関数任意の文字列の中で、指定した文字列を最後から検索して、見 …

PREV: 変数がNull 値かどうかをチェックする（ IsNull 関数）
NEXT: 引数が省略されたかどうかをチェックする（ IsMissing 関数）