| |
>途中の、計算処理が関係してるのでしょうか。
可能性は十分あります・・。
（マウスポインタの砂時計は勝手になっていたので
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
どれかが悪さしているのですかね？？
|
|
こにしき
- 04/6/2(水) 16:18 -
