標題: 請問....這個要怎麼修改 [打印本頁]

---

作者: color790    時間: 2010-8-28 10:37     標題: 請問....這個要怎麼修改

本帖最後由 color790 於 2010-9-1 14:16 編輯

為什麼執行了,一點反應也沒有
請問哪裡需要修改 ?
Sub aa()
j = 2
For i = 2 To 5002
If Cells(i, 2) = TimeValue("09:30:00") And Cells(i, 1) = Cells(j, 16) Then     'a欄為日期,b欄為時間
x = Application.Max(Range(Cells(i - 2, 4), Cells(i, 4)))
Z = Application.Min(Range(Cells(i - 2, 5), Cells(i, 5)))
Do Until Cells(i, 4) > x + 30 And Cells(i, 1) = Cells(j, 16) Or Cells(i, 5) < Z
i = i + 1
Loop
If Cells(i, 5) < Z Then
Set y = Cells(i, 5)
Else
Set y = Cells(i, 4)
End If
y.Offset(, 7) = y - x
End If
j = j + 1
Next
End Sub

---

作者: GBKEE    時間: 2010-8-28 14:33

回復 1# color790
這程序要的是甚麼?  我看不懂  可以告訴我嗎?
If Cells(i, 2) = TimeValue("09:30:00") And Cells(i, 1) = Cells(j, 16) Then     'a欄為日期,b欄為時間
把紅色0去掉 就會動

---

作者: color790    時間: 2010-8-29 01:00

已上傳至sheet2

---

作者: GBKEE    時間: 2010-8-29 06:39

回復 3# color790
股票不太懂

1. Sub aa()
   
2. With Sheet1
   
3.     For j = 2 To .Cells(Rows.Count, "P").End(xlUp).Row
   
4.         For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
   
5.             If .Cells(i, "B") = TimeValue("9:30:00") And .Cells(i, "A") = .Cells(j, "P") Then     'a欄為日期,b欄為時間
   
6.                 x = Application.Max(.Range(.Cells(i - 2, 4), .Cells(i, 4)))
   
7.                 Z = Application.Min(.Range(.Cells(i - 2, 5), .Cells(i, 5)))
   
8.                 Do Until .Cells(i, 4) > x + 30 And .Cells(i, 1) = .Cells(j, 16) Or .Cells(i, 5) < Z
   
9.                     i = i + 1
   
10.                 Loop
    
11.                 If Cells(i, 5) < Z Then
    
12.                     Set y = Cells(i, 5)
    
13.                 Else
    
14.                     Set y = Cells(i, 4)
    
15.                 End If
    
16.                 y.Offset(, 7) = y - x
    
17.             End If
    
18.         Next
    
19.     Next
    
20. End With
    
21. End Sub

複製代碼

---

作者: color790    時間: 2010-8-29 10:01

太感謝了.....

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)