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 ・・・新着記事一覧を見る
Select Caseでの短絡評価(ショートサーキット)の使い方|VBA技術解説(1月3日)
VBA100本ノック 迷宮編:巡回セル問題|VBA練習問題(12月31日)
VBA100本ノック 58本目:番号リストを簡潔にした文字列で返す|VBA練習問題(12月30日)
VBA100本ノック 57本目:ファイルの更新日時|VBA練習問題(12月29日)
VBA100本ノック 56本目:数式内の自身のシート名を消す|VBA練習問題(12月28日)
VBA100本ノック 55本目:他ブックのマクロを起動|VBA練習問題(12月26日)
VBA100本ノック 54本目:シートのChangeイベント|VBA練習問題(12月25日)
VBA100本ノック 53本目:テーブルの扱いと年齢計算|VBA練習問題(12月23日)
VBA100本ノック 52本目:複数シートの一括印刷|VBA練習問題(12月22日)
VBA100本ノック 51本目:シート一覧と印刷ページ数|VBA練習問題(12月21日)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得(End,Rows.Count)|VBA入門
2.RangeとCellsの使い方|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.マクロって何?VBAって何?|VBA入門
5.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
6.繰り返し処理(For Next)|VBA入門
7.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
8.セルに文字を入れるとは(Range,Value)|VBA入門
9.とにかく書いてみよう(Sub,End Sub)|VBA入門
10.繰り返し処理(Do Loop)|VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。