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

私の環境で試したら CommandButton2 だけが  Enabled = False にならないのですね
下記のように一度フォーカスを移してやる事で Enabled = False になりました

Private Sub CommandButton1_Click()
    Dim i As Integer
    CommandButton1.Enabled = False
    CommandButton2.Enabled = False
    
    CommandButton2.Activate
    
  '  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