請問....這個要怎麼修改

color790

為什麼執行了,一點反應也沒有
請問哪裡需要修改 ?
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

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

color790

已上傳至sheet2

GBKEE

回復 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

太感謝了.....