12
返回列表 上一主題 發帖

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

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4# 跳轉到 »
發表於 2014-1-9 10:49 | 只看該作者
回復 2# bqwangs
是這樣嗎?
  1. Const Sh = "工作表1"
  2. Dim Msg As Boolean
  3. Sub Sub_Start()
  4.     Msg = True
  5.     With Sheets(Sh)
  6.         If .[C5] = 1 Then
  7.             巨集1
  8.         ElseIf .[C5] = -1 Then
  9.             巨集3
  10.         End If
  11.     End With
  12. End Sub
  13. Sub Sub_stop()
  14.      巨集2
  15. End Sub
  16. Sub 巨集1()
  17.     With Sheets(Sh)
  18.         .Range("A8") = 0
  19.         Do While Msg
  20.            .Range("A8") = 1
  21.             DoEvents
  22.         Loop
  23.     End With
  24. End Sub
  25. Sub 巨集2()
  26.     Msg = False '
  27.     Sheets(Sh).Range("B8") = "0"
  28. End Sub
  29. Sub 巨集3()
  30.     With Sheets(Sh)
  31.         Do While Msg
  32.            .Range("C8") = -1
  33.             DoEvents
  34.         Loop
  35.     End With
  36. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

bqwangs

帖子
38 
主題
14 
精華
0 
積分
58 
點名
0  
作業系統
win xp 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2013-5-22 
最後登錄
2020-3-9 
3#
發表於 2014-1-9 10:43 | 只看該作者

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

TOP

bqwangs

帖子
38 
主題
14 
精華
0 
積分
58 
點名
0  
作業系統
win xp 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2013-5-22 
最後登錄
2020-3-9 
2#
發表於 2014-1-8 14:34 | 只看該作者

EXCEL VBA 3個按鈕的判斷動作

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

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

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

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

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

TOP

        靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。
12
返回列表 上一主題