Nhờ anh/ chị khắc phục dùm lỗi trong trường hợp sau:
Dim i as integer
Dim a (1 to 100)
For i = 9 To Lr
a(i) = "=IF(iferror(VLOOKUP(VALUE(MID(RC5,FIND(PHANCONG!R31C4,RC5),1)),PHANCONG!R30C4:R34C12,MATCH(RC4,PHANCONG!R30C4:R30C12,0),FALSE),0)=0,VLOOKUP(RC4,PHANCONG!R12C2:R23C28,4,0),VLOOKUP(VALUE(MID(RC5,FIND(PHANCONG!R31C4,RC5),1)),PHANCONG!R30C4:R34C12,MATCH(RC4,PHANCONG!R30C4:R30C12,0),FALSE))"
Cells(i, 50) = a(i)
Cells(i, 50) = Cells(i, 50).Value
If Cells(i, 50) = "xx" Then
Cells(i, "G") = "xx"
End If
Next i
Mình muốn hỏi: Tại sao không thể dùng lệnh if để kiểm tra trực tiếp giá trị của biến a (i) mà phải gán vào ô tính thì mới cho ra kết quả:
Cells(i, 50) = a(i)
Cells(i, 50) = Cells(i, 50).Value
If Cells(i, 50) = "xx" Then
Cells(i, "G") = "xx"
End If
Next i
Còn khi viết như thế này thì lại không cho ra kết quả. Chẳng hạn:
If a(i)= "xx" Then
Cells(i, "G") = "xx"
End If
Nhờ anh/ chị giúp dùm. Xin cám ơn!
Dim i as integer
Dim a (1 to 100)
For i = 9 To Lr
a(i) = "=IF(iferror(VLOOKUP(VALUE(MID(RC5,FIND(PHANCONG!R31C4,RC5),1)),PHANCONG!R30C4:R34C12,MATCH(RC4,PHANCONG!R30C4:R30C12,0),FALSE),0)=0,VLOOKUP(RC4,PHANCONG!R12C2:R23C28,4,0),VLOOKUP(VALUE(MID(RC5,FIND(PHANCONG!R31C4,RC5),1)),PHANCONG!R30C4:R34C12,MATCH(RC4,PHANCONG!R30C4:R30C12,0),FALSE))"
Cells(i, 50) = a(i)
Cells(i, 50) = Cells(i, 50).Value
If Cells(i, 50) = "xx" Then
Cells(i, "G") = "xx"
End If
Next i
Mình muốn hỏi: Tại sao không thể dùng lệnh if để kiểm tra trực tiếp giá trị của biến a (i) mà phải gán vào ô tính thì mới cho ra kết quả:
Cells(i, 50) = a(i)
Cells(i, 50) = Cells(i, 50).Value
If Cells(i, 50) = "xx" Then
Cells(i, "G") = "xx"
End If
Next i
Còn khi viết như thế này thì lại không cho ra kết quả. Chẳng hạn:
If a(i)= "xx" Then
Cells(i, "G") = "xx"
End If
Nhờ anh/ chị giúp dùm. Xin cám ơn!