[VBA ] 判斷數列是否呈現"遞增or遞減"
【目的】
1.求出以下數列是否呈現遞增or遞減的狀態
2.判斷遞增or遞減的起始點及終點的數值
【資料狀態】
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
【問題描述】
1. 如何判斷是否為遞增or遞減狀態已經好了，
目前想知道的是怎麼樣求得起始點及終點的值
2. 照我這樣寫，只要k > num 時k = 0，原意是想當k > num 時才判定成遞增
，現在想改卻不知道該從何下手
感謝各位大哥的協助 m(-_-)m
【程式碼】
Sub test()
Dim n As Integer, num As Integer
num = 10
Sheets("sheet1").Select
Range(Cells(1, 1), Cells(1, 1).End(xlDown)).Select
n = Selection.CountLarge
For i = 1 To n - 1
If Cells(i, 1).Value < Cells(i + 1, 1).Value Then
k = k + 1
If k > num Then
MsgBox "呈遞增現象"
k = 0
End If
ElseIf Cells(i, 1).Value > Cells(i + 1, 1).Value Then
k = k + 1
If k > num Then
MsgBox "呈遞減現象"
k = 0
End If
Else
k = 0
End If
Next
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 111.254.232.245
※ 編輯: smooth131 來自: 114.40.164.111 (08/18 00:00)
→
08/18 00:37, , 1F
08/18 00:37, 1F
→
08/18 00:38, , 2F
08/18 00:38, 2F
→
08/18 22:43, , 3F
08/18 22:43, 3F
→
08/20 20:05, , 4F
08/20 20:05, 4F
討論串 (同標題文章)
以下文章回應了本文：
完整討論串 (本文為第 1 之 2 篇)：