- 帖子
- 10
- 主題
- 2
- 精華
- 0
- 積分
- 12
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- OFFICE 2010
- 閱讀權限
- 10
- 性別
- 男
- 來自
- 台中
- 註冊時間
- 2013-5-14
- 最後登錄
- 2014-4-8
|
回復 6# luhpro
我嘗試了一下，我值隨便輸入，一樣會測試全部 似乎沒有判斷到IF
Public x, y
Sub trend()
x = InputBox("輸入第一天")
y = InputBox("輸入最後一天")
For a = 2 To 486
Call aa(a)
Next a
End Sub
Sub aa(ByVal a As Integer)
For b = 9 To 32
If x > Cells(a, 1) And Cells(a, 1) <= y Then
If Cells(a, b) >= Cells(a - 1, b) Then
Cells(a, b + 25) = Cells(a + 2, 2) - Cells(a + 1, 2)
Else
Cells(a, b + 25) = Cells(a + 1, 2) - Cells(a + 2, 2)
End If
End If
c = Cells(a, b + 25)
D = D + c
Cells(489, b + 25) = D
e = Cells(1, b + 25)
Cells(488, b + 25) = e
Next
c = 0
Cells(1, b + 25) = Cells(1, b)
End Sub |
|
發表於 2013-10-20 16:15
| 
