Kết quả 1 đến 4 của 4

Chủ đề: Lọc giá trị trùng nhau ghi vào một ô dùng VBA

  1. #1
    ntthu.831 Guest

    Lọc giá trị trùng nhau ghi vào một ô dùng VBA

    Chào cả nhà
    Mình đang vướng một chỗ mà không biết làm sao,
    mình có bảng thông tin,muốn lọc các giá trị trùng nhau và không trùng nhau( ứng với giá trị trùng nhau là một số thứ tự),sẽ ghi các số thứ tự đó vào trong 1 ô,xem hình ở dưới nè.Trong bảng đó mình đã gõ tay các giá trị trùng nhau vào ô" kết quả" giờ mình muốn viết bằng hàm VBA.giúp mình nhé [IMG]images/smilies/biggrin.png[/IMG]

    stt
    giá trị
    kết quả




    1
    11
    1,2,6




    2
    11
    1,2,6




    3
    2
    3,7




    4
    4
    4,5




    5
    4
    4,5




    6
    11
    1,2,6




    7
    2
    3,7




    8
    5
    8













    xin cảm ơn

  2. #2
    huycon009 Guest
    Trích dẫn Gửi bởi auora_vt09
    Chào cả nhà
    Mình đang vướng một chỗ mà không biết làm sao,
    mình có bảng thông tin,muốn lọc các giá trị trùng nhau và không trùng nhau( ứng với giá trị trùng nhau là một số thứ tự),sẽ ghi các số thứ tự đó vào trong 1 ô,xem hình ở dưới nè.Trong bảng đó mình đã gõ tay các giá trị trùng nhau vào ô" kết quả" giờ mình muốn viết bằng hàm VBA.giúp mình nhé [IMG]images/smilies/biggrin.png[/IMG]

    stt
    giá trị
    kết quả




    1
    11
    1,2,6




    2
    11
    1,2,6




    3
    2
    3,7




    4
    4
    4,5




    5
    4
    4,5




    6
    11
    1,2,6




    7
    2
    3,7




    8
    5
    8










    Gởi bạn tham khảo nha, tôi viết hàm chứ không viết sub, code đơn giản thôi chả có bẫy lỗi bẫy liếc gì cả

  3. #3
    ghorse Guest
    Bài này nên dùng Sub, Function phức tạp hơn. Function có thể có hay không có tham số. Code mình không có tham số.

    Mã:
    Function xxx() As String
        Dim Arr(), r As Range, x, s$, i&
        Set r = Application.Caller.Offset(, -1)
        x = r.Value
        Arr = Range(r.End(xlUp), r.End(xlDown)).Value
        For i = 2 To UBound(Arr)
            If Arr(i, 1) = x Then s = s & ", " & (i - 1)
        Next
        xxx = Right(s, Len(s) - 2)
    End Function

  4. #4
    zincos Guest
    Cảm ơn các bác nhiều,bữa giờ bận quá,em không lên diễn đàn được,các bác nhiệt tình quá. ^^
    [IMG]images/smilies/a01.gif[/IMG]

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •