thong_xanh2003
Thành viên chính thức 


			
		- Tham gia
 - 24/5/07
 
- Bài viết
 - 56
 
- Được thích
 - 14
 


Chào bạnthong_xanh2003 đã viết:Nhờ các bác chỉ giúp có cách nào để tham chiếu , trích số liệu từ các ô khác nhau rồi nối kết lại để điền vào 1 ô được không. Phần kết quả tôi muốn có là phần tô mầu vàng trong file gửi kèm.
Function NO(Ngay As String)
Dim i As Integer, k As Integer
Dim temp1 As String, temp2 As String
i = 5
Do While Sheet1.Cells(i, 1) <> ""
    If Sheet1.Cells(i, 1) = Ngay Then
        temp1 = temp1 & Sheet1.Cells(i, 4) & "+"
        temp2 = Sheet1.Cells(i, 4)
        k = i + 1
        Do While Sheet1.Cells(k, 1) = Ngay
            If temp2 <> Sheet1.Cells(k, 4) Then temp1 = temp1 & Sheet1.Cells(k, 4) & "+"
            k = k + 1
        Loop
        Exit Do
    End If
    i = i + 1
Loop
NO = Left(temp1, Len(temp1) - 1)
End Function
	I4: Là dòng đầu tìm thấy soct = SoCTi=INDEX(TkNo,$I$4,0)&IF($I$4+1<=$I$5,"-"&INDEX(TkNo,$I$4+1,0),"")&IF($I$4+2<=$I$5,"-"&INDEX(TkNo,$I$4+2,0),"")&IF($I$4+3<=$I$5,"-"&INDEX(TkNo,$I$4+3,0),"")