投稿日	： 2005/04/22(Fri) 14:58
投稿者	： だい
Ｅメール	： dee_bassist@hotmail.com
ＵＲＬ	：
タイトル	： Re^7: DoEventsについて

前回投稿時に書き忘れましたが、
当方環境（Win2000ProSP4 + Excel2000SP3 ノートPC　P3-800MHz Mem128MB）
で、DoEvents無しでもEnabled = Falseは、即座に効いています。
以下、検証コード
Private Sub CommandButton1_Click()
    Dim i As Integer
    CommandButton1.Enabled = False
    CommandButton2.Enabled = False

    For i = 1 To 10000
        Me.Cells(i, 1) = 1
    Next
    MsgBox "終了"
    CommandButton1.Enabled = True
    CommandButton2.Enabled = True
End Sub

もし、マシンのスペックや他の処理と関連したCPU負荷等の問題であれば、
花ちゃんさんのNo.2984で既に述べられている様に、
DoEventsは1回で効くとは限りませんので、
必要に応じて数回DoEventsを繰り返すことも必要な場合がありえますね。

★ - DoEventsについて - しげちー 04/21-14:08No.2981
• Re: DoEventsについて - 花ちゃん 04/21-15:50 No.2984
  • Re^2: DoEventsについて - しげちー 04/21-16:14 No.2985
    • Re^3: DoEventsについて - 花ちゃん 04/21-20:25 No.2987
      • Re^4: DoEventsについて - しげちー 04/22-10:06 No.2990
        • Re^5: DoEventsについて - だい 04/22-10:14 No.2991
          • Re^6: DoEventsについて - しげちー 04/22-13:12 No.2995
            • Re^7: DoEventsについて - だい 04/22-14:58 No.2999
              • Re^8: DoEventsについて - しげちー 04/22-15:47 No.3002
              • ありがとうございました - しげちー 04/22-15:53 No.3004
        • Re^5: DoEventsについて - 花ちゃん 04/22-10:48 No.2993
          • Re^6: DoEventsについて - しげちー 04/22-13:21 No.2996
            • Re^7: DoEventsについて - 花ちゃん 04/22-14:25 No.2997
              • Re^8: DoEventsについて - しげちー 04/22-14:54 No.2998
              • Re^8: DoEventsについて - 花ちゃん 04/22-15:12 No.3000
              • Re^8: DoEventsについて - 花ちゃん 04/22-15:22 No.3001
                • 解決しました - しげちー 04/22-15:50 No.3003