ExcelVBAで、ユーザー定義型は定義されていません、というエラーが発生する

Question

Excel2013VBAでたまに、ユーザー定義型は定義されていません、というエラーが発生しています。
症状からは、コード自体の問題ではない気はしますが、参照設定のライブラリファイルのチェックが不足しているのか、よく分かりません。
発生しているシートに記載しているコードを上げておきます。

Private Sub Worksheet_Change(ByVal Target As Excel.Range) 
Dim ws As Worksheet
Set ws = ThisWorkbook.ActiveSheet
On Error Resume Next
If Intersect(Target, Range(ws.Cells(Target.Row, 2), ws.Cells(Target.Row, 3))) Is Nothing Then
    Exit Sub
Else 
    Call ABCD
End If
End Sub

このコードはシート内のセルが変更された時に動作するイベントマクロで、エラーの発生が、ほぼ確実に起きると思われるやり方は、このコード全体を、まずコメントブロックし、次に非コメントブロックで動作可能状態に戻し､該当シートのセルに文字を入力すると、ユーザー定義型は定義されていません、というエラーが1回はほぼ必ず発生しています。エラーがでても、そのままOKを押すと、コード自体は問題なく実行処理される。次、またそのままセルに文字を入力してもエラーは発生しない。もしかすると何かのタイミングで発生するかもしれない。
その後、またコメントブロックする。そして、セルに文字を入力すると、なぜかここでも1度、同じエラーが発生する。その後は、出ない。
というよく分からない症状が出ています。
参照可能なライブラリ　ファイルのチェックは、現在、

Visual Basic For Applications
Microsoft Excel 15.0 Object Library
OLE Automation
Microsoft Office 15.0 Object Library
Microsoft Forms 2.0 Object Library
Microsoft VBScript Regular Expressions 5.5

にチェックを入れています。
他、
Microsoft Active Data Objects 6.1 Library
Microsoft Scripting Runtime
上記２つをそれぞれチェックを入れましたが、変化なしです。

ちなみみに、同じシートに、下記のようなコードも記載していますがこちらは発生状況からすると除外できるのかな、と考えています。
Private Sub Worksheet_Deactivate() 
On Error Resume Next
If あいう.Visible = True Then Unload あいう
End Sub

その他、標準モジュールや別のシートにも他のコードが記載されていますが、発生状況からこちらもとりあえず除外してもよいのかな、と考えています。
このような状況なのですが、何かエラーの原因になりそうな所があるでしょうか？
よろしくお願いいたします。

WindFaller · Accepted Answer

最初に、もう確実なところはありませんので、推理して、それを実験でトライして確証を得るしかありませんが、まだ、私のネタ切れにはしばらくあります。

今、調べてみて、デバッグのコンパイルのボタンでエラーがでなくて、実際にはユーザー定義型のエラーが出てくるという例は聞いたことがないのです。

ちょっと脇道にそれますが、私自身のコードの作り方というのは、hinoki24さんのような真面目な作り方ではなく、
・Option Explicit は書いても、開発中はコメントブロックしてしまうということです。
・対応不足の予想を考えて、変数の宣言はしても、3分の1ぐらいは、Variant (つまり、 As ～　なし)にしてしまいます。

>このコード全体を、まずコメントブロックし、次に非コメントブロックで動作可能状態に戻し､該
>当シートのセルに文字を入力すると、ユーザー定義型は定義されていません、というエラーが1回
>はほぼ必ず発生しています。

Class は使っていませんか。シート1をインスタンスを作っているとか、
イベント・ドリブン型ですから、似たようなものだとは思います。他のイベントにしてみたらどうでしょうか？ダブルクリック・イベントとか。

標準モジュール側の　Public 変数と、シートモジュールの 変数（Private)の、使い分けはないでしょうね。まあ、それをしてもユーザー定義型は定義されていない、というエラーはまずでないと思います。

また、私が考えたのは、オーバーヘッドの問題です。オーバーヘッドというのは、オブジェクトが設定されるまでには、多少の時間のロスがあります。だから、事前に参照設定（アーリー・バインディング)をしておけ、というわけです。だから、アーリー・バインディングか、レイト・バインディングか、という問題は、VBAテキストなどでは、前者が良いと書かれていますが、ブック全体で、それらのOLEオブジェクトを抱えていくのは無理な時があります。

それで、私は、このようにしてしまいます。
（インテリセンスが利かないとお思いでしょうが、最初は設定しておいて、後で、もとのオブジェクト型に戻すこともあります。今は、VBAのテンプレートを使うので不要で。)
Microsoft Scripting Runtime を参照設定する代わりに、 Set dic = CreateObject("Scripting.Dictionary")　としてしまったり、

Microsoft VBScript Regular Expressions 5.5を参照設定する代わりに、Set Regex = CreateObject("VBScript.RegExp") で間に合わせてしまうことも多いです。

もう、同様の実験は済んでいるとは思いますが、いっそ、Sh  As 　Worksheet　などのデータ型の宣言を、プロジェクト全体に対して、
「As」 ->「 'As」  で、置換して、どうなるでしょうか？

それでもエラーが出るとなると、一度コードを吐き出して、その中身を調べないといけないかもしれません。問題になっている　Sheet1 のコードのエクスポートをさせて、テキストにして調べるのです。

他に、トラブルとして、名前登録があります。不要な名前登録は全部削除しておくと安心です。
それ以外は、アドインで、私製 comアドインなどが悪さをすることがあります。
以上、目下、思い当たる範囲です。

WindFaller · Answer

その補足で書かれたコードは、私のイメージどおりなのですがいかがでしょうか。
いわゆる　レイト・バインディングをお使いになったわけですね。

>列非表示のマクロは何か変な所があるでしょうか？エラーは無。
行の非表示というのはありますが、列の非表示というのは、グループ化しない限りは、使ったことがありませんね。
それでも、確か、結合セルと、その結合セルより右にある列の操作とにはなにかトラブルがあった気がしますね。でも、それと今回のものとは関係があるかわかりません。

WindFaller · Answer

こんばんは。

>質問にだしたシートのPrivate Sub Worksheet_Change(ByVal Target As Excel.Range)のみ残し....

思惑とは違うかもしれませんが、前回書いたものを訂正した、以下のコードを試してみてください。

それと、実行する前に、VBAEditor のメニューのデバッグで
VBAProjectのコンパイルをクリックしてください。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 And Target.Column < 4 Then
　 Call ABCD
End If
End Sub

'-----------------------------------
Microsoft Active Data Objects 6.1 Library
これは、つい、こちら側を選びたくなりますが、2.x 系のほうが新しいようです。
その差異はないとは思いますが。
-------------------------------------
それから、私の記憶では、参照設定が、うまくかみ合っていない可能性があります。その場合は、いったん、外して、再度、設定してみたらいかがでしょうか。

Visual Basic For Applications　×
Microsoft Excel 15.0 Object Library　×
OLE Automation　　？
Microsoft Office 15.0 Object Library　×
========================
Microsoft Forms 2.0 Object Library　×
========================
Microsoft VBScript Regular Expressions 5.5

Microsoft Active Data Objects 6.1 Library　 (2.x系？)
Microsoft Scripting Runtime
-----------------------------

nouble1 · Answer

其のエラーを　検索したところ、
此の様な　記事を、
見つけましたが、
https://tsware.jp/tips/tips_334.htm

此は　もう、
試されてますよね。

WindFaller · Answer

こんにちは。

「ユーザー定義型は定義されていません」というのは、
参照設定でサポートされていないオブジェクトなどの型名を定義した時に限ります。
（ユーザー定義型を定義する場合は除きますし、それは使わないです。)

簡単な例ですと、
 Dim ws As Wokksheet　　'←スペルミス
と書けば、確実に出てきます。Worksheet のスペルミスだからです。

MS（だけではないけれども)は、こういうプログラマーのために、インテリセンスをつけていますから、ws As として、スペースを入れれば、次に、その必要なものをリスト内から選べばよいわけです。それに出てこないものは、エラーとして現れます。

>ユーザー定義型は定義されていません、というエラーが1回はほぼ必ず発生しています。
>エラーがでても、そのままOKを押すと、コード自体は問題なく実行処理される。
そのまま次に進むのは、 On Error Resume Next のせいではありませんか？

単純なコードにまで　On Error Resume Next　を入れているのが目につきます。デバッグの段階で、On Error Resume Next では、さっぱり原因がつかめません。一番良いのは、エラーを出して、デバッグモードにさせて、その箇所を特定化させることです。

なお、私なら、こう書くかと思います。

'シートモジュール
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column > 1 And Target.Column < 4 Then
　   Call ABCD
End If
End Sub
（ただし、ABCDの中味にイベントが発生するものは、
Application.EnableEvents=False
  '実行プログラム
Application.EnableEvents=True
として、短い間を挟むようにします。長い間だと、別なエラーが発生した時に復旧が効かなくなります。

>Private Sub Worksheet_Deactivate()
>On Error Resume Next
>If あいう.Visible = True Then Unload あいう
>End Sub

これは、ユーザーフォームのことだと思います。私は、こういうコードは書かないけれども、これで動く分には問題ないはずです。

nouble1 · Answer

少なくとも、
ユーザー定義方は　存在しますよ？

http://officetanaka.net/excel/vba/statement/Type.htm

ULTRAII · Answer

ABCDはどこに？

ExcelVBAで、ユーザー定義型は定義されていません、というエラーが発生する

最初に、もう確実なところはありませんので、推理して、それを実験でトライして確証を得るしかありませんが、まだ、私のネタ切れにはしばらくあります。

その補足で書かれたコードは、私のイメージどおりなのですがいかがでしょうか。

こんばんは。

其のエラーを 検索したところ、

こんにちは。

少なくとも、

ABCDはどこに？

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

其のエラーを　検索したところ、