返回列表 上一主題 發帖

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

mnsmrtl

帖子
51 
主題
17 
精華
0 
積分
200 
點名
0  
作業系統
winxp 
軟體版本
officexp 
閱讀權限
20 
性別
男 
註冊時間
2010-7-31 
最後登錄
2018-9-19 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-10-28 10:51 | 顯示全部帖子

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

程式碼如下
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

帖子
51 
主題
17 
精華
0 
積分
200 
點名
0  
作業系統
winxp 
軟體版本
officexp 
閱讀權限
20 
性別
男 
註冊時間
2010-7-31 
最後登錄
2018-9-19 
2#
發表於 2010-10-28 13:21 | 顯示全部帖子
回復 2# oobird


    參數就是switch，是T/F型態的變數
不進則退

TOP

mnsmrtl

帖子
51 
主題
17 
精華
0 
積分
200 
點名
0  
作業系統
winxp 
軟體版本
officexp 
閱讀權限
20 
性別
男 
註冊時間
2010-7-31 
最後登錄
2018-9-19 
3#
發表於 2010-10-29 02:36 | 顯示全部帖子
我是想在switch切換回false時停止
我在第一段的呼叫getdata，也是希望透過按鈕觸發
按鈕點擊→switch=true→開始定時執行getdata；再點擊→switch=false→getdata中止
這是我想作出的效果，還請兩位版主不吝指教，感謝
不進則退

TOP

mnsmrtl

帖子
51 
主題
17 
精華
0 
積分
200 
點名
0  
作業系統
winxp 
軟體版本
officexp 
閱讀權限
20 
性別
男 
註冊時間
2010-7-31 
最後登錄
2018-9-19 
4#
發表於 2010-10-31 01:06 | 顯示全部帖子
已測試成功，感謝版主解答
不進則退

TOP

        靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。
返回列表 上一主題