返回列表 上一主題 發帖

[發問] Function WarningGreater 判斷式修改跟記錄~

ms2001

帖子
26 
主題
15 
精華
0 
積分
41 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
10 
性別
男 
註冊時間
2010-7-20 
最後登錄
2019-6-26 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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，它會變成無限的迴圈，如何在它跳，出五次時
就不要再跳出，或者直接將該行自動刪除掉.
收藏 分享

ms2001

帖子
26 
主題
15 
精華
0 
積分
41 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
10 
性別
男 
註冊時間
2010-7-20 
最後登錄
2019-6-26 
2#
發表於 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這個值會一直變動

TOP

        靜思自在 : 不怕事多，只怕多事。
返回列表 上一主題