IsObject関数
識別子(主にバリアント変数)がオブジェクト変数を表しているかどうかを判断する場合に使用します。
バリアント変数がオブジェクト変数を表しているかどうかを示すBoolean値(True/False)を返します。
IsObject関数の構文
IsObject関数の解説
または、VarType vbObjectのバリアント型 (Variant) の場合、またはユーザー定義のオブジェクトの場合はTrueを返します。
それ以外の場合は、 Falseを返します。
・固有オブジェクト型で宣言されている場合
・バリアント変数がオブジェクトを表している場合
・変数にNothingが設定されている場合
したがって、VBAの基本データ型(プリミティブ型)は常にFalseが返りますので判定する意味はありません。
クラスがインスタンス化されているかどうかを判定するには、Is Nothingを使用してください。
Object型と固有オブジェクト型について
IsObject関数に指定できない変数
IsObject関数の使用例
Dim vObject As Object
Debug.Print IsObject(vObject) 'True
Dim vRange As Range
Debug.Print IsObject(vRange) 'True
Dim vClass As クラス名
Debug.Print IsObject(vClass) 'True
Dim vLong As Long
Debug.Print IsObject(vLong) 'False
Dim vVariant As Variant
Debug.Print IsObject(vVariant) 'False
Set vVariant = Nothing
Debug.Print IsObject(vVariant) 'True
vVariant = "abc"
Debug.Print IsObject(vVariant) 'False
Set vVariant = Range("A1")
Debug.Print IsObject(vVariant) 'True
Variant変数がNothingとなっている場合にもTrueが返る事に注意してください。
実務的な使用場面としては、
以下のように関数Function等の代入ステートメントでの書き分けに使用されることが多いでしょう。
Function fnc(arg As Variant) As Variant
If IsObject(arg) Then
Set fnc = arg
Else
fnc = arg
End If
End Function
変数がオブジェクト(Nothingを含む)を表している場合、代入ではSetステートメントの記述が必要になります。
逆に、オブジェクト以外の場合には、Setステートメントを記述することができません。
Is○○関数一覧
関数名 | 機能 |
IsArray関数 | 変数が配列かどうかを示すブール型(Boolean)の値を返します。 |
IsDate関数 | 式が日付であるかを示すブール型(Boolean)の値を返します。 |
IsEmpty関数 | 変数が初期化されているかどうかを示すブール型(Boolean)の値を返します。 |
IsError関数 | 式がエラー値かどうかを示すBoolean値を返します。 |
IsMissing関数 | オプション(Optional)のVariant引数がプロシージャに渡されたかどうかを示すブール型(Boolean)の値を返します。 |
IsNull関数 | 式に無効なデータ(Null)が含まれていないかどうかを示すブール型(Boolean)の値を返します。 |
IsNumeric関数 | 式を数値として評価できるかどうかを示すブール型(Boolean)の値を返します。 |
IsObject関数 | 識別子がオブジェクト変数を表しているかどうかを示すBoolean値を返します。 |
同じテーマ「VBA関数」の記事
IsMissing関数
IsNull関数
IsNumeric関数
IsObject関数
TypeName関数
VarType関数
Date関数
DateAdd関数
DateDiff関数
DatePart関数
DateSerial関数
新着記事NEW ・・・新着記事一覧を見る
シートコピー後のアクティブシートは何か|ツイッター出題回答 (2023-09-19)
Excel関数の引数を省略した場合について|ツイッター出題回答 (2023-09-14)
セル個数を返すRange.CountLargeプロパティとは|VBA技術解説(2023-09-08)
記号を繰り返してグラフ作成(10単位で折り返す)|ツイッター出題回答 (2023-08-28)
シートを削除:不定数のシート名に対応|VBAサンプル集(2023-08-24)
ランクによりボイントを付ける(同順位はポイントを分割)|ツイッター出題回答 (2023-08-22)
OneDrive使用時のThisWorkbook.Pathの扱い方|VBA技術解説(2023-07-26)
列幅不足による###表示や指数表示を判定する|VBA技術解説(2023-07-12)
シートを削除:不定数のシート名に対応|VBAサンプル集(2023-07-04)
シート関数のCOUNTIFS,SUMIFS,MAXIFSと同じ処理|Power Query(M言語)入門(2023-02-28)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得(End,Rows.Count)|VBA入門
2.RangeとCellsの使い方|VBA入門
3.繰り返し処理(For Next)|VBA入門
4.変数宣言のDimとデータ型|VBA入門
5.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
6.マクロとは?VBAとは?VBAでできること|VBA入門
7.ブックを閉じる・保存(Close,Save,SaveAs)|VBA入門
8.並べ替え(Sort)|VBA入門
9.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
10.条件分岐(IF)|VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。