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

関連記事

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

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

: 変数が日付型かどうかをチェックする（ IsDate 関数）

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

: 文字列：文字列の空白を削除（Trim 関数, LTrim関数, RTrim関数）

Trim 関数・LTrim 関数・RTrim 関数の使い方【書式】＜先頭と末 …

: 文字列：２つの文字列を比較する（StrComp 関数）

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

: 四捨五入・切り上げ・切り捨て・丸め（Round 関数他）

Round 関数（丸め）の使い方【書式】 value = Round ( ex …

: カレントフォルダの取得・設定（DefaultFilePath プロパティ）

DefaultFilePath プロパティカレントフォルダとは、ブックを開いた …

: Join 関数（配列の要素を結合）

Join 関数 1次元配列の各要素を指定した区切り文字で連結します。【書式】 …

: 文字列：指定した文字コードに対応する文字を返す（Chr 関数）

Chr 関数の使い方【書式】 result = Chr ( code ) 引数 …

: 文字列：指定した数の空白（スペース）からなる文字列を返す（Space 関数）

Space 関数【書式】 result = Space ( number ) …

: RGB 値一覧表（XlRgbColor 列挙型）

RGB 値（XlRgbColor 列挙型）一覧表 RGB 関数を使用して、出力さ …

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