Giúp kiểm tra hàm VBA (1 người xem)

[tueyennhi]

Chào anh chị
Cho em hỏi đoạn mã sau



Sub Tinhgio()
Dim I As Long, J As Long
For I = 8 To 2000


If Cells(I, 3).Value = "ca ngay" Or Cells(I, 3) = "hanh chinh" Then
Cells(I, 19).Value = Cells(I, 15).Value - Cells(I, 11).Value
ElseIf Cells(I, 11).Value < Cells(I, 15).Value Then
Cells(I, 19).Value = Cells(I, 15).Value - Cells(I, 11).Value


End If
Next I


End Sub


Đoạn mã này có gì sai mà em không chạy được?

 

[doatmenhhon]

Chào anh chị
Cho em hỏi đoạn mã sau



Sub Tinhgio()
Dim I As Long, J As Long
For I = 8 To 2000


If Cells(I, 3).Value = "ca ngay" Or Cells(I, 3) = "hanh chinh" Then
Cells(I, 19).Value = Cells(I, 15).Value - Cells(I, 11).Value
ElseIf Cells(I, 11).Value < Cells(I, 15).Value Then
Cells(I, 19).Value = Cells(I, 15).Value - Cells(I, 11).Value


End If
Next I


End Sub


Đoạn mã này có gì sai mà em không chạy được?

Hình như thiếu một cái end if

 

[tueyennhi]

Hình như thiếu một cái end if

Anh ơi em có End IF rồi mà

 

[tueyennhi]

À chạy được rồi em xác định sai cột trong code. Nhưng mà nó chạy ì ạch quá

 

[tueyennhi]

Hàm của em

Sub Tinhgio()
Dim I As Long
For I = 8 To 2000


If Cells(I, 6).Value = "Ca ngay" Or Cells(I, 6) = "Hanh chinh" Then
Cells(I, 21).Value = Cells(I, 17).Value - Cells(I, 13).Value

ElseIf Cells(I, 17).Value < Cells(I, 13).Value Then
Cells(I, 21).Value = Cells(I, 13).Value - Cells(I, 17).Value

Else: Cells(I, 21).Value = Cells(6, 13).Value - Cells(I, 13).Value
End If

Next I
End Sub

Chạy rồi nhưng mà ì ạch quá