kiennguyen1309
Thành viên mới

- Tham gia
- 2/3/07
- Bài viết
- 14
- Được thích
- 1
Vậy sao bạn không thiết kế lại cho logic, rồi post lên đi?kiennguyen1309 đã viết:Vâng, đúng vậy điểm nội dung của câu dù ở bất kỳ mã đề nào cũng như nhau. Ta có thể bỏ dòng thừa ở bảng 1
Option Explicit
Function LapBang(MaDe As Range, DaChon As String, Cau As Byte) As String
Dim Rng As Range, Clls As Range
Set Clls = Cells(4, 5 + 4 * Cau).Offset(MaDe - 1).Resize(1, 4)
DaChon = UCase$(DaChon)
For Each Rng In Clls
If UCase$(Rng) = DaChon Then
LapBang = Rng.Offset(1 - MaDe)
Exit Function
End If
Next Rng
End Function
Q5 =INDEX(OFFSET($W$4:$Z$4,0,(VALUE(RIGHT(Q$4,1))-1)*4), MATCH(F5,OFFSET($W$4:$Z$4,MATCH($P5,$V$4:$V$9,0)-1,(VALUE(RIGHT(Q$4,1))-1)*4),0))
trong công thức cần chú ý : $V$4:$V$9 thay lại cho hợp lý với số đề bạn có