爲什麼當我嘗試運行我的VBA代碼時，我的excel停止響應？

Question

更新了我的問題。我把我的表格的流程圖和截圖放在一起，這樣你們可以更好地理解。

Chart

Sheet

當我開始運行這個時，Excel停止響應。我似乎無法找到問題所在。我希望有人能幫幫忙！我研究了VBA代碼，但我認爲還有一些缺點？

Sub F110Loop() 

Dim x As Integer 'current amount 
Dim y As Integer 
Dim d As Double 'delta between Disbursement date and Cheque Release date 
Dim Current As Integer 
Dim Least As Integer 
Dim Dis As Worksheet 
Dim Cheque As Worksheet 
Dim wb As Workbook 

Set wb = ThisWorkbook 
Set Dis = wb.Sheets("Disbursements") 
Set Cheque = wb.Sheets("Cheque Info") 
wb.Activate 

For x = 4 To 600 
    Do While Dis.Cells(x, 9).Value > 1 
     'IF same amount, get row number to get corresponding date, reference that date 
     For y = 3 To 600 
      If Dis.Cells(x, 6).Value = Cheque.Cells(y, 5).Value Then 
       'THEN get delta 
       Current = Dis.Cells(x, 4).Value -Cheque.Cells(y, 2) 
       'IF current is less than the least delta 
      ElseIf Current < Least Then 
       'THEN update new value of delta 
       Current = Least 
      Else 
       'copy paste the date (from the least delta row) 
       Cheque.Cells(y, 2).Copy Destination:=Dis.Cells(x, 8) 
      End If 
     Next y 
    Loop 
Next x 

End Sub 

Answer 1

也許你有一個無限循環，因爲你永遠不會改變Dis.Cells（X，9）

Do While Dis.Cells(x, 9).Value > 1 
' make no change to Dis.Cells(x, 9) 
Loop 

Answer 2

你必須做一些事情，如：

x = 4 
Do while Dis.Cells(x,9).value > 1 
    x = x + 1 
loop