質問編集履歴
3
プロジェクトイメージを追加。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -86,5 +86,7 @@
|
|
|
86
86
|
|
|
87
87
|
```
|
|
88
88
|
|
|
89
|
+
|
|
90
|
+
|
|
89
91
|
###補足情報(言語/FW/ツール等のバージョンなど)
|
|
90
92
|
Microsoft Excel 2010
|
2
誤記修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -43,7 +43,7 @@
|
|
|
43
43
|
With myForm
|
|
44
44
|
comb .combo1
|
|
45
45
|
comb .combo2
|
|
46
|
-
|
|
46
|
+
End With
|
|
47
47
|
End Sub
|
|
48
48
|
|
|
49
49
|
'コンボボックスデータ一覧
|
1
『ある処理』とぼかしていた部分を追記しました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -3,20 +3,39 @@
|
|
|
3
3
|
今回、エラーメッセージすらはかずに落ちるエラーが生じて参っています。
|
|
4
4
|
|
|
5
5
|
###発生している問題・エラーメッセージ
|
|
6
|
-
|
|
6
|
+
あるフォーム開く際に6割くらいでフリーズが生じてそのまま終了します。
|
|
7
7
|
Msgboxで特定を掛けたところコンボボックスの読み出し処理らしきところで止まることはわかりました。
|
|
8
8
|
現状は下記のnew_combo関数が怪しいのではないかと考えています。
|
|
9
9
|
(コンボボックスを初期化するための関数です)
|
|
10
10
|
|
|
11
|
-
ちなみに、Excelを起動した後に一度でもフリーズしないで
|
|
11
|
+
ちなみに、Excelを起動した後に一度でもフリーズしないであるフォームを開ければ、
|
|
12
12
|
Excelを閉じるまではほぼフリーズをしないようです。
|
|
13
|
-
また、
|
|
13
|
+
また、あるフォームを開く前にソースコードを覘いても同様に以降のフリーズはなくなるようです。
|
|
14
14
|
|
|
15
15
|
もし、何か原因になりそうなことが有りましたらお教えいただけたら嬉しいです。
|
|
16
16
|
以上、よろしくお願いします。
|
|
17
17
|
|
|
18
18
|
###該当のソースコード
|
|
19
19
|
```vba
|
|
20
|
+
'あるフォームとは別のフォーム
|
|
21
|
+
'ボタンを押してフォームオープン
|
|
22
|
+
Private Sub openForm()
|
|
23
|
+
'自作クラスの自作メソッドを呼び出し
|
|
24
|
+
Dim MC As New myClasss
|
|
25
|
+
MC.myMethod
|
|
26
|
+
|
|
27
|
+
'コンボボックスの初期化
|
|
28
|
+
Application.Cursor = xlWait
|
|
29
|
+
ComboList.new_combo
|
|
30
|
+
Application.Cursor = xlDefault
|
|
31
|
+
'フォームを開く
|
|
32
|
+
myForm.Show
|
|
33
|
+
|
|
34
|
+
Unload Me
|
|
35
|
+
End Sub
|
|
36
|
+
|
|
37
|
+
|
|
38
|
+
'ComboListモジュール
|
|
20
39
|
'コンボボックス初期値
|
|
21
40
|
Public Sub new_combo()
|
|
22
41
|
myForm.Hide
|