Giúp sửa lỗi code vba (1 người xem)

[lostonmyway]

Em đang chập chững viết code nên bị lỗi nhưng không hiểu vì sao, mạng phép post lên nhờ các bác trong diễn đàn giúp dùm

 

[HieuCD]

Em đang chập chững viết code nên bị lỗi nhưng không hiểu vì sao, mạng phép post lên nhờ các bác trong diễn đàn giúp dùm

N không có giá trị nên vòng lặp không chạy

Public Function timluc(Point, Combo, sxP As Range, sxC As Range, sxL As Range)
  Dim i As Long
  For i = 1 To sxP.Rows.Count
    If sxP(i) = Point And sxC(i) = Combo Then
      timluc = sxL(i)
      Exit For
    End If
  Next i
End Function

 

[lostonmyway]

Ôi!!! cảm ơn pác HieuCD nhiều lắm ạ.

 

[ndu96081631]

Em đang chập chững viết code nên bị lỗi nhưng không hiểu vì sao, mạng phép post lên nhờ các bác trong diễn đàn giúp dùm

Dùng công thức thường cho trường hợp này là được rồi, cần gì code:

=LOOKUP(2,1/($B$2:$B$24=N3)/($C$2:$C$24=N4),$D$2:$D$24)

--------------------

N không có giá trị nên vòng lặp không chạy

Public Function timluc(Point, Combo, sxP As Range, sxC As Range, sxL As Range)
  Dim i As Long
  For i = 1 To sxP.Rows.Count
    If sxP(i) = Point And sxC(i) = Combo Then
      timluc = sxL(i)
      Exit For
    End If
  Next i
End Function

Chủ topic lưu ý là code này có phân biệt HOA thường nhé. Tức nếu cell L4 = "sls2" chứ không phải "SLS2" thì kết quả =0