Excel VBA質問箱 IV

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

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


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

66703 / 76734

←次へ　｜　前へ→


	【14593】Re:砂時計中のクリック

こにしき - 04/6/2(水) 16:18 -


	引用なし

	パスワード

>途中の、計算処理が関係してるのでしょうか。
　可能性は十分あります・・。
　
（マウスポインタの砂時計は勝手になっていたので
　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

どれかが悪さしているのですかね？？　

1 hits

▼

【14581】砂時計中のクリック こにしき 04/6/2(水) 13:36