標題: [發問] excel 按鈕作動 顏色變化 的問題 [打印本頁]

---

作者: bqwangs    時間: 2013-5-22 15:28     標題: excel 按鈕作動 顏色變化 的問題

啟動 緊急  停止 三個按鈕  如何設定 啟動按鈕有按是綠色 沒有按是灰色
緊急按鈕 和停止按紐  有按是紅色  沒有按是灰色


Option Explicit
Dim TimerEnable As Boolean
Dim TimerStop As Boolean
Dim iValue As Integer


' 啟動
Private Sub CommandButton5_Click()
    TimerEnable = True
    iValue = 0
    WaitFor 1 '每秒計數一次
End Sub


' 緊急
Private Sub CommandButton1_Click()
TimerEnable = False
End Sub


' 停止
Private Sub CommandButton2_Click()
    TimerStop = True
End Sub

Public Sub WaitFor(Sec As Long)
Dim t0 As Long
Dim DnCnt As Boolean
   Do
         t0 = Timer
          While Timer - t0 < Sec
              DoEvents
          Wend
         
            If Not DnCnt Then
               iValue = iValue + 1
               If iValue >= 10 Then
                  DnCnt = True
               End If
                Sheets(1).Range("a1").Value = iValue
            Else
               iValue = iValue - 1
               If iValue <= 1 Then
                  
                  DnCnt = False
                    If TimerStop Then
                        TimerStop = False
                        TimerEnable = False
                        Exit Do
                     End If
               End If
               Sheets(1).Range("a1").Value = iValue
            End If
            If Not TimerEnable Then Exit Do
   Loop
    Sheets(1).Range("a1").Value = iValue
End Sub

---

作者: GBKEE    時間: 2013-5-22 17:58

回復 1# bqwangs

1. Option Explicit
   
2. Const 灰色 = &H8000000F
   
3. Private Sub CommandButton1_Click()  ' 啟動
   
4.       CommandButton1.BackColor = vbGreen
   
5.        CommandButton2.BackColor = 灰色
   
6.        CommandButton3.BackColor = 灰色
   
7.         
   
8. End Sub
   
9. Private Sub CommandButton2_Click()  ' 緊急
   
10.         CommandButton2.BackColor = vbRed
    
11.         CommandButton1.BackColor = 灰色
    
12.         CommandButton3.BackColor = 灰色
    
13. End Sub
    
14. Private Sub CommandButton3_Click()   ' 停止
    
15.         CommandButton3.BackColor = vbRed
    
16.         CommandButton2.BackColor = 灰色
    
17.         CommandButton1.BackColor = 灰色
    
18. End Sub

複製代碼

---

作者: bqwangs    時間: 2013-5-22 20:44

回復 2# GBKEE
謝謝版主

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)