- 帖子
- 12
- 主題
- 1
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- Office 2003/2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-8-24
- 最後登錄
- 2019-2-26
|
本帖最後由 smooth131 於 2011-8-25 00:12 編輯
程式目的】
檢查資料欄位，若是資料連續（當>num時）遞增or遞減，就出現「一次」msgbox
【問題描述】
(1) 在選定的資料欄中，只要其中有七組數據（可能是在群組的任何一個區段）是有增加or減少的現像就會出現msgbox
想了很久還是不知道怎麼才能讓它判斷"連續"
(2) msgbox出現的次數不止一次
【程式碼】
Sub WrongTrend()
Dim RowNum As Integer, num As Integer
num = 7
ActiveSheet.Select
Range(Cells.Find("X-bar").Offset(1, 0), Cells.Find("X-bar").Offset(1, 0).End(xlDown)).Select
RowNum = Selection.CountLarge
For i = 1 To (RowNum - 1)
If Cells(i, 1).Value < Cells(i + 1, 1).Value Then
k = k + 1
'Sheets("sheet2").Cells(i, 1).Value = k
If k > num Then
MsgBox "樣本呈遞增現象", , "製程異常"
k = 0
End If
ElseIf Cells(i, 1).Value > Cells(i + 1, 1).Value Then
k = k + 1
'Sheets("sheet2").Cells(i, 1).Value = k
If k > num Then
MsgBox "樣本呈遞減現象", , "製程異常"
k = 0
End If
Else
k = 0
End If
Next
End Sub
 wrong.rar (8.93 KB)
感謝您耐心的閱讀 m(-_-)m |
|
發表於 2011-8-25 00:10
| 
