返回列表下一主題上一主題發帖

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

ms2001

小學生 Rank: 1

帖子: 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

小學生 Rank: 1

帖子: 26
主題: 15
精華: 0
積分: 41
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-7-20
最後登錄: 2019-6-26

3^#

發表於 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

kimbal