[發問] 如何製作開關用途的按鈕？

程式碼如下
Private Sub start_Click()
Dim switch As Boolean
switch = IIf(switch, False, True)
Sheet7.Cells(1, "E") = IIf(switch, "ON", "OFF")
getdata switch
End Sub
請問這樣寫有那裡錯誤嗎？執行後出現訊息，「引數不為選擇性(optional)」

另外請問
使用application.ontime now+timevalue("00:01"), "getdata"
有什麼方法可以將前一次設定的schedule取消？
因為我在getdata本身當中有再輸入上面那段code
這樣它會在開始執行後每隔一分鐘就再執行一次，
但是一旦點擊按鈕數次後，它就會連續執行了

樓主熱帖

不進則退

mnsmrtl

中學生 Rank: 2

帖子: 51
主題: 17
精華: 0
積分: 200
點名: 0
作業系統: winxp
軟體版本: officexp
閱讀權限: 20
性別: 男
註冊時間: 2010-7-31
最後登錄: 2018-9-19

7^#

發表於 2010-10-31 01:06 | 只看該作者

已測試成功，感謝版主解答

不進則退

TOP

GBKEE

超級版主 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兔年全勤獎章

6^#

發表於 2010-10-29 06:56 | 只看該作者

回復 5# mnsmrtl

Private Sub start_Click()
Dim switch As Boolean
switch = IIf(switch, False, True)
Sheet7.Cells(1, "E") = IIf(switch, "ON", "OFF")
If switch=True then
Application.OnTime Now + TimeValue("00:00:01"), "'GetData " & switch & "'"
End If
End Sub

複製代碼

TOP

mnsmrtl

中學生 Rank: 2

帖子: 51
主題: 17
精華: 0
積分: 200
點名: 0
作業系統: winxp
軟體版本: officexp
閱讀權限: 20
性別: 男
註冊時間: 2010-7-31
最後登錄: 2018-9-19

5^#

發表於 2010-10-29 02:36 | 只看該作者

我是想在switch切換回false時停止
我在第一段的呼叫getdata，也是希望透過按鈕觸發
按鈕點擊→switch=true→開始定時執行getdata；再點擊→switch=false→getdata中止
這是我想作出的效果，還請兩位版主不吝指教，感謝

不進則退

TOP

GBKEE

超級版主 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兔年全勤獎章

4^#

發表於 2010-10-28 15:18 | 只看該作者

回復 3# mnsmrtl
「引數不為選擇性(optional)」的錯誤你好像是指因 getdata switch 這程式碼所引起的
但引起這錯誤應該是 Application.OnTime Now + TimeValue("00:00:01"), "getdata"
請修改成如下
Application.OnTime Now + TimeValue("00:00:01"), "'GetData " & switch & "'"