Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

70680 / 76807

←次へ　｜　前へ→


	【10631】Re:マクロ動作の確認

jin - 04/2/4(水) 12:31 -


	引用なし

	パスワード

▼Jaka さん：
>質問の意味が良く解りません。
>一般操作の事なんでしょうか？
>
>マクロだったらコードも提示された方が良いと思います。
>
>[#8874]
>ここも関係しているかも。

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

Private Sub Workbook_BeforeClose(Cancel As Boolean)
End Sub
では何も設けていないので、素通りします。
しかし、そのあとよく調査してみると
Sheet１に記述しているPrivate　Sub　CboCmp_Change(コンボボックス値変更)に飛んでいましてその中のマクロが原因でした。

対処はできましたが、何故そのような現象(BeforeCloseで呼び出してもいないのに他のPGに飛ぶ)がおきるのか分かっていません。

思い当たるふしがありましたら、教えてください。
お願いします。

記述マクロ　一部　以下に

---ThisWorkBook内　マクロ
Private Sub Workbook_BeforeClose(Cancel As Boolean)
End Sub

---Sheet1内　マクロ
Private Sub CboCmp_Change()

　　If intOldCmp = CboCmp.ListIndex Or CboCmp.ListIndex = -1 Then
　　　　　''Sheet1.Cells(5, "N") = stroldCmp
　　Exit Sub
　　End If
　　If objSh_Chk.Cells(108, "J") > 0 Then
　　　　If vbCancel = MsgBox("AAA", vbOKCancel + vbInformation) Then
　　　　　　CboCmp.ListIndex = intOldCmp
　　　　　　Exit Sub
　　　　End If
　　ElseIf vbCancel = MsgBox("BBB", vbOKCancel + vbInformation) Then
　　　　CboCmp.ListIndex = intOldCmp
　　　　Exit Sub
　　End If
　　　　
　　intOldCmp = CboCmp.ListIndex
　　　　
　　Call wind_system.Module1.setDefInf
　　Call wind_system.Module1.setPrt
　　
　　MsgBox "完了しました。", vbInformation + vbOKOnly
　　
End Sub

0 hits

▼

【10576】マクロ動作の確認 jin 04/2/2(月) 19:19