返回列表 上一主題 發帖

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

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 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 & "'"
有什麼方法可以將前一次設定的schedule取消？
因為我在getdata本身當中有再輸入上面那段code

oobird 版主 不是說 [看看getdata的參數設為什麼？]
意思是你取消的條件是什麼?

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2010-10-29 06:56 | 顯示全部帖子
回復 5# mnsmrtl
  1. Private Sub start_Click()
  2.     Dim switch As Boolean
  3.     switch = IIf(switch, False, True)
  4.     Sheet7.Cells(1, "E") = IIf(switch, "ON", "OFF")
  5.     If switch=True then
  6.        Application.OnTime Now + TimeValue("00:00:01"), "'GetData  " & switch & "'"
  7.     End If
  8. End Sub
複製代碼

TOP

        靜思自在 : 口說一句好話，如口出蓮花；口說一句壞話如口吐毒蛇。
返回列表 上一主題