Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7751 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【36953】Excelが強制終了してしまいます。 carerra 06/4/18(火) 22:56 質問[未読]
【36956】Re:Excelが強制終了してしまいます。 ichinose 06/4/19(水) 8:01 発言[未読]
【37027】Re:Excelが強制終了してしまいます。 carerra 06/4/19(水) 22:54 質問[未読]
【37038】Re:Excelが強制終了してしまいます。 ichinose 06/4/20(木) 8:00 発言[未読]
【37057】Re:Excelが強制終了してしまいます。 Jaka 06/4/20(木) 13:46 発言[未読]
【37058】Re:Excelが強制終了してしまいます。 Blue 06/4/20(木) 13:56 発言[未読]
【37080】Re:Excelが強制終了してしまいます。 carerra 06/4/20(木) 22:09 お礼[未読]
【37094】Re:Excelが強制終了してしまいます。 ichinose 06/4/21(金) 8:33 発言[未読]
【37095】Re:Excelが強制終了してしまいます。 carerra 06/4/21(金) 9:29 発言[未読]
【36953】Excelが強制終了してしまいます。
質問  carerra  - 06/4/18(火) 22:56 -
引用なし
パスワード
   こんばんわ。

標記のことで、教えて頂けたらと思います。

仕事で使っているExcelファイルなのですが、以前は、各シートに直接入力していたのですが、入力する項目が多く見にくかったため、ﾕｰｻﾞｰﾌｫｰﾑにて入力をして、各シートに反映するVBAを組んでみました。
が、この入力するﾕｰｻﾞｰﾌｫｰﾑを呼び出す際に、Excelが強制終了してしまいます。
強制終了した後にエラー検出しても、エラーはありませんとなります。

ﾕｰｻﾞｰﾌｫﾑ１のｺﾏﾝﾄﾞﾎﾞﾀﾝより、ﾕｰｻﾞｰﾌｫｰﾑ２をLoadして、ｺﾝﾎﾞﾎﾞｯｸｽのﾘｽﾄ内容を与えてから、表示させる方法をとってます。このｺﾏﾝﾄﾞﾎﾞﾀﾝを押した瞬間にExcelが強制終了となります。

ﾃﾞﾊﾞｯｸﾞ機能を使ってみると、

ﾕｰｻﾞｰﾌｫｰﾑ１.Hide
Load ﾕｰｻﾞｰﾌｫｰﾑ２　←　このときにｵﾌﾞｼﾞｪｸﾄ変数またはwithﾌﾞﾛｯｸ変数が設定されてませんと表示されます。
ID番号.Value="新規"
ID番号.SetForcus
ｺﾝﾎﾞﾎﾞｯｸｽ１.Value=Sheets("シート１").Range("A1:A10").value　←ｺﾝﾎﾞﾎﾞｯｸｽ１.Value=Nullとなっています。
以下同じような感じで40個程ｺﾝﾎﾞﾎﾞｯｸｽがあります。

変数が設定されていませんというのが問題かなと思うのですが、ﾍﾙﾌﾟとか見ても良く分からなかったため、質問させていただきました。
対処方法があれば、教えていただけたらと思います。
【36956】Re:Excelが強制終了してしまいます。
発言  ichinose  - 06/4/19(水) 8:01 -
引用なし
パスワード
   ▼carerra さん：
おはようございます。
>標記のことで、教えて頂けたらと思います。

ﾕｰｻﾞｰﾌｫｰﾑ２のInitializeイベントプロシジャー内で
記述されたエラー原因でトラップが発生している可能性があります。

>ﾃﾞﾊﾞｯｸﾞ機能を使ってみると、
>
>ﾕｰｻﾞｰﾌｫｰﾑ１.Hide
>Load ﾕｰｻﾞｰﾌｫｰﾑ２　←　このときにｵﾌﾞｼﾞｪｸﾄ変数またはwithﾌﾞﾛｯｸ変数が設定されてませんと表示されます。

この後、続けてＦ８キーを押して見てください。

Initializeイベントプロシジャー内を１行づつ実行していきます。

続けてＦ８キーを押していって

本当のエラーの原因になっているステートメントを探り当ててください。
再び、上記の内容のエラーが発生します。

その行に何らかの問題あります。

試してみてください。


>ID番号.Value="新規"
>ID番号.SetForcus
>ｺﾝﾎﾞﾎﾞｯｸｽ１.Value=Sheets("シート１").Range("A1:A10").value　←ｺﾝﾎﾞﾎﾞｯｸｽ１.Value=Nullとなっています。
>以下同じような感じで40個程ｺﾝﾎﾞﾎﾞｯｸｽがあります。
>
>変数が設定されていませんというのが問題かなと思うのですが、ﾍﾙﾌﾟとか見ても良く分からなかったため、質問させていただきました。
>対処方法があれば、教えていただけたらと思います。
【37027】Re:Excelが強制終了してしまいます。
質問  carerra  - 06/4/19(水) 22:54 -
引用なし
パスワード
   ▼ichinose さん：

お返事ありがとうございます。

>ﾕｰｻﾞｰﾌｫｰﾑ２のInitializeイベントプロシジャー内で
>記述されたエラー原因でトラップが発生している可能性があります。

　ご指摘ありがとうございます。

>>ﾕｰｻﾞｰﾌｫｰﾑ１.Hide
>>Load ﾕｰｻﾞｰﾌｫｰﾑ２　←　このときにｵﾌﾞｼﾞｪｸﾄ変数またはwithﾌﾞﾛｯｸ変数が設定されてませんと表示されます。
>
>この後、続けてＦ８キーを押して見てください。
>
>Initializeイベントプロシジャー内を１行づつ実行していきます。
>
>続けてＦ８キーを押していって
>
>本当のエラーの原因になっているステートメントを探り当ててください。
>再び、上記の内容のエラーが発生します。
>
>その行に何らかの問題あります。
>
>試してみてください。
>
>
>>ID番号.Value="新規"
>>ID番号.SetForcus
>>ｺﾝﾎﾞﾎﾞｯｸｽ１.Value=Sheets("シート１").Range("A1:A10").value　←ｺﾝﾎﾞﾎﾞｯｸｽ１.Value=Nullとなっています。
>>以下同じような感じで40個程ｺﾝﾎﾞﾎﾞｯｸｽがあります。
>>

　返信していただいたのに、申し訳ないのですが、まだご指摘いただいたことを実行できておりません。明日にでも検証してみたいと思います。

　的外れな質問かもしれませんが、↑のコンボボックスにシートからデータを持ってきているのですが、これがNull値となっているのは問題ないのでしょうか？
　シートのデータ入力欄は、都合上空欄が多数ある状態です。これがNull値の原因となっていると思うのですが・・・。
【37038】Re:Excelが強制終了してしまいます。
発言  ichinose  - 06/4/20(木) 8:00 -
引用なし
パスワード
   ▼carerra さん：
おはようございます。


>>
>>
>>>ID番号.Value="新規"
>>>ID番号.SetForcus
>>>ｺﾝﾎﾞﾎﾞｯｸｽ１.Value=Sheets("シート１").Range("A1:A10").value　←ｺﾝﾎﾞﾎﾞｯｸｽ１.Value=Nullとなっています。
>>>以下同じような感じで40個程ｺﾝﾎﾞﾎﾞｯｸｽがあります。
>
>　的外れな質問かもしれませんが、↑のコンボボックスにシートからデータを持ってきているのですが、これがNull値となっているのは問題ないのでしょうか？
>　シートのデータ入力欄は、都合上空欄が多数ある状態です。これがNull値の原因となっていると思うのですが・・・。

これは、これでエラーになるでしょうねえ！！
でも、私には上記のコードがどこに書かれたコードなのか
わかりません。

よって、

Load ﾕｰｻﾞｰﾌｫｰﾑ２

のエラーの原因がこれなのかと聞かれても
私には、わかりません。

あのね、
こういう不具合の質問をするときは、

carerra さんの投稿の手順どおりに行えば誰でも
carerra さんと同じエラーが発生するような手順書が必要なんです。


そのためには
　フォームを作成する手順書
　シートにあるデータを作成する手順書
　それからコードの提示
　コード実行してから
　そのエラーを発生させるためのオペレーティング
なんていう記述はちょっと考えただけでも必要ですよね！！

見ている方がさほど頭を使わなくても
この手順書どおり行えば、同じ不具合が再現できる
記述を心がけてください。


見ている人は、この再現が出来てから考えるのですから・・・。


こういう記述をすることは簡単ではありませんが、
質問をわかりやすく記述することはきっと
将来、役に立つと私は思っています。
【37057】Re:Excelが強制終了してしまいます。
発言  Jaka  - 06/4/20(木) 13:46 -
引用なし
パスワード
   ichinose さん　carerra さん　こんにちは。

ちろっと見ただけですが
>ｺﾝﾎﾞﾎﾞｯｸｽ１.Value=Sheets("シート１").Range("A1:A10").value　←ｺﾝﾎﾞﾎﾞｯｸｽ
これって、A1:A10の配列をコンボボックスの１番上のテキスト部に入れようとしても
入らないと思います。
コンボボックス１.List=Range(・・・・・).Vlaue
としないと。

ＰＳ，文中に半角カタカナが混じると見づらいと思うのは私だけでしょうか？
【37058】Re:Excelが強制終了してしまいます。
発言  Blue  - 06/4/20(木) 13:56 -
引用なし
パスワード
   >ＰＳ，文中に半角カタカナが混じると見づらいと思うのは私だけでしょうか？
見づらいですね。
というか、Web上の掲示板上ではなるべく使わないほうが良い文字です。>半角カタカナ
参考：http://apex.wind.ne.jp/tetsuro/izonmoji/
【37080】Re:Excelが強制終了してしまいます。
お礼  carerra  - 06/4/20(木) 22:09 -
引用なし
パスワード
   ichinoseさん、jakaさん、Blueさん　こんばんわ。

お返事ありがとうございました。また、返事が遅くなりすみません。

いろいろとご指摘ありがとうございます。
また、言葉足らずで大変申し訳ないです。

さて、問題の強制終了ですが、ここ1ヶ月程、ノイローゼになりそうなぐらい悩んでましたが、今日、すっきりと解決(たぶん)しました。今夜はゆっくり眠れそうです。
大体が、この入力表を表示させたあと、閉じて、保存して、再度ファイルを開いて入力表を表示させようとすると強制終了していました。
ただ、他の操作をして、この入力表を表示させるとうまくいくので、原因がいまいち特定できずにいました。

解決の方法なのですが・・・

以前のコードですと、リスト表示を↓のとおり書いておりました。

Private sub UserForm_Initialize()

コンボボックス１.List = Sheets("シート").Range("A1:A10").Value

End sub
としていたのを、今日↓のように変えてみたところうまくいきました。

Private sub UserForm_Initialize()

入力表(ユーザーフォーム).Controls("コンボボックス１").Value = Sheets("シート").Range("A1:A10").Value

End sub


このユーザーフォームの仕様で、ユーザーフォームの中にマルチページを配置しています。マルチページを５ページ配置し、その中にコンボ・テキストボックスを150程配置していました。

この入力表のユーザーフォームを別のユーザーフォームのコマンドボタンから表示させるようにしていました。

入力表のコンボボックスには、シート１のＡ列から仮にＺ列までの各列の２行目から１０行目までのデータを反映することとします。

このような感じで、私の条件と似たようなことができると思います。

入力表を呼び出すユーザーフォームをコマンドボタンをそれぞれ、ユーザーフォーム１とコマンドボタン１とします。

入力表のほうのユーザーフォームをユーザーフォーム２とします。

ユーザーフォーム１のコマンドボタン１のイベント
Private sub コマンドボタン１_Click()
ユーザーフォーム１.Hide
ユーザーフォーム２.Show
End sub

ユーザーフォーム２のInitializeイベント
Private sub UserForm_Initialize()
コマンドボックス１.List = Sheets("シート１").Range("A2:A10").Value
コマンドボックス２.List = Sheets("シート１").Range("B2:B10").Value
とコンボボックスが２７個とＺ列までのデータ範囲を順次書いてみてください。
End sub

これで、似たような条件が完成すると思うのですが・・・

これで、入力表のユーザーフォーム２を表示させようとすると、エクセルが強制終了していました。
これを、上記で書いたように次のようにすると・・・

ユーザーフォーム２のInitializeイベント
Private sub UserForm_Initialize()
ユーザーフォーム２.Controls("コマンドボックス１").List = Sheets("シート１").Range("A2:A10").Value
ユーザーフォーム２.Controls("コマンドボックス２").List = Sheets("シート１").Range("B2:B10").Value
とコンボボックスが２７個とＺ列までのデータ範囲を順次書いてみてください。
End sub

そうすると、強制終了が今のところはなくなりました。

もし、強制終了しなかったら、ごめんなさい。何かが足りないか、他の原因なのかも知れないということですよね。

最後になりましたが、いろいろとご親切にありがとうございました。
【37094】Re:Excelが強制終了してしまいます。
発言  ichinose  - 06/4/21(金) 8:33 -
引用なし
パスワード
   おはようございます。

詳しい記述になっていましたね。
記述が大変だったかと思います。

内容を見させていただきました。

残念ながら、私の環境では再現しませんでした。

コマンドボックス１.List = Sheets("シート１").Range("A2:A10").Value

このコードは、正常に処理されています。
（ちゃんと、マルチページに配置しましたよ）

>ただ、他の操作をして、この入力表を表示させるとうまくいくので、原因がいまいち特定できずにいました。

これがポイントでしょうか？

これがどんな処理なのかも興味があります。
正常に処理できたみたいなので
見ていないかもしれませんが、
できたら、この他の操作の内容も知りたいですねえ！！
【37095】Re:Excelが強制終了してしまいます。
発言  carerra  - 06/4/21(金) 9:29 -
引用なし
パスワード
   ▼ichinose さん：
おはようございます。

>
>>ただ、他の操作をして、この入力表を表示させるとうまくいくので、原因がいまいち特定できずにいました。
>
>これがポイントでしょうか？
>
>これがどんな処理なのかも興味があります。
>正常に処理できたみたいなので
>見ていないかもしれませんが、
>できたら、この他の操作の内容も知りたいですねえ！！

↑の操作は案内メニュー的な、ユーザーフォーム１の中に、他のユーザーフォームを呼び出したり、シートへ移動したりするだけのコマンドボタンを配置しているだけなので、直接は関係ないと思います。

この強制終了なのですが、昨日も書いてたのですが、私の作ったファイルでは、ユーザーフォーム１のコマンドボタンから、ユーザーフォーム２を表示させ、何もせずにそのまま閉じて、保存をします。またすぐに、ファイルを開き一番目にこのユーザーフォム２を表示させようとすると、強制終了してしまいます。
そこで、ファイルを開くところまで同じようにして、↑に書いてありますが、他のシートに移動したり、他のユーザーフォームを表示させたりした後に、このユーザーフォーム２を表示させるとうまくいくので、これがまた謎なのです。
このユーザーフォーム２を表示させるときに、どんな状況でも強制終了するなら、間違いなくユーザーフォーム２が悪いわけなのですが・・・

また、コードが提示できたら、提示いたします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7751 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free