Hàm tra số theo số thứ tự đơn giản (1 người xem)

[alexka]

hình như mình ko hiểu chỗ nào đó mấy anh em chỉ giúp với. tra số theo stt nếu không có thì báo là ko tìm thấy. Mình mới làm VBA còn ko hiểu nhiều thứ.

 

[hoangvuluan]

Hix, tôi đọc xong cũng không hiểu chỗ nào đó luôn!

 

[alexka]

hic gởi file lên mà sao ko có dòng code nào hết để mình viết lại

 

[alexka]

function traso(vungtra as range, stt as integer) as integer x = vungtra.columns.count dim i as integer for i =1 to x if stt = vungtra(1,i) then traso = vungtra(2,i) exit for esleif stt vungtra(1,i) then msgbox "ko tim thay" end if next i end function các bác giúp với chạy mà cứ báo else without if cũng ko hiểu lun

 

[alexka]

file code của em đây các bác xem giúp, mới vô diễn đàn nên vẫn chưa rành lắm

 

[ndu96081631]

file code của em đây các bác xem giúp, mới vô diễn đàn nên vẫn chưa rành lắm

Sửa hàm lại thế này mới được:

Function traso(vungtra As Range, stt As Long)
  Dim x As Long
  x = vungtra.Columns.Count
  Dim i As Integer
  For i = 1 To x
    If stt = vungtra(1, i) Then
      traso = vungtra(2, i)
      Exit For
    End If
  Next i
End Function

Tuy nhiên tôi thắc mắc tại sao bạn không dùng hàm có sẵn để làm, ví dụ: =HLOOKUP(B6,$A$1:$F$2,2,0) cũng xong!

 

[alexka]

Cám ơn bạn nha. Tại mình đang tập làm vài hàm để hiểu cách làm thoy. Mình cũng biết hàm này mà . Ah` mình muốn nó hiện thông báo " không tìm thấy " nếu mà stt ko có trong vungtra thì làm thế nào ???