IsObject関数
識別子(主にバリアント変数)がオブジェクト変数を表しているかどうかを判断する場合に使用します。
バリアント変数がオブジェクト変数を表しているかどうかを示すBoolean値(True/False)を返します。
IsObject関数の構文
IsObject関数の解説
それ以外の場合は、 Falseを返します。
具体的に説明すると、
・Object型で宣言されている場合
・固有オブジェクト型で宣言されている場合
・バリアント変数がオブジェクトを表している場合
・変数にNothingが設定されている場合
上記以外の場合は、 IsObject関数はFalseを返します。
したがって、VBAの基本データ型(プリミティブ型)は常にFalseが返りますので判定する意味はありません。
IsObjectはクラスがインスタンス化(New)されているかどうかの判定には使えません。
クラスがインスタンス化されているかどうかを判定するには、Is Nothingを使用してください。
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ステートメントを記述することができません。
同じテーマ「VBA関数」の記事
IsEmpty関数
IsNumeric関数
IsMissing関数
IsObject関数
IsError関数
IsNull関数
TypeName関数
VarType関数
Date関数
DateAdd関数
DateDiff関数
新着記事NEW ・・・新着記事一覧を見る
PropertyのSetはLetでも良い|VBA技術解説(2021-03-31)
エクセル麻雀ミニゲーム|VBAサンプル集(2021-03-09)
VBA100本ノック 100本目:WEBから100本ノックのリストを取得|VBA練習問題(2021-03-03)
VBA100本ノック 魔球編:2桁の最小公倍数|VBA練習問題(2021-02-02)
Select Caseでの短絡評価(ショートサーキット)の使い方|VBA技術解説(2021-01-03)
VBA100本ノック 迷宮編:巡回セル問題|VBA練習問題(2020-12-31)
VBA100本ノック 魔球編:閉領域の塗り潰し|VBA練習問題(2020-12-16)
VBA100本ノック 魔球編:組み合わせ問題|VBA練習問題(2020-12-02)
将棋とプログラミングについて~そこには型がある~|エクセル雑感(2020-11-22)
VBA100本ノック 1本目:セルのコピー|VBA練習問題(2020-10-19)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得(End,Rows.Count)|VBA入門
2.RangeとCellsの使い方|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.マクロって何?VBAって何?|VBA入門
5.Excelショートカットキー一覧|Excelリファレンス
6.繰り返し処理(For Next)|VBA入門
7.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
8.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
9.セルに文字を入れるとは(Range,Value)|VBA入門
10.とにかく書いてみよう(Sub,End Sub)|VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。