promoraiati
Thành viên mới

- Tham gia
- 5/7/12
- Bài viết
- 3
- Được thích
- 0
Các bác sửa giúp dùm em code hàm FindConditions tìm kiếm với điều kiện trong file đính kèm. 
Public Function FindConditions(Table As Range, Val1 As Integer, Val2 As String, Val3 As Integer, Val4 As String)
'Table la bang du lieu
'Val1 la dieu kien toa do X
'val2 la dieu kien huong toa do E
'Val3 la dieu kien toa do Y
'Val4 la dieu kien huong toa do N
Dim i As Integer
For i = 1 To 32
If (Table.Cells(i, 1) = Val1) And (Table.Cells(i, 2) = Val2) And (Table.Cells(1, 3) = Val3) And (Table.Cells(i, 4) = Val4) Then
FindConditions = Table.Cells(i, 5)
Exit For
End If
Next i
End Function

Public Function FindConditions(Table As Range, Val1 As Integer, Val2 As String, Val3 As Integer, Val4 As String)
'Table la bang du lieu
'Val1 la dieu kien toa do X
'val2 la dieu kien huong toa do E
'Val3 la dieu kien toa do Y
'Val4 la dieu kien huong toa do N
Dim i As Integer
For i = 1 To 32
If (Table.Cells(i, 1) = Val1) And (Table.Cells(i, 2) = Val2) And (Table.Cells(1, 3) = Val3) And (Table.Cells(i, 4) = Val4) Then
FindConditions = Table.Cells(i, 5)
Exit For
End If
Next i
End Function