返回列表下一主題上一主題發帖

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

bqwangs

中學生 Rank: 2

帖子: 38
主題: 14
精華: 0
積分: 58
點名: 0
作業系統: win xp
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2013-5-22
最後登錄: 2020-3-9

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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