[發問] 判斷資料是否呈獻趨勢

本帖最後由 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

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

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

論壇貢獻勳章

2^#

發表於 2011-8-25 00:32 | 只看該作者

就是有任何MSGBOX出現就停止檢查?
最簡單的話可以在MSGBOX後加上EXIT SUB

'目前是num總數>7，而非連續7個num
Sub WrongTrend()

Dim RowNum As Integer, num As Integer
num = 7
ActiveSheet.Select
Range(Cells(1, 1), Cells(1, 1).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
         Exit Sub
      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
         Exit Sub
      End If
Else
      k = 0
End If
Next

懂得發問,答案就會在其中

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

TOP

smooth131

中學生 Rank: 2

帖子: 12
主題: 1
精華: 0
積分: 50
點名: 0
作業系統: XP
軟體版本: Office 2003/2007
閱讀權限: 20
性別: 男
註冊時間: 2011-8-24
最後登錄: 2019-2-26

3^#

發表於 2011-8-25 22:19 | 只看該作者

真得耶~~~~~是我想得太複雜的，結果愈寫愈複雜
感謝您的提醒 m(-_-)m

TOP

smooth131

中學生 Rank: 2

帖子: 12
主題: 1
精華: 0
積分: 50
點名: 0
作業系統: XP
軟體版本: Office 2003/2007
閱讀權限: 20
性別: 男
註冊時間: 2011-8-24
最後登錄: 2019-2-26

4^#

發表於 2011-8-25 23:09 | 只看該作者

依循這個主題再問一次，那如果程式改成這樣（請參照附件檔中的Sub WrongTrend）

control_chart request.rar (33.35 KB)

為什麼明明沒有遞減現象，卻會一直出現遞減的msgbox

感謝您的回答

程式碼如下所示，新手請多包涵 m(-_-)m

Sub WrongTrend()
Dim RowNum As Integer, num As Integer
num = 7
Sheets("Xbar-R").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 + 3, 7).Value < Cells(i + 4, 7).Value Then
k = k + 1
If k > num Then
MsgBox "樣本呈遞增現象", , "製程異常"
k = 0
Exit Sub
End If
ElseIf Cells(i + 3, 7).Value > Cells(i + 4, 7).Value Then
k = k + 1
If k > num Then
MsgBox "樣本呈遞減現象", , "製程異常"
k = 0
Exit Sub
End If
Else
k = 0
End If
Next
End Sub

複製代碼

TOP

[發問] 判斷資料是否呈獻趨勢

[發問] 判斷資料是否呈獻趨勢

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]