帖子: 7
主題: 3
精華: 0
積分: 10
點名: 0
作業系統: Win XP
軟體版本: SP3
閱讀權限: 10
性別: 女
註冊時間: 2012-8-29
最後登錄: 2012-10-31

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2012-10-19 16:10 | 只看該作者

[發問] checkbox重覆執行

Hi 各位大大，想請教一下
我希望勾選checkbox(checkbox.value = true)後會執行我要做的事，再取消(checkbox.value = false)就不做任何事，再勾選checkbox(checkbox.value = true)會再執行我要做的事

但我如果在程式碼中間加入"do while"，就只有第一次勾選checkbox時會執行我要做的事
Private Sub ddrmaxretrain_Click()
If ddrmaxretrain.Value = True Then
      Do While maxretrain = ""
         maxretrain = Application.InputBox("DDR Max Retrain Count(1~999)")
      Loop
Else
End If
End Sub

但如果是像這樣寫的話，我只要勾選checkbox就會執行動作，取消再勾選一樣都會執行動作
Private Sub ddrmaxretrain_Click()
If ddrmaxretrain.Value = True Then
      maxretrain = Application.InputBox("DDR Max Retrain Count(1~999)")
Else
End If
End Sub

樓主熱帖

xgit0072

小學生 Rank: 1

帖子: 7
主題: 3
精華: 0
積分: 10
點名: 0
作業系統: Win XP
軟體版本: SP3
閱讀權限: 10
性別: 女
註冊時間: 2012-8-29
最後登錄: 2012-10-31

7^#

發表於 2012-10-19 17:11 | 只看該作者

hi GBKEE 大大~~
因為我要判斷inpubox是否有值，所以我才會加入do while
所以你的方式不適合我用!謝謝啦!

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

6^#

發表於 2012-10-19 17:08 | 只看該作者

回復 5# xgit0072
不清的話 , while換後面也一樣
Do
maxretrain = Application.InputBox("DDR Max Retrain Count(1~999)")
Loop While maxretrain = ""

TOP

xgit0072

小學生 Rank: 1

帖子: 7
主題: 3
精華: 0
積分: 10
點名: 0
作業系統: Win XP
軟體版本: SP3
閱讀權限: 10
性別: 女
註冊時間: 2012-8-29
最後登錄: 2012-10-31

5^#

發表於 2012-10-19 16:58 | 只看該作者

非常感謝stillfish00 大大~~

之前沒有想到，要把maxretrain的值清掉，你一句話就點醒了我...
用你的方式已經解決了喲!!謝謝你!!

TOP

xgit0072

小學生 Rank: 1

帖子: 7
主題: 3
精華: 0
積分: 10
點名: 0
作業系統: Win XP
軟體版本: SP3
閱讀權限: 10
性別: 女
註冊時間: 2012-8-29
最後登錄: 2012-10-31

4^#

發表於 2012-10-19 16:52 | 只看該作者

sorry，我上面的敘述可能不是很清楚~~

當 Application.InputBox("DDR Max Retrain Count(1~999)") 時, 你無法去作取消或勾選的動作
-->我的意思是說，當我輸入完資料，inputbox關掉後，我把checkbox取消，這時會執行checkbox.value=false後的程式碼

但如果我再打勾一次，他又會再執行checkbox.value = true後的程式碼

1. 勾選checkbox
2.跳出inputbox，輸入資料
3.inputbox關閉
4.此時不小心按到checkbox，導致checkbox.value = false
5.我再勾選一次checkbox-->這時應該會再跳出inputbox讓我輸入資料

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

3^#

發表於 2012-10-19 16:46 | 只看該作者

回復 1# xgit0072
Hi, 我不知道你maxretrain是全域變數還是其他控制項
但第一次勾選checkbox後 , maxretrain就從inputbox取得值(已經不是""了)
所以取消後, 重勾選就不會進入 do...loop 迴圈 ...

看看是不是你要的:
Private Sub ddrmaxretrain_Click()
If ddrmaxretrain.Value = True Then
      Do While maxretrain = ""
         maxretrain = Application.InputBox("DDR Max Retrain Count(1~999)")
      Loop
Else
      maxretrain = ""
End If
End Sub

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兔年全勤獎章

2^#

發表於 2012-10-19 16:33 | 只看該作者

本帖最後由 GBKEE 於 2012-10-19 16:39 編輯

回復 1# xgit0072
當 Application.InputBox("DDR Max Retrain Count(1~999)") 時, 你無法去作取消或勾選的動作

程式碼中間加入"do while"，就只有第一次勾選checkbox 會執行我要做的事
對啊!只要是 If ddrmaxretrain.Value = True 勾選checkbox

但如果是像這樣寫的話，我只要勾選checkbox就會執行動作，取消再勾選一樣都會執行動作 , 不會這樣吧 !

Private Sub ddrmaxretrain_Click()
If ddrmaxretrain.Value = True Then '勾選checkbox
maxretrain = Application.InputBox("DDR Max Retrain Count(1~999)")
Else '取消勾選checkbox
執行這裏程式碼 ......
End If
End Sub

複製代碼

TOP