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

関連記事

: 変数のデータ型・宣言（Dim ステートメント）

変数の宣言一般的な方法【書式】 Dim varname [ As type, …

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

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

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

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

: 文字列：文字列右から指定文字数取得（Right 関数,RightB 関数）

Right 関数・RightB 関数の使い方【書式】 result_righ …

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

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

: ポイント単位の値に変換（CentimetersToPoints,InchesToPoints）

CentimetersToPoints メソッドセンチメートル単位の値をポイン …

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

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

: 文字列：文字列の指定した位置から指定文字数取得（Mid 関数,MidB 関数）

Mid 関数・MidB 関数の使い方【書式】 result_mid = Mi …

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

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

: 配列の添字の最小値を「1」に設定する

Option Base ステートメントを使用する【書式】 Option Bas …

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