- 帖子
- 463
- 主題
- 116
- 精華
- 0
- 積分
- 580
- 點名
- 0
- 作業系統
- Vista
- 軟體版本
- 2007
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-4
- 最後登錄
- 2017-11-13
 
|
回復 2# GBKEE
GBKEE前輩你好!
良師!辛苦囉!謝謝再三!!
Sub 提示()
Set c = [G3:G36]
If Application.WorksheetFunction.CountIf(c, "<0") Then
MsgBox "這是極高風險的投資方案！請重新評估！！"
End If
Set D = [G37:G84]
If Application.WorksheetFunction.CountIf(D, "<0") Then
MsgBox "這是中度風險的投資方案！請戒急用忍！！"
End If
Set E = [G85:G132]
If Application.WorksheetFunction.CountIf(E, "<0") Then
MsgBox "這是低風險的投資方案！請謹慎應對！！"
End If
End Sub
Option Base 0
Sub 提示A()
Dim myRng(0 To 2) As Range
Set myRng(0) = Range("G3:G36")
Set myRng(1) = Range("G37:G84")
Set myRng(2) = Range("G85:G132")
If Application.WorksheetFunction.CountIf(myRng(0), "<0") Then
MsgBox "這是極高風險的投資方案！請重新評估！！"
ElseIf Application.WorksheetFunction.CountIf(myRng(1), "<0") Then MsgBox "這是中度風險的投資方
案！請戒急用忍！！"
ElseIf Application.WorksheetFunction.CountIf(myRng(2), "<0") Then MsgBox "這是低風險的投資方案
！請謹慎應對！！"
End If
End Sub |
|
發表於 2011-6-19 08:46
| 
