Board logo

標題: [發問] Function WarningGreater 判斷式修改跟記錄~ [打印本頁]

作者: ms2001    時間: 2010-9-19 11:37     標題: Function WarningGreater 判斷式修改跟記錄~

小弟有一個判斷式想要修改跟記錄,功力太淺,一直改不好,有大大可以幫幫忙嗎~

--------------------------------------------------------
Function WarningGreater(SPrice As Range, WPrice As Range)

WarningGreater = "GO"
If WPrice.Value > 0.25 Then
Call PlayWavFile("C:\touch.wav", False)
MsgBox SPrice.Value & "----" & WPrice.Value
WarningGreater = "GOOD"

End If

End Function

------------------------------------------------------------

以上
1、每當條件成立時,我想在它跳出msgbox時同時將該行的內容跟成立的時間
copy到sheet2的a1記綠下來。

2、當條件一直成立時msgbox,它會變成無限的迴圈,如何在它跳,出五次時
就不要再跳出,或者直接將該行自動刪除掉.
作者: kimbal    時間: 2010-9-20 00:31

1.
  1. worksheets("sheet2").range("A65536").end(xlup).offset(1,0) = SPrice.Value "----" & WPrice.Value & " " & now()
複製代碼
2. WarningGreater是在那裡呼叫?
作者: ms2001    時間: 2010-9-20 01:05

1.不好意思,worksheets("sheet2").range("A65536").end(xlup).offset(1,0) = SPrice.Value & "----" & WPrice.Value & " " & now() 這是要放在哪呀,我試了好像都不行耶。
2.WarningGreater我是用來判斷dde傳來的值我套入公試所得到的結果,所以WPrice.Value這個值會一直變動




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)