麻辣家族討論版版 » Excel程式區 » excel 按鈕作動顏色變化的問題

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

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

中學生 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

樓主熱帖

收藏

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2013-5-22 17:58 | 只看該作者

回復 1# bqwangs

Option Explicit
Const 灰色 = &H8000000F
Private Sub CommandButton1_Click() ' 啟動
CommandButton1.BackColor = vbGreen
CommandButton2.BackColor = 灰色
CommandButton3.BackColor = 灰色
End Sub
Private Sub CommandButton2_Click() ' 緊急
CommandButton2.BackColor = vbRed
CommandButton1.BackColor = 灰色
CommandButton3.BackColor = 灰色
End Sub
Private Sub CommandButton3_Click() ' 停止
CommandButton3.BackColor = vbRed
CommandButton2.BackColor = 灰色
CommandButton1.BackColor = 灰色
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

中學生 Rank: 2

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

3^#

發表於 2013-5-22 20:44 | 只看該作者

回復 2# GBKEE
謝謝版主

靜思自在 : 發脾氣是短暫的發瘋。

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