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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 日付時刻：数値から日付・時刻データを取得（ DateSerial 関数、TimeSerial 関数）

DateSerial 関数（数値を使って日付データを取得）【書式】 date …

: 文字列：文字列を指定した形式に変換する（StrConv 関数）

StrConv 関数の使い方【書式】 result = StrConv ( s …

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

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

: 変数が数値型かどうかをチェックする（ IsNumeric 関数）

IsNumeric 関数の使い方【書式】 result = IsNumeric …

: 配列（多次元配列・配列の次元の変更）

多次元配列【書式】　多次元配列の宣言＜静的配列（固定長配列）＞ Dim my …

: 変数がNull 値かどうかをチェックする（ IsNull 関数）

IsNull 関数の使い方【書式】 result = IsNull ( exp …

: VBA で正規表現を使う（RegExp オブジェクトのメソッド）

RegExp オブジェクトのメソッド RegExp オブジェクトの詳細に関しては …

: 日付時刻：日付・時刻の間隔を取得（ DateDiff 関数）

DateDiff 関数の使い方【書式】 result = DateDiff ( …

: ユーザー定義定数（Const ステートメント）

定数を使うユーザー定義の定数を使用するには、Const ステートメントを使って …

: Erase ステートメント（配列の初期化・動的配列のメモリ解放）

Erase ステートメントの使い方【書式】 Erase myArray [, …

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