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),"")