Dò tìm có điều kiện và gom nội dung lại

[locbanh]

Mình cần các bạn giúp đỡ mình việc này:

Mình có 2 bảng

bảng 1: Gồm có
-acount
-ten kh
-loai
-hoa don
-tien

bảng 2 : Gồm có
-acount (gôm lại những acount giống nhau)
-ten kh (hiển thi tên kh
-ghi chu (gôm lại như mẫu ô c26)
-tong hd (đếm có bao nhieu "hoa don" cua "acount" này)

để dể hình dung mình có đính kèm file

 

[Let'GâuGâu]

Mình cần các bạn giúp đỡ mình việc này:

Mình có 2 bảng

bảng 1: Gồm có
-acount
-ten kh
-loai
-hoa don
-tien

bảng 2 : Gồm có
-acount (gôm lại những acount giống nhau)
-ten kh (hiển thi tên kh
-ghi chu (gôm lại như mẫu ô c26)
-tong hd (đếm có bao nhieu "hoa don" cua "acount" này)

để dể hình dung mình có đính kèm file

fải xài vba thôi bạn, các hàm thông thường ko nối lại kiểu đó được đâu

Function Ghichu(tim, rng As Range)
    Dim sarr As Variant, kq()
    sarr = rng.Value
    For i = 1 To UBound(sarr)
        If sarr(i, 1) = tim.Value Then
            k = k + 1
            ReDim Preserve kq(1 To k)
            kq(k) = sarr(i, 3) & " (" & sarr(i, 4) & " , " & sarr(i, 5) & " )"
        End If
    Next
    
    If k Then Ghichu = Join(kq, Chr(10))

End Function

 

[locbanh]

MÌNH KHÔNG BIẾT VBA LÀ GÌ, BẠN CÓ THỂ CHỈ CHO MÌNH ĐƯỢCV KHÔNG
MÌNH THẤY MẤY CÔNG THỨC BẠN VIỆT SAO GIỐNG CODE c# HAY PHP WA VẬY?????????

 

[Let'GâuGâu]

MÌNH KHÔNG BIẾT VBA LÀ GÌ, BẠN CÓ THỂ CHỈ CHO MÌNH ĐƯỢCV KHÔNG
MÌNH THẤY MẤY CÔNG THỨC BẠN VIỆT SAO GIỐNG CODE c# HAY PHP WA VẬY?????????

tôi mà biết viết mấy ngôn ngữ đó tôi chết liền...........hịchic...........
tôi làm rồi, bạn chỉ việc sử dụng thôi.
bạn tải phải về, nếu xài 2003 thì vào tool--->macro--->security--->hạ xuống mức med hoặc low
hàm có cú pháp

ghichu=(gia tri tim, vung tim)

vùng tìm có 5 cột nha
vi dụ trong bài bạn là

C26=ghichu($A26,$A$3:$E$19)

vậy thôi

 

[locbanh]

Mình hiểu mình củng chết liền, bạn có thể nói rỏ rỏ hơn được không, mình đang sử dụng ecxel 2007, trong phần view cũng co marco nhưng không giống như bạn chỉ

 

[locbanh]

Thanks bạn mình đã hiểu vba là gì rồi, nhờ bạn mà mình biết thêm

 

[locbanh]

Mình cũng tìm hiểu vba, nhưng làm không được????????, bạn có thể chỉ minh được không

 

[Let'GâuGâu]

Mình cũng tìm hiểu vba, nhưng làm không được????????, bạn có thể chỉ minh được không

tôi biết chỉ bạn cái gì bây giờ?, nếu bạn ko biết vba thì bạn chỉ việc áp dụng
* áp dụng tại file hiện tại thì bạn chỉ việc mở file ra, rồi enable macro (ex2007 trở lên).
* rồi gõ cthức vào, cú pháp thì như cell C26 tôi đã làm cho bạn
==============
*còn bạn muốn áp dụng qua file khác, thì mở 2 file cùng lúc (file tôi đã làm và file của bạn)
*nhấn Alt F11 để mở cửa sổ vba,kéo cái module ở file này sang file của bạn (kéo thả như bạn làm với folder ở window explorer)
rồi sử dụng như file cũ vậy thôi (bạn cũng có thể sử dụng add in, nhưng chừng nào bạn rành vba thì mới tính)
================
còn bạn muốn tìm hiểu code, thì fải tự học thôi, cái này tôi ko thể chỉ bạn được
bạn thường xuyên tham gia diễn đàn, và với tinh thần học hỏi bạn sẻ học nhanh thôi

chúc bạn thành công

 

[locbanh]

mình lấy file function về ô C26 nó hiện #NAME?. Với lại mới tìm hiểu Macro VBA không rành cho lắm.
Bạn có thể cho mình số điện thoại để dễ liên lạc được không.
số điện thoại của minh là : 0934155134 Mình tên là Lộc. Thanks bạn trước nha

 

[Let'GâuGâu]

mình lấy file function về ô C26 nó hiện #NAME?. Với lại mới tìm hiểu Macro VBA không rành cho lắm.
Bạn có thể cho mình số điện thoại để dễ liên lạc được không.
số điện thoại của minh là : 0934155134 Mình tên là Lộc. Thanks bạn trước nha

bạn tải file về nó có hiện một cái thanh màu vàng, bạn đã enable macro chưa?
nếu rồi thì tôi ko hiểu tại sao nữa, đợi cao thủ giúp bạn vậy.
==========
trả lời cho bạn xong cả tháng sau bạn mới quay lại hỏinhát ngừng như vậy tôi cũng bị mất hứng rồi..............

 

[locbanh]

Sorry mình rất bận ,nên lâu lâu mới lên được, làm bạn đợi lâu,, mình muốn file lên ở đâu vậy bạn, để bạn làm giúp mình luôn

 

[locbanh]

MÌnh muốn gửi lại file cho bạn m nhưng không biết làm sao, trong khung trả lởi nhanh không có insert file. mình làm rất nhiều nên lâu lâu mới lên, thành thật xin lỗi

 

[locbanh]

mình khong biết úp file lên chỗ nào nè, để bạn kiểm tra giùm mình?

 

[locbanh]

ít sử dung internet, nên .....

Function ghichu(tim, rng As Range)
Dim sarr As Variant, kq()
sarr = rng.Value
For i = 1 To UBound(sarr)
If sarr(i, 16) = tim.Value Then
k = k + 1
ReDim Preserve kq(1 To k)
kq(k) = sarr(i, 16) & " ( STT:" & sarr(i, 1) & " , " & sarr(i, 17) & " )"
End If
Next

If k Then ghichu = Join(kq, Chr(10))

End Function


mình muốn xuất hiện như sau Sheet congthuc ô T2 xuất hiện là : RE-PAYMENT (118 ) ,ROLLOVER ( 210 )
nhưng làm không được mình viết công thức như sau t2 =ghichu(E2,FILE_TONG_CT!$A$2:$S$2000)

 

[Ba Tê]

mình khong biết úp file lên chỗ nào nè, để bạn kiểm tra giùm mình?

Dưới khung trả lời nhanh có nút Đổi Sang Khung Lớn, Bấm vào đó rồi tìm chỗ Tải File Từ Máy, chọn file trong máy tính của bạn, bấm nút tải lên để đính kèm file, đóng khung này.
Nêu rõ yêu cầu và kết quả mẫu muốn có trong file luôn cho dễ hiểu.

 

[locbanh]

sao gủi file đính kèm hoài mà được vậy bạn, bạn có thể cho điện thoại để dể liên lạc không!

 

[locbanh]

Sorry hiêu rồi , tải vì file lớn quá, tại vì mình muốn gửi gấp nên quân xem lại file hihihi

 

[Ba Tê]

sao gủi file đính kèm hoài mà được vậy bạn, bạn có thể cho điện thoại để dể liên lạc không!

Nén file lại cho dung lượng nhỏ lại, làm theo bài #15 bên trên mà không được nữa thì gởi vào đây tôi tải lên dùm cho:
-----------
Hic!
Đã gởi bài được rồi, tôi xóa địa chỉ email của tôi.
----------------
Bạn muốn trao đổi với người nào thì bấm nút trả lời với trích dẫn dưới bài của người đó.
Bạn viết trống không chẳng ai biết bạn muốn nói đến ai, bài nào?

 

[locbanh]

Nén file lại cho dung lượng nhỏ lại, làm theo bài #15 bên trên mà không được nữa thì gởi vào đây tôi tải lên dùm cho:
-----------
Hic!
Đã gởi bài được rồi, tôi xóa địa chỉ email của tôi.
----------------
Bạn muốn trao đổi với người nào thì bấm nút trả lời với trích dẫn dưới bài của người đó.
Bạn viết trống không chẳng ai biết bạn muốn nói đến ai, bài nào?[/QUOTE

Bạn không nói mình cũng không biết, cám ơn bạn nhiều.để mỉnh gửi lại lân nữa nha


Module1

Function ghichu(tim, rng As Range)
Dim sarr As Variant, kq()
sarr = rng.Value
For i = 1 To UBound(sarr)
If sarr(i, 16) = tim.Value Then
k = k + 1
ReDim Preserve kq(1 To k)
kq(k) = sarr(i, 16) & " ( STT:" & sarr(i, 1) & " , " & sarr(i, 17) & " )"
End If
Next

If k Then ghichu = Join(kq, Chr(10))

End Function

mình muốn xuất hiện như sau Sheet congthuc ô T2 = ( STT, NGAY)
xuất hiện là : RE-PAYMENT (118 ,18/04/2014) ,ROLLOVER ( 210 ,18/04/2014)
công thức như sau t2 =ghichu(E2,FILE_TONG_CT!$A$2:$S$2000), nhưng làm hông ra ?????

 

[Ba Tê]

Bạn không nói mình cũng không biết, cám ơn bạn nhiều.để mỉnh gửi lại lân nữa nha


Module1

Function ghichu(tim, rng As Range)
Dim sarr As Variant, kq()
sarr = rng.Value
For i = 1 To UBound(sarr)
If sarr(i, 16) = tim.Value Then
k = k + 1
ReDim Preserve kq(1 To k)
kq(k) = sarr(i, 16) & " ( STT:" & sarr(i, 1) & " , " & sarr(i, 17) & " )"
End If
Next

If k Then ghichu = Join(kq, Chr(10))

End Function


mình muốn xuất hiện như sau Sheet congthuc ô T2 xuất hiện là : RE-PAYMENT (118 ) ,ROLLOVER ( 210 )
công thức như sau t2 =ghichu(E2,FILE_TONG_CT!$A$2:$S$2000), nhưng làm hông ra ?????

Dùng Function này:
[GPECODE=vb]Function GPE(Ma, Rng As Range, Ghichu As Range, STT As Range) As String
Dim Arr1(), Arr2(), Arr3(), I As Long
Arr1 = Rng.Value: Arr2 = Ghichu.Value: Arr3 = STT.Value
For I = 1 To UBound(Arr1, 1)
If Arr1(I, 1) = Ma Then
GPE = GPE & Arr2(I, 1) & "(" & Arr3(I, 1) & "); "
End If
Next I
GPE = Left(GPE, Len(GPE) - 2)
End Function[/GPECODE]
T5=GPE(E5;FILE_TONG_CT!$E$2:$E$1380;FILE_TONG_CT!$P$2:$P$1380;FILE_TONG_CT!$A$2:$A$1380)
Đã xài VBA mà sao không dùng luôn 1 Sub lấy luôn dữ liệu qua mà dùng công thức cho từng ô vậy ta?