![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
Win2000、Excel2000で作業をしています。
無限ループで、Sheet1を監視し、特定のセルに「1」が入ったら別のセルの内容を変更すると言うものです。
ここで、何度目かに「1004)アプリケーション定義またはオブジェクト定義のエラーです」とでます。
(テストのため、(1,5)のセルに何か書き込み、(1,3)に1を入れるというのを繰り返していると、(1,5)に書き込んだ時に出る。)
Do While True
If Sheet1.Cells(1, 3) = "1" Then
Sheet1.Cells(1, 5) = ""
Sheet1.Cells(1, 6) = "0"
End If
DoEvents
Loop
ハイライトもしなくて、どこで落ちているのかわからず困っています。
ちなみに、1をvalで見ても同じで、1秒ごとに見ても同じでした。
どなたか原因の心当たりのあるから、ご助力お願いいたします。
No.3ベストアンサー
- 回答日時:
こんにちは。
Wendy02です。>エラーの原因ってのは結局どこなのか・・・。
失礼かもしれませんが、基本的なコードの部分で疑問の付くところが多いのです。その段階で、エラーの原因をお知りになっても、あまり役に立たないように思います。
>「1004)アプリケーション定義またはオブジェクト定義のエラーです」
今回は、ワークシートのオブジェクトとCellsの不整合のエラーだと思います。直接の原因は、Sheet1 とされたことが原因で、現在使用中のオブジェクトが、Sheet1 とは限りませんので、定義エラーを起こしています。結果的にはモジュール違いのことが多いです。こういう場合、標準モジュールを使って、シートを指定しないでください。
次に、リテラルで、"1"と文字列を使っていますが、あまり、文字列で指定する方法はしません。VB/VBAは、こういうところが、曖昧なのですが、曖昧な部分に甘えていると失敗することがあります。
数字が文字列であるという確証がない場合は、数値にして比較するのが標準的です。
そして、また、Sheet1.Cells(1, 5) と、プロパティを指定していません。
Cells(1,5).Value か、Cells(1,5).Text [←あまり使いません]を使うかして、それを比較してください。
If Cells(1, 3).Value = 1 Then
最初は、標準的な文法に従って、マクロを作ってください。
Do While True
また、これでは、条件が成り立ちません。ですから、基本的にありえません。
エラーの原因を知りたいという気持ちは分らないわけではありませんが、1つずつ言及して直していったら、とても使える段階には至らないと思います。
基本的な構文や文法を覚えてから、エラーの原因を把握するようにしたほうが良いと思います。自己流や掲示板をみて、自分で加工している状態では、うまくなりません。特に、掲示板では、玉石混交で、ひどい内容の解答もあります。動けば文句ないだろう、と開き直られてしまいますので、どうしようもない方もいます。
エラーを把握するのは、それぞれのオブジェクトとプロパティを良く理解して、かなり高度な知識が必要になることが多いです。Visual Basic 側を使うようになってからでも遅くはありません。
九天社という出版社から、『Excel VBA 実践のツボ デバッグ編』という本があります。エラーについて書かれていますが、これらに出てくる内容は、あきらかに上級の内容です。この著者は、たぶん、コードの書き方からすると、VBAの専門ではないようですが、なかなか、VBAだけ勉強していっても届かないレベルの内容なのです。
あまり、入門レベルでは、考え込まないほうがよいと思います。
Wendy02さん、詳しくどうもありがとうございます。
実は・・・VBは触ってるんですが、VBAが初めてでして。
Excel特有のものや、VBでできてVBAではできないものなどまだ理解がぜんぜん足りないようです。
オブジェクトとプロパティですね。
使い方しっかり覚えていきたいと思います。
No.2
- 回答日時:
こんばんは。
もし、ループする場合は、API SleepやTimer()関数などで、Applicationを保護したほうがよいですね。おっしゃるように、1秒ぐらいで十分だと思います。これは、旧式のイベントです。Timer関数は、止めるほうのプロシージャーが必要です。
× Do While True
何が、True なのか分りません。
例えば、
Private Declare Sub Sleep Lib "KERNEL32.dll" (ByVal dwMilliseconds As Long)
Sub TestLoop()
Do
Sleep 1000
If Sheet1.Cells(1, 3).Value = 1 Then
Exit Do
End If
DoEvents
Loop
Sheet1.Cells(1, 5).Value = ""
Sheet1.Cells(1, 6).Value = 0
End Sub
No.1
- 回答日時:
申し訳ありませんが、質問に対する直接の回答ではないです。
>Sheet1を監視し、特定のセルに「1」が入ったら別のセルの内容を変更する
このような場合、Worksheet_Changeを使ったほうが、
良いのではと思いますが・・・。
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Cells(1, 3)) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target.Value = "1" Then
Cells(1, 5) = ""
Cells(1, 6) = "0"
End If
Application.EnableEvents = True
End Sub
この回答への補足
ありがとうございます。
Worksheet_Changeを使ったつもりで、Worksheet_SelectionChangeを試していたかもしれません。
値は通信ではいってくるのですが、認識されるのでしょうか?
とりあえず、通信のテスト環境がないので、ずっと監視していれば間違いないかと思い、上記の策をとりました。
結果として、Worksheet_ChangeでOKだとしても、なにが原因のエラーなのかを知りたいので、引き続き回答を募集させていただきます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
実行時エラー 438になった時の...
-
ADODB.Streamを使用してUTF-8を...
-
なぜこんな初歩的なVBAのIf文で...
-
VBAがブレークモードになっ...
-
VBS実行時エラー オブジェクト...
-
実行時エラー48発生時のDLL特定...
-
実行時エラー3001「引数が間違...
-
EXCEL VBAマクロ中断でデバッグ...
-
ExcelVBAで、ユーザー定義型は...
-
【Excel VBA】マクロをボタンに...
-
なぜエラーになるのでしょうか...
-
Do While中のVBAアプリケーショ...
-
VBAのコードがエラーになっ...
-
アクセス 実行時エラー3265
-
「コンパイルエラー:プロシー...
-
Application.ActiveInspectorで...
-
[Delphi] データセットは閉じて...
-
IEのダウンロード通知バーのVBA...
-
Access2000での未定義関数repla...
-
ExcelVBAでsortしようとしたと...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
VBAがブレークモードになっ...
-
なぜこんな初歩的なVBAのIf文で...
-
マクロについて教えてください...
-
実行時エラー3001「引数が間違...
-
VBSで変数の宣言はできないので...
-
【Excel VBA】マクロをボタンに...
-
ExcelVBA Range クラスの Page...
-
VBS実行時エラー オブジェクト...
-
プロシージャ名の取得
-
実行時エラー -'-2147417848
-
EXCEL VBAマクロ中断でデバッグ...
-
VB6+SQL サーバー 2000 で 実行...
-
VBAでのエラー
-
ADODB.Streamを使用してUTF-8を...
-
なぜエラーになるのでしょうか...
-
Outlook.ApplicationをCreateOb...
-
VBAのエラー発生場所をメッセー...
-
AccessVBAでExcelを起動し、罫...
おすすめ情報