返回列表 上一主題 發帖

[發問] excel 按鈕作動 顏色變化 的問題

[發問] 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

回復 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

回復 2# GBKEE
謝謝版主

TOP

        靜思自在 : 君子為目標,小人為目的。
返回列表 上一主題