|
>途中の、計算処理が関係してるのでしょうか。
可能性は十分あります・・。
(マウスポインタの砂時計は勝手になっていたので
Application.Cursor は使用していません)
Private Sub cmdボタン_Click()
cmdボタン.Enabled = False
(セルに状況を表示するために保護解除)
ActiveWorkbook.Worksheets("MENU").Unprotect
Call 計算処理
ActiveWorkbook.Worksheets("MENU").Protect
cmdボタン.Enabled = True
End Sub
Private Sub 計算処理()
Application.EnableEvents = False
Application.DisplayAlerts = False
Application.ScreenUpdating = False
(各セルに計算結果をセット)
(EnableEvents、DisplayAlertsのTrueセットはありませんでした・・)
Application.ScreenUpdating = True
End Sub
どれかが悪さしているのですかね??
|
|