| |
▼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
|
|
