返回列表 上一主題 發帖

[發問] 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，它會變成無限的迴圈，如何在它跳，出五次時
就不要再跳出，或者直接將該行自動刪除掉.
收藏 分享

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
2#
發表於 2010-9-20 00:31 | 只看該作者
1.
  1. worksheets("sheet2").range("A65536").end(xlup).offset(1,0) = SPrice.Value "----" & WPrice.Value & " " & now()
複製代碼
2. WarningGreater是在那裡呼叫?
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

ms2001

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

        靜思自在 : 滴水成河。粒米成蘿，勿輕己靈，勿以善小而不為。
返回列表 上一主題