COCO研究院

 找回密碼
 註冊
搜索
查看: 4681|回復: 2

[EXCEL] EXCEL VBA 3個按鈕的判斷動作

[複製鏈接]
發表於 14-2-21 14:51 | 顯示全部樓層 |閱讀模式

一.按下啟動鈕
(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儲存格顯示數字(也就是我要的狀態或燈號)

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

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


======================================
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

發表於 14-2-21 14:56 | 顯示全部樓層
建議您到下列論壇尋求解答可能會較快喔~~
http://forum.twbts.com/index.php
發表於 14-2-21 18:25 | 顯示全部樓層
if  ......then..... 的運用! 或是採用select case 去運用!
只要去研究一下運用方法   就可以寫出來了!
您需要登錄後才可以回帖 登錄 | 註冊

本版積分規則

手機版|Archiver|站長信箱|廣告洽詢|COCO研究院

GMT+8, 24-11-22 21:33

Powered by Discuz! X3.4

Copyright © 2001-2023, Tencent Cloud.

快速回復 返回頂部 返回列表
理財討論網站 |