Nhờ giúp đỡ code tạo file quản lý công nợ theo tuổi nợ (1 người xem)

[tylo0000]

NHỜ CÁC BÁC GIÚP ĐỠ, E KO HIỂU SAO VÒNG LẶP NÀY NÓ CỨ CHẠY MIẾT. MỚI TÌM HIỂU VỀ VBA TRÊN EXCEL CÓ J CÁC BÁC HƯỚNG DẪN CHI TIẾT CHÚT.

CODE:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim dl As Double
Dim CL As Double
Dim i As Double
Dim y As Double
Dim GHI As Double
Dim ktra1 As Double
Dim ktra2 As Double


i = 12
CL = ActiveSheet.Cells(11, 4).Value
For i = 12 To 500 Step 1
ktra1 = ActiveSheet.Cells(i, 3).Value
ktra2 = ActiveSheet.Cells(i, 4).Value
If ktra1 = 0 And ktra2 = 0 Then Exit Sub

If CL > ktra1 Then
ActiveSheet.Cells(i, 6).Formula = ""

CL = CL - ktra1


End If
If CL < ktra1 Then
ActiveSheet.Cells(i, 6).Formula = ktra1 - CL
Exit Sub
End If
Next
End Sub

 

[vu_tuan_manh_linh]

NHỜ CÁC BÁC GIÚP ĐỠ, E KO HIỂU SAO VÒNG LẶP NÀY NÓ CỨ CHẠY MIẾT. MỚI TÌM HIỂU VỀ VBA TRÊN EXCEL CÓ J CÁC BÁC HƯỚNG DẪN CHI TIẾT CHÚT.

Bạn không chọn điều kiện của cell thay đổi mà ở đó thực thi lệch change, nên nó chạy miết là đúng rồi. Code có thể sẽ là như thế này:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim CL As Double
Dim i As Double
If Target.Column = 3 Then
CL = Cells(11, 4).Value
For i = 12 To 500
    If Cells(i, 3).Value = 0 And Cells(i, 4).Value = 0 Then Exit Sub
    If CL > Cells(i, 3).Value Then
        Cells(i, 6).Formula = ""
        CL = CL - Cells(i, 3).Value
    End If
    If CL < Cells(i, 3).Value Then
        Cells(i, 6).Formula = Cells(i, 3).Value - CL
        Exit Sub
    End If
Next
End If
End Sub

 

[tylo0000]

thanks anh nhiều. :d;;;;;;