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

程式碼如下
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
這樣它會在開始執行後每隔一分鐘就再執行一次，
但是一旦點擊按鈕數次後，它就會連續執行了

樓主熱帖

不進則退

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2010-10-28 11:07 | 只看該作者

看看getdata的參數設為什麼？

TOP

mnsmrtl

中學生 Rank: 2

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

3^#

發表於 2010-10-28 13:21 | 只看該作者

回復 2# oobird

參數就是switch，是T/F型態的變數

不進則退

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 & "'"