Excel VBA質問箱 IV

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

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


44667 / 76732 ←次へ | 前へ→

【37080】Re:Excelが強制終了してしまいます。
お礼  carerra  - 06/4/20(木) 22:09 -

引用なし
パスワード
   ichinoseさん、jakaさん、Blueさん こんばんわ。

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

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

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

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

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

Private sub UserForm_Initialize()

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

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

Private sub UserForm_Initialize()

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

End sub


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

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

入力表のコンボボックスには、シート1のA列から仮にZ列までの各列の2行目から10行目までのデータを反映することとします。

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

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

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

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

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

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

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

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

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

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

最後になりましたが、いろいろとご親切にありがとうございました。
9 hits

【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 発言

44667 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free