Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11107 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【18009】非表示モジュール内でコンパイルエラー ＯＫＵ 04/9/13(月) 14:16 質問[未読]
【18015】Re:非表示モジュール内でコンパイルエラー Jaka 04/9/13(月) 14:58 発言[未読]
【18019】Re:非表示モジュール内でコンパイルエラー ＯＫＵ 04/9/13(月) 15:29 発言[未読]
【18021】Re:非表示モジュール内でコンパイルエラー Jaka 04/9/13(月) 15:52 回答[未読]
【18022】Re:非表示モジュール内でコンパイルエラー ＯＫＵ 04/9/13(月) 15:58 発言[未読]
【18030】Re:非表示モジュール内でコンパイルエラー Jaka 04/9/13(月) 16:52 回答[未読]
【18033】Re:非表示モジュール内でコンパイルエラー ＯＫＵ 04/9/13(月) 17:00 発言[未読]
【18035】Re:非表示モジュール内でコンパイルエラー Jaka 04/9/13(月) 17:05 回答[未読]
【18039】Re:非表示モジュール内でコンパイルエラー ＯＫＵ 04/9/13(月) 17:31 発言[未読]
【18042】Re:非表示モジュール内でコンパイルエラー Jaka 04/9/13(月) 17:39 回答[未読]
【18044】Re:非表示モジュール内でコンパイルエラー ＯＫＵ 04/9/13(月) 17:55 発言[未読]
【18045】Re:非表示モジュール内でコンパイルエラー ichinose 04/9/13(月) 18:11 発言[未読]
【18069】Re:非表示モジュール内でコンパイルエラー ＯＫＵ 04/9/14(火) 11:24 発言[未読]
【18071】Re:非表示モジュール内でコンパイルエラー ichinose 04/9/14(火) 12:00 発言[未読]
【18073】Re:非表示モジュール内でコンパイルエラー Jaka 04/9/14(火) 12:20 発言[未読]
【18074】Re:非表示モジュール内でコンパイルエラー つん 04/9/14(火) 12:26 発言[未読]
【18075】Re:非表示モジュール内でコンパイルエラー ＯＫＵ 04/9/14(火) 14:37 お礼[未読]
【18076】Re:非表示モジュール内でコンパイルエラー Jaka 04/9/14(火) 14:49 質問[未読]
【18009】非表示モジュール内でコンパイルエラー
質問  ＯＫＵ  - 04/9/13(月) 14:16 -
引用なし
パスワード
   ThisWorkBook内で、ある処理を行い
結果によってはメッセージを表示し、強制終了させたいのですが
msgboxを使うと
”非表示モジュール ThisWorkBook 内でコンパイルエラーが発生しました”
のエラーが出てしまいます。
よろしくお願いします。
【18015】Re:非表示モジュール内でコンパイルエラー
発言  Jaka  - 04/9/13(月) 14:58 -
引用なし
パスワード
   こんにちは。

どんなコードなんでしょうか？
再現できるコードを掲載した方が、回答がつきやすくなると思いますが...。
【18019】Re:非表示モジュール内でコンパイルエラー
発言  ＯＫＵ  - 04/9/13(月) 15:29 -
引用なし
パスワード
   >どんなコードなんでしょうか？
>再現できるコードを掲載した方が、回答がつきやすくなると思いますが...。
jakaさん、ありがとうございます。
コードはこんな感じです。

Workbooks.Open Filename:="c:\データ.xls", Password:="123", WriteResPassword:="123", ReadOnly:=True
　
For S1 = 1 To 101
　data(S1) = Cells(S1 + 699, 3)
Next S1
　
ActiveWorkbook.Saved = True
ActiveWindow.Close

起動直後に、あるマスタから最新データをセットします。
読めない時はエラーを出し、そのまま終了させたいのです。
【18021】Re:非表示モジュール内でコンパイルエラー
回答  Jaka  - 04/9/13(月) 15:52 -
引用なし
パスワード
   >読めない時はエラーを出し
この読めない時の状態は、いつなのでしょうか？
読んでいる途中？
初めから？
どの辺でエラーになるのかも記載してください。

この辺が参考になると思います。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=17173;id=excel
【18022】Re:非表示モジュール内でコンパイルエラー
発言  ＯＫＵ  - 04/9/13(月) 15:58 -
引用なし
パスワード
   >この読めない時の状態は、いつなのでしょうか？
>読んでいる途中？
>初めから？
>どの辺でエラーになるのかも記載してください。
jakaさん、ありがとうございます。
エラーはファイルが開かないときです。
【18030】Re:非表示モジュール内でコンパイルエラー
回答  Jaka  - 04/9/13(月) 16:52 -
引用なし
パスワード
   ▼ＯＫＵ さん：
>エラーはファイルが開かないときです。

どのように受け取ったら良いのか、ちょっと解りにいですが、
ファイルが無かった時ですか？

エラーとラップでもいいかなとも思います。
エラーとラップの方法も書いてあったと思いますが、別に

On error resume Next
ここで、開くコード
If err Then
　 Msgbox "なんかのエラー。"
End if
Err.Clear
On Error Goto 0
【18033】Re:非表示モジュール内でコンパイルエラー
発言  ＯＫＵ  - 04/9/13(月) 17:00 -
引用なし
パスワード
   jakaさん、回答ありがとうございます。
はい、それがmsgboxでメッセージを出そうとすると
”非表示モジュール ThisWorkBook 内でコンパイルエラーが発生しました”
のエラーが出てしまうのです。
度々ですみません、よろしくお願いします。
【18035】Re:非表示モジュール内でコンパイルエラー
回答  Jaka  - 04/9/13(月) 17:05 -
引用なし
パスワード
   ▼ＯＫＵ さん：
>はい、それがmsgboxでメッセージを出そうとすると
>”非表示モジュール ThisWorkBook 内でコンパイルエラーが発生しました”
>のエラーが出てしまうのです。
提示されたコードには、メッセージボックスなんて出てきませんでしたが、単純にMsgBoxの書き方だ悪いんじゃないですか
【18039】Re:非表示モジュール内でコンパイルエラー
発言  ＯＫＵ  - 04/9/13(月) 17:31 -
引用なし
パスワード
   ▼Jaka さん：
>▼ＯＫＵ さん：
>>はい、それがmsgboxでメッセージを出そうとすると
>>”非表示モジュール ThisWorkBook 内でコンパイルエラーが発生しました”
>>のエラーが出てしまうのです。
>提示されたコードには、メッセージボックスなんて出てきませんでしたが、単純にMsgBoxの書き方だ悪いんじゃないですか

jakaさん、ありがとうございます。
すみません、先程のコードにmsgboxがもれていました。
こんな感じです。

On Error GoTo EXIT_NG

Workbooks.Open Filename:="c:\データ.xls", Password:="123", WriteResPassword:="123", ReadOnly:=True
　
For S1 = 1 To 101
　data(S1) = Cells(S1 + 699, 3)
Next S1
　
ActiveWorkbook.Saved = True
ActiveWindow.Close

EXIT_NG:
　MSSG = "データがありません　　　　　　　　　　"
　MsgBox (MSSG)
【18042】Re:非表示モジュール内でコンパイルエラー
回答  Jaka  - 04/9/13(月) 17:39 -
引用なし
パスワード
   >ActiveWorkbook.Saved = True
>ActiveWindow.Close

Exit Sub　'←　これ入れないと成功してもメッセージが出ますよ。

>EXIT_NG:
>　MSSG = "データがありません　　　　　　　　　　"
>　MsgBox (MSSG)
【18044】Re:非表示モジュール内でコンパイルエラー
発言  ＯＫＵ  - 04/9/13(月) 17:55 -
引用なし
パスワード
   ▼Jaka さん：
>>ActiveWorkbook.Saved = True
>>ActiveWindow.Close
>
>Exit Sub　'←　これ入れないと成功してもメッセージが出ますよ。
>
>>EXIT_NG:
>>　MSSG = "データがありません　　　　　　　　　　"
>>　MsgBox (MSSG)

jakaさん、どうもありがとうございます。
そうですね、EXIT SUBがないと必ず通りますね。
すみませんでした。
ただ、今回のエラーはmsgboxのところの様なのです。
ThisWorkBook内にmsgboxが使えないというエラーではないでしょうか。
【18045】Re:非表示モジュール内でコンパイルエラー
発言  ichinose  - 04/9/13(月) 18:11 -
引用なし
パスワード
   ＯＫＵ さん、Jaka さん、こんばんは。

>>>ActiveWorkbook.Saved = True
>>>ActiveWindow.Close
>>
>>Exit Sub　'←　これ入れないと成功してもメッセージが出ますよ。
>>
>>>EXIT_NG:
>>>　MSSG = "データがありません　　　　　　　　　　"
>>>　MsgBox (MSSG)
>
>jakaさん、どうもありがとうございます。
>そうですね、EXIT SUBがないと必ず通りますね。
>すみませんでした。
>ただ、今回のエラーはmsgboxのところの様なのです。
>ThisWorkBook内にmsgboxが使えないというエラーではないでしょうか。

Excelのバージョンは何ですか？
Excel2000でしか確認していませんが、正常にメッセージが表示されています。
ちょっとだけ気になったのが・・・・、
MsgBox (MSSG)
を
Msgbox MSSG

とするとどうでしょうか？
【18069】Re:非表示モジュール内でコンパイルエラー
発言  ＯＫＵ  - 04/9/14(火) 11:24 -
引用なし
パスワード
   ▼ichinose さん：
>Excelのバージョンは何ですか？
>Excel2000でしか確認していませんが、正常にメッセージが表示されています。
>ちょっとだけ気になったのが・・・・、
>MsgBox (MSSG)
>を
>Msgbox MSSG
>
>とするとどうでしょうか？
ichinoseさん、ありがとうございます。
バージョンは2000です。
msgbox MSSGに変えてみましたが、同じでした。
【18071】Re:非表示モジュール内でコンパイルエラー
発言  ichinose  - 04/9/14(火) 12:00 -
引用なし
パスワード
   ▼ＯＫＵ さん：
こんにちは。

>>Excelのバージョンは何ですか？
>>Excel2000でしか確認していませんが、正常にメッセージが表示されています。
>>ちょっとだけ気になったのが・・・・、
>>MsgBox (MSSG)
>>を
>>Msgbox MSSG
>>
>>とするとどうでしょうか？
>ichinoseさん、ありがとうございます。
>バージョンは2000です。
>msgbox MSSGに変えてみましたが、同じでした。
そうですか・・・・。
ちょっと時間がとれないので、続きはどなたかにお願いしますが・・・。

１　再度、再現手順書をここに掲載して下さい。
　これは、投稿を見ている方が新規ブックにこういう手順でブックを作り、
　マクロをどのモジュールに記述して・・という細かい手順書です。

２　その手順で閲覧している方にExcel2000で実行してもらってみて下さい。


参照設定は、きちんと設定されていますか？

「Visual Basic For Application」です。

他には、Msgboxの代わりにInputboxを指定した場合は
正しく実行されますか？（これも駄目だとしたら参照設定が怪しいんですが）

後は、Jakaさんよろしく！！
【18073】Re:非表示モジュール内でコンパイルエラー
発言  Jaka  - 04/9/14(火) 12:20 -
引用なし
パスワード
   ichinoseさん　こんにちは。

>後は、Jakaさんよろしく！！
えっ！(^_^;

わたくし思うんですけど、
単体だと動くのでしょうか？

Sub dddd()
　MSSG = "データがありません　　　　　　　　　　"
　MsgBox (MSSG)
End Sub

動くようでしたら、他に原因があると思うんですけど、
コード全体を見てないので、ブック、シート、データがどうなっているのかさっぱり解りませんが、わたしならこういう時は、ひたすらＦ８ステップ実行をして変数等の値、ブックシート等状態を確認しながら、どこに原因があるか探しますが...。
ステップモードで実行されてみたのでしょうか？
【18074】Re:非表示モジュール内でコンパイルエラー
発言  つん E-MAIL  - 04/9/14(火) 12:26 -
引用なし
パスワード
   皆様、こんにちは。

「非表示モジュールThisWorkbook 内でコンパイルエラー」でググってみますと、
こんな記事がありました。

http://www1.plala.or.jp/chikada/oldbbs/200305.txt

リンクしてええんかなー？と思いつつ・・・
当該部分探し出すの大変だけど、文章コピペするのはＮＧですよね？
参考にならへんかなー？

「非表示モジュール○○○○内でコンパイルエラー」
で、なんかいっぱいヒットしました。
【18075】Re:非表示モジュール内でコンパイルエラー
お礼  ＯＫＵ  - 04/9/14(火) 14:37 -
引用なし
パスワード
   jakaさん、ichinoseさん、つんさん
みなさんどうもすみませんでした、解決しました。
というか、変数の定義もれが原因でした、本当にすみません。
”非表示モジュール”ばかり気になり、肝心な所もチェックしないまま
質問していました。
今後ともよろしくお願いします。
【18076】Re:非表示モジュール内でコンパイルエラー
質問  Jaka  - 04/9/14(火) 14:49 -
引用なし
パスワード
   よく考えてみたら、この「非表示モジュールThisWorkbook」と言う意味がよく解ってませんでした。
因みに「非表示モジュールThisWorkbook」って、どういう事っていうか、どういう状態の事なんでしょうか？
どうやるとこんな風になるのでしょうか？？

Visible=false ??　97だとこんなのはエラーになります。
ThisWorkbook.Visible = False　　？？
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11107 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free