giúp tôi cách liệt kê tài khoản đối ứng với !!! (1 người xem)

[bboy_pro]

tôi có 1 tình huống (như trong file đính kèm). giờ tôi không biết được làm cách nào để liệt kê các tài khoản đối ứng. liệt kê bằng tay thì mất quá nhiều thời gian vì dữ liệu quá lớn. ai có thể giúp tôi tím 1 hàm để excel tự động điền. tôi xin cám ơn rất nhiều !!!

 

[Ba Tê]

tôi có 1 tình huống (như trong file đính kèm). giờ tôi không biết được làm cách nào để liệt kê các tài khoản đối ứng. liệt kê bằng tay thì mất quá nhiều thời gian vì dữ liệu quá lớn. ai có thể giúp tôi tím 1 hàm để excel tự động điền. tôi xin cám ơn rất nhiều !!!

Nếu dữ liệu đúng như trong file thì sử dụng hàm tự tạo thử xem.
Nhớ Enable Macros.

 

[concogia]

Nếu dữ liệu đúng như trong file thì sử dụng hàm tự tạo thử xem.
Nhớ Enable Macros.

Biến K trong code làm gì vậy "chời" ????

TKDU = Mid(Tem, 3, 250)

Lỡ chiều dài của TKDU hơn 250 ký tự thì sao hả "chời" ????
Híc, sao khoái số 250 thế......"chời" ?????

 

[Quang_Hải]

Biến K trong code làm gì vậy "chời" ????

Lỡ chiều dài của TKDU hơn 250 ký tự thì sao hả "chời" ????
Híc, sao khoái số 250 thế......"chời" ?????

Thì biến K là để cho anh chọt cù lét anh BaTê đó mà.
Nhưng mà thuật toán của anh BaTê hay thiệt đó.

 

[bboy_pro]

Nếu dữ liệu đúng như trong file thì sử dụng hàm tự tạo thử xem.
Nhớ Enable Macros.

cám ơn bạn ba tê nhiều. mình chỉ có thể sử dụng excel ở mức cơ bản thôi. bạn có thể chỉ mình làm sao để có thể tự tạo 1 hàm??? hay có thể chỉ mình cách copy hàm này sang file khác để làm việc ko??? cám ơn bạn

 

[Ba Tê]

Biến K trong code làm gì vậy "chời" ????

Lỡ chiều dài của TKDU hơn 250 ký tự thì sao hả "chời" ????
Híc, sao khoái số 250 thế......"chời" ?????

Nhột thiệt à nghe!
Lúc trước viết kiểu gì đó có K, sau bỏ đi mà quên xóa. Híc! Vậy mà cũng bị thọt... nhột.
Số 250 là viết thí thí cho xong vậy mà "Chời".
Lỡ bị thọt "gồi", "mần lợi" cho đỡ "quê" một chút.
Ẹc...

Public Function TKDU(Rng As Range, MaCT As Range, TK As Range) As String
Dim Rng1(), Arr(), I As Long, Tem As String
    Rng1 = Rng.Value
ReDim Arr(1 To UBound(Rng1, 1), 1 To 1)
    For I = 1 To UBound(Rng1, 1)
        If Rng(I, 1) = MaCT Then
            If Rng(I, 4) <> TK Then
                Tem = Tem & ", " & Rng(I, 4)
            End If
        End If
    Next I
TKDU = Mid(Tem, 3, Len(Tem) - 2)
End Function

 

[Ba Tê]

cám ơn bạn ba tê nhiều. mình chỉ có thể sử dụng excel ở mức cơ bản thôi. bạn có thể chỉ mình làm sao để có thể tự tạo 1 hàm??? hay có thể chỉ mình cách copy hàm này sang file khác để làm việc ko??? cám ơn bạn

Mở file lên, Ấn Alt-F11 sẽ thấy Function TKDU() viết trong Module.
Cứ Copy Function đó vào Module của File nào muốn xài đó là được.
Nhớ là nó chỉ đúng khi dữ liệu thật giống như cấu trúc file mẫu.

 

[Quang_Hải]

Nhột thiệt à nghe!
Lúc trước viết kiểu gì đó có K, sau bỏ đi mà quên xóa. Híc! Vậy mà cũng bị thọt... nhột.
Số 250 là viết thí thí cho xong vậy mà "Chời".
Lỡ bị thọt "gồi", "mần lợi" cho đỡ "quê" một chút.
Ẹc...

Public Function TKDU(Rng As Range, MaCT As Range, TK As Range) As String
Dim Rng1(), Arr(), I As Long, Tem As String
    Rng1 = Rng.Value
ReDim Arr(1 To UBound(Rng1, 1), 1 To 1)
    For I = 1 To UBound(Rng1, 1)
        If Rng(I, 1) = MaCT Then
            If Rng(I, 4) <> TK Then
                Tem = Tem & ", " & Rng(I, 4)
            End If
        End If
    Next I
TKDU = Mid(Tem, 3, Len(Tem) - 2)
End Function

Cho em mạo muội hỏi cái mảng arr() làm chi chi vậy hả anh BaTê? Hic chắc hôm nay đang tê quá hay sao í

 

[Ba Tê]

Cho em mạo muội hỏi cái mảng arr() làm chi chi vậy hả anh BaTê? Hic chắc hôm nay đang tê quá hay sao í

Bữa nay bị "quê" hoài vậy ta.
Sửa lại cách làm mà xóa cái cũ không xong. Lòi ra mấy thằng "đứng chơi dzô dziêng".

Public Function TKDU(Rng As Range, MaCT As Range, TK As Range) As String
Dim Rng1(), I As Long, Tem As String
    Rng1 = Rng.Value
    For I = 1 To UBound(Rng1, 1)
        If Rng(I, 1) = MaCT Then
            If Rng(I, 4) <> TK Then
                Tem = Tem & ", " & Rng(I, 4)
            End If
        End If
    Next I
TKDU = Mid(Tem, 3, Len(Tem) - 2)
End Function

Hổng biết còn "thằng ở không" nào dạo chơi trong code này nữa không đây.
Mắc cỡ quá, mắc chết quá!!!!!
Ec...cho Ec luôn, hổng thèm quánh dấu nặng!

 

[bboy_pro]

mọi người cho mình hỏi thêm liệu hàm này có thể chạy được trong access ko??? có thể dùng access thay thế hẳn cho excel trong việc tính toán dữ liệu ko??? hàm nào access ko có thì cũng có thể tự tạo hàm giống như trong excel phải ko các bạn???