các anh ơi cho em hỏi chút em tìm mấy ngày trên mạng nhưng chưa có câu trả lời nay hỏi ở đây có gì mong mọi người thông cảm cho em nhé:
sau khi nhập vào bảng tính và sắp xếp rồi
em có 2 inputbox, inputbox1 là nhập vào vùng dữ liệu chọn b2:b8
(vùng này thay đổi theo từng bảng), inputbox 2 là chọn ô bắt đầu sắp xếp chọn ô d1
(vùng này cũng thay đổi theo từng bảng),
và em có 1 hàm so sánh
Function sosa(cell As String) As String
Dim i As Integer
Dim dulieu As String
cell = Trim(cell)
For i = 1 To Len(cell)
If Asc(Mid(cell, i, 1)) <> 10 Then dulieu = dulieu + Trim(Mid(cell, i, 1))
Next
sosa = dulieu
End Function
bây giờ: tại các cell gióng ngang và gióng lên cụ thể là ô D2 em muốn gán công thức
"=if(sosa($D$1)=sosa(B2),C2,"-")"
tương tự cho các ô khác trong bảng tính bắt buộc em phải dùng công thức trên và gán như thế để khi em chèn thêm hàng thì em chỉ việc bôi đen và kéo xuồng là được
có vậy thôi mà em không làm được cũng như không tìm thấy ai có thể giúp được
cái cần nhất ở đây là dựa vào 2 hàm inputbox ở trên để lấy địa chỉ ô cần thay cho hàm sosatrong công thức if
ai biết xin chỉ giùm em. em xin cảm ơn