投稿日	： 2005/04/22(Fri) 10:48
投稿者	： 花ちゃん
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^5: DoEventsについて

貴方は１回１回質問内容が違うように思いますが。
No.2985　では下記のように書いていましたよね

> 動作として、CommandButton1を押した際に
> CommandButton1、CommandButton2共にEnabledがFalse表記に描画される
> …のつもりなのですが
> 実際にはCommandButton2のEnabled表記はずっとTrueのように見えています。
CommandButton2のEnabled表記はずっとTrue　というのは

     CommandButton1.Enabled = False
     CommandButton2.Enabled = False
     DoEvents
このようにすれば解消されたはずです。

それがNo.2990では下記のように言って。
> ループが終わるまで DoEvents が実行されないという事ですが
> 実際それは構わないです。

又、違う事を言っているし
> 問題はメッセージボックスが開いた状態までいっているのに
> ボタンのEnabled表記がFalseのままという事でして
その前にTrue にどこかで設定していますか？
私は、そのように貴方がコードを書いたものと判断しておりました。
（処理が終了したら　MsgBox を表示して OK　が返ったら ボタンを True に
する仕様）
ループが終わったらすぐにボタンをTrue にしたければ　なぜ、MsgBox を表示する前に
書かないのですか？
だい さんが回答されているように DoEvents とは何の関係もない事です。

下記で試して見て下さい
Private Sub CommandButton1_Click()
    Dim i As Integer
    CommandButton1.Enabled = False
    CommandButton2.Enabled = False
    DoEvents
    For i = 1 To 10000
        Me.Cells(i, 1) = 1
    Next
    CommandButton1.Enabled = True
    CommandButton2.Enabled = True
    MsgBox "終了"
End Sub

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