EXCEL VBA 3個按鈕的判斷動作

我於檔案的工作表1設了3個按鈕
分別為啟動鈕停止鈕緊急鈕

作動流程圖我畫在工作表2

流程圖.rar (25.2 KB)
作動方式
啟動鈕:執行綠色線條的流程
一直重複動作直到按停止鈕才會停止

停止鈕: 執行橘色線條流程
如果停止在1的位置則立即到END(程式結束)
如果停止在2的位置則跑橘色路線最終到END(也就是跑完1各CYCLE)

緊急鈕:執行紅色線條流程
馬上執行巨集2

請問各位大大
VB碼要如何寫
讓3個按鈕有上述的動作

TOP

bqwangs

中學生 Rank: 2

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

2^#

發表於 2014-1-9 10:43 | 顯示全部帖子

提供流程圖給無法下載的大大參考

TOP

bqwangs

中學生 Rank: 2

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

3^#

發表於 2014-1-22 17:32 | 顯示全部帖子

版大
我執行起來怪怪的
不是我要的結果
應該是我表達的意思說的不好
我再次說明一下
會有3個按鈕(啟動鈕.停止鈕.緊急鈕)

一.按下啟動鈕
(1)會檢測C5儲存格是否為 1 或 -1
為1執行巨集1
為-1執行巨集3
(2)再次檢測C5儲存格是否為 0
為0執行巨集2
會一直循環上述動作(除非按下停止鈕或緊急鈕才會停止)

二.按下停止鈕
(1)如果C5儲存格為1 或 -1，會等到C5儲存格為 0 才停止(也就是會執行完巨集2)
(2)如果C5儲存格為0，直接停止(不會執行巨集2)

三.按下緊急鈕
(1)如果C5儲存格為 1 或-1 ，馬上會執行巨集2，立即停止
(2)如果C5儲存格為0，直接停止(不會執行巨集2)(與停止鈕第2條敘述一樣)

======================================
C5儲存格版大可手動輸入1 或 0 或 -1
會在A6-C6儲存格顯示數字(也就是我要的狀態或燈號)
Sub Macro1()
'' Macro1 Macro
Range("A6").Select
ActiveCell.FormulaR1C1 = "1"
Range("B6").Select
Selection.ClearContents
End Sub

Sub Macro2()
' Macro2 Macro
Range("B6").Select
ActiveCell.FormulaR1C1 = "0"
Range("A6").Select
Selection.ClearContents
Range("C6").Select
Selection.ClearContents
End Sub

Sub Macro3()
' Macro3 Macro
Range("C6").Select
ActiveCell.FormulaR1C1 = "-1"
Range("B6").Select
Selection.ClearContents
End Sub

TOP

bqwangs

中學生 Rank: 2

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

4^#

發表於 2014-1-30 10:53 | 顯示全部帖子

本帖最後由 bqwangs 於 2014-1-30 10:54 編輯

版大
我執行起來怪怪的
不是我要的結果
應該是我表達的意思說的不好
我再次說明一下
會有3個按鈕(啟動 ...
bqwangs 發表於 2014-1-22 17:32

GBKEE版大
或
其他大大
能幫我解疑一下??
指導一下

TOP

bqwangs

中學生 Rank: 2

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

5^#

發表於 2014-2-7 15:43 | 顯示全部帖子

本帖最後由 bqwangs 於 2014-2-7 15:45 編輯

版主
底下這一行是每秒鐘跑一次啟動鈕
那我如果C5的訊號為(1 或-1 或 0) 有可能存在1秒 1分 1小時
他不是會執行 1次 60次 3600次??

我要的是 C5的訊號為(1 或-1 或 0)不管存在多久時間
都只會跑1次直到訊號改變(例如 1->0 或0->-1或 -1>0 或 0->1 )
才會做下一個動作

Application.OnTime Time + #12:00:01 AM#, "SHEET1.啟動鈕" '間隔一秒執行啟動鈕

複製代碼

我要的是(停止鈕緊急鈕)
會停止但不會再度執行啟動鈕

Msg = True '停止再度執行啟動鈕

複製代碼

那要如何改??

TOP

bqwangs

中學生 Rank: 2

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

6^# 倒序看帖

打印

字體大小: tT

發表於 2014-4-8 17:58 | 顯示全部帖子

[發問] EXCEL VBA 4個判斷執行4巨集與3按鈕

本帖最後由 bqwangs 於 2014-4-8 18:01 編輯

有3個按鈕(啟動鈕.停止鈕.緊急鈕)
訊號檢測欄位
我設定為C5儲存格

一.按下啟動鈕
會檢測C5儲存格
C5儲存格由0變為1執行巨集A
C5儲存格由1變為0執行巨集B
C5儲存格由0變為-1執行巨集C
C5儲存格由-1變為0執行巨集D

會一直循環上述動作(除非按下停止鈕或緊急鈕才會停止)

二.按下停止鈕
(1)如果C5儲存格為1 或 -1，會等到C5儲存格為 0 才停止{也就是會執行完巨集B(C5儲存格1變0)或巨集D(C5儲存格-1變0)}
(2)如果C5儲存格為0，直接停止(不會執行巨集B或巨集D)

三.按下緊急鈕
(1)如果C5儲存格為 1 或-1 ，會馬上執行巨集B(C5儲存格1變0)或巨集D(C5儲存格-1變0)，程式立即停止
(2)如果C5儲存格為0，直接停止(不會執行巨集B或巨集D)(與停止鈕第2條敘述一樣)