麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] EXCEL VBA 4個判斷執行4巨集與3按鈕 [打印本頁]

作者: bqwangs 時間: 2014-1-8 14:34 標題: EXCEL VBA 3個按鈕的判斷動作

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

作動流程圖我畫在工作表2
[attach]17221[/attach]
作動方式
啟動鈕:執行綠色線條的流程
一直重複動作直到按停止鈕才會停止

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

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

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

作者: bqwangs 時間: 2014-1-9 10:43

[attach]17224[/attach]
提供流程圖給無法下載的大大參考

作者: GBKEE 時間: 2014-1-9 10:49

回復 2# bqwangs
是這樣嗎?

Const Sh = "工作表1"
Dim Msg As Boolean
Sub Sub_Start()
Msg = True
With Sheets(Sh)
If .[C5] = 1 Then
巨集1
ElseIf .[C5] = -1 Then
巨集3
End If
End With
End Sub
Sub Sub_stop()
巨集2
End Sub
Sub 巨集1()
With Sheets(Sh)
.Range("A8") = 0
Do While Msg
.Range("A8") = 1
DoEvents
Loop
End With
End Sub
Sub 巨集2()
Msg = False '
Sheets(Sh).Range("B8") = "0"
End Sub
Sub 巨集3()
With Sheets(Sh)
Do While Msg
.Range("C8") = -1
DoEvents
Loop
End With
End Sub

複製代碼

作者: bqwangs 時間: 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

作者: bqwangs 時間: 2014-1-30 10:53

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

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

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

作者: GBKEE 時間: 2014-1-31 08:26

回復 5# bqwangs

'這些程序設在 SHEET1[活頁簿的物件模組]
Option Explicit
Dim Msg As Boolean
Sub 啟動鈕()
If Msg = True Then Exit Sub '停止程式的運行
If [C5] = 1 Then 巨集1 '為1執行巨集1
If [C5] = -1 Then 巨集3 '為1執行巨集3
If [C5] = 0 Then 巨集2 '為1執行巨集2
Application.OnTime Time + #12:00:01 AM#, "SHEET1.啟動鈕" '間隔一秒執行啟動鈕
'Application.Time [時執行的時間],[執行的程序]
'執行的程序是 SHEET1[活頁簿的物件模組],內的程序要指明物件模組的名稱
End Sub
Sub 停止鈕()
Do While [C5] <> 0 '會等到C5儲存格為 0 才停止
DoEvents
Loop
Msg = True '停止再度執行啟動鈕
巨集2
End
'(1)如果C5儲存格為1 或 -1，會等到C5儲存格為 0 才停止(也就是會執行完巨集2)
'(2)如果C5儲存格為0，直接停止(不會執行巨集2)
'歸納(1)(2)->執行巨集2
End Sub
Sub 緊急鈕()
Msg = True '停止再度執行啟動鈕
巨集2
End
'(1)如果C5儲存格為 1 或-1 ，馬上會執行巨集2，立即停止
'(2)如果C5儲存格為0，直接停止(不會執行巨集2)(與停止鈕第2條敘述一樣)
'歸納(1)(2)->執行巨集2
End Sub

複製代碼

作者: bqwangs 時間: 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 '停止再度執行啟動鈕

複製代碼

那要如何改??

作者: bqwangs 時間: 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條敘述一樣)

作者: bqwangs 時間: 2014-4-10 20:39

GBKEE 版大
現在這個概念
請教要如何寫VB碼

作者: GBKEE 時間: 2014-4-11 07:39

本帖最後由 GBKEE 於 2014-4-11 07:45 編輯

回復 9# bqwangs
是這樣嗎?
工作表模組上的程式碼

Dim Msg(1 To 3) As Boolean, C_5 As Integer, Rng As Range
Private Sub Worksheet_Calculate()
'2 選 1 :*** 如 C5 為公式用此重算事件(工作表模組的預設事件程序)
If Not Msg(1) Then
MsgBox "尚未按下啟動紐"
ElseIf Rng <> C_5 Then
Ex
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
'2 選 1 :*** 如是直接在C5上改變值用此工作表上儲存格有改變事件(工作表模組的預設事件程序)
If Not Msg(1) Then
MsgBox "尚未按下啟動紐"
ElseIf Target.Address = "$C$5" Then
Ex
End If
End Sub
Private Sub 啟動鈕()
Msg(1) = True
Set Rng = [C5]
C_5 = [C5]
End Sub
Private Sub 停止鈕()
Msg(2) = True
End Sub
Private Sub 緊急鈕()
Msg(3) = True
End Sub
Private Sub Ex()
If Msg(1) And Not Msg(2) And Not Msg(3) Then '啟動鈕
Select Case C_5 '先前C5的值
Case 0 'C_5 = 0
If Rng = 1 Then 'C5 變動後的值
巨集A
ElseIf Rng = -1 Then
巨集C
End If
Case 1 'C_5 = 1
If Rng = 0 Then 巨集B
Case -1 'C_5 = -1
If Rng = 0 Then 巨集D
End Select
ElseIf Msg(2) And Not Msg(3) Then '停止鈕
If Rng = 0 Then End '程式停止
Select Case Rng
Case 1
巨集B
Case -1
巨集D
End Select
ElseIf Msg(3) Then '停止鈕
If Rng = 0 Then End '程式停止
Select Case Rng
Case 1
巨集B
Case -1
巨集D
End Select
End '程式停止
End If
C_5 = Rng '紀錄C5的修改
End Sub

複製代碼

作者: bqwangs 時間: 2014-4-22 14:27

[attach]18110[/attach]
版主
我依您的程式碼做成了檔案
有部分功能正常
部分功能無反應
問題點我寫在EXCEL裡
煩請指導一下

作者: bqwangs 時間: 2014-4-22 15:15

增加按鈕作動顏色

開始鈕動作時
開始鈕顯示綠色其餘灰色
停止鈕動作時
停止鈕顯示紅色其餘灰色
緊急鈕動作時
緊急鈕顯示紅色其餘灰色

作者: bqwangs 時間: 2014-4-29 20:26

各位大大
我問題點寫在壓縮檔案裡
請參照
期待各位的回覆

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)