Xin giúp e về tìm kiếm lấy về nhiều giá trị

trungtruc0512 · 17/2/17

phanduc07 đã viết:
@trungtruc0512: Bạn up file lên cho mọi người dễ hình dung nha.

Ah! Các mã A, B, C là liên tục 1 cột nha AC.
Hy vọng các AC giúp mình.

hic1802 · 17/2/17

Chào anh cho e hỏi ngu cái là tại sao e thấy file a có lênh VBA mà vẫn ở dạng excel bình thường nhỉ xls chứ ko phải xlsm???

Ba Tê đã viết:
Thử file này xem.
Muốn tìm cái gì thì nhập vào ô G1.

trungtruc0512 · 18/2/17

Không AC nào quan tâm sao?
Giúp em với.

befaint · 18/2/17

trungtruc0512 đã viết:
Ah! Các mã A, B, C là liên tục 1 cột nha AC.
Hy vọng các AC giúp mình.

Chọn A2:B9, sort A-Z.

trungtruc0512 · 18/2/17

befaint đã viết:
Chọn A2:B9, sort A-Z.

Cám ơn bạn đã quan tâm trả lời.
Mình muốn lấy giá trị dựa vào mã đó cho sheet khác và dữ liệu hàng ngàn dòng mình không thể sort được.
Đây là 1 bài toán giống như dùng hàm index để trả về nhiều giá trị. Nhưng nó chỉ dò mỗi lần 1 mã.
Mình muốn dò hết mã này đến mã khác liên tục.

Không biết có ai giúp mình không?
P/s: Mình đã tìm gần 1 năm rồi.

Ba Tê · 18/2/17

trungtruc0512 đã viết:
Cám ơn bạn đã quan tâm trả lời.
Mình muốn lấy giá trị dựa vào mã đó cho sheet khác và dữ liệu hàng ngàn dòng mình không thể sort được.
Đây là 1 bài toán giống như dùng hàm index để trả về nhiều giá trị. Nhưng nó chỉ dò mỗi lần 1 mã.
Mình muốn dò hết mã này đến mã khác liên tục.

Không biết có ai giúp mình không?
P/s: Mình đã tìm gần 1 năm rồi.

Nếu tìm lâu quá mà không có công thức thì bạn chịu xài VBA không?
Bạn đưa file mà "Mình muốn lấy giá trị dựa vào mã đó cho sheet khác và dữ liệu hàng ngàn dòng " lên thử xem.

trungtruc0512 · 18/2/17

Cám ơn bạn đã quan tâm.

Bạn có thể làm giúp mình dựa vào tập tin đính kèm được không?

Nếu được mình cũng muốn thử. Tại vì dùng index cũng khá chậm.
Cám ơn bạn trước nha.

befaint · 18/2/17

trungtruc0512 đã viết:
Cám ơn bạn đã quan tâm trả lời.
Mình muốn lấy giá trị dựa vào mã đó cho sheet khác và dữ liệu hàng ngàn dòng mình không thể sort được.
Đây là 1 bài toán giống như dùng hàm index để trả về nhiều giá trị. Nhưng nó chỉ dò mỗi lần 1 mã.
Mình muốn dò hết mã này đến mã khác liên tục.

Không biết có ai giúp mình không?
P/s: Mình đã tìm gần 1 năm rồi.

Cái chỗ màu đỏ không cần nêu bởi vì sau khi xem file bài #21 thì tôi biết chắc chắn bạn sẽ kêu tiếp.

Muốn nhanh thì ta vào đề luôn, gửi cái file đang làm thật ấy lên thôi.

Ba Tê · 18/2/17

trungtruc0512 đã viết:
Cám ơn bạn đã quan tâm.

Bạn có thể làm giúp mình dựa vào tập tin đính kèm được không?

Nếu được mình cũng muốn thử. Tại vì dùng index cũng khá chậm.
Cám ơn bạn trước nha.

Nó đây.......................................................................

be_09 · 19/2/17

mjnlove đã viết:
Thật ra ban đầu ý của e là làm thế nào để làm được như sheet 4 (có đính kèm file bên dưới): tức là sắp xếp và liệt kê từng loại mặt hàng theo số hóa đơn, ngày tháng... mn chỉ e với >.<

Tôi thấy bạn nêu "liệt kê từng loại mặt hàng theo số hóa đơn", nhưng trong File của bạn không thấy sheet nào có cột số hóa đơn thì làm sao mà lọc ?????

Thứ 2 bạn cũng cần có 1 sheet làm mẫu hóa đơn để in hóa đơn cho khách hàng xong thì lưu dữ liệu vào sheet theo dõi hoặc khi cần xem hoặc in lại hóa đơn thì gõ số hoặc đơn lọc nó ra tại sheet này.

trungtruc0512 · 19/2/17

Ba Tê đã viết:
Nó đây.......................................................................

Cám ơn bạn rất nhiều nha

Cám ơn các bạn khác cũng đã quan tâm.

Hoàng Nhật Phương · 29/8/18

Xin chào các bạn,
Nhờ các bạn giúp đỡ Oanh Thơ giải quyết trường hợp trong tập tin gửi kèm với ạ.

zou · 29/8/18

Nguyễn Hoàng Oanh Thơ đã viết:
Xin chào các bạn,
Nhờ các bạn giúp đỡ Oanh Thơ giải quyết trường hợp trong tập tin gửi kèm với ạ.

Mình có ý tươngr thêm cột phụ ở sheet DULIEU sau đó lập công thức nối cột sản phẩm và cột giá lại thành 1 từ khóa tìm kiêm

♫ђöล♥ßล†♥†µ♫ · 29/8/18

Nguyễn Hoàng Oanh Thơ đã viết:
Xin chào các bạn,
Nhờ các bạn giúp đỡ Oanh Thơ giải quyết trường hợp trong tập tin gửi kèm với ạ.

Bạn thử cái này xem

PHP:

Sub LocNhieuDK()
    Dim ParkHangSeo As Object, Key As String
    Dim VietNam(), HanQuoc(), I As Long, K As Long
Set ParkHangSeo = CreateObject("Scripting.Dictionary")
With Sheets("Dulieu")
    VietNam = .Range("E2", .Range("E" & Rows.Count).End(3)).Resize(, 19).Value
End With
ReDim HanQuoc(1 To UBound(VietNam, 1), 1 To 5)
For I = 1 To UBound(VietNam, 1)
    Key = VietNam(I, 1) & "@@@" & VietNam(I, 19)
    If Not ParkHangSeo.Exists(Key) Then
        K = K + 1
        ParkHangSeo.Add Key, K
        HanQuoc(K, 1) = K
        HanQuoc(K, 2) = VietNam(I, 1)
        HanQuoc(K, 3) = VietNam(I, 18)
        HanQuoc(K, 4) = VietNam(I, 19)
        HanQuoc(K, 5) = "=RC[-2]*RC[-1]"
    Else
        HanQuoc(ParkHangSeo.Item(Key), 3) = HanQuoc(ParkHangSeo.Item(Key), 3) + VietNam(I, 18)
    End If
Next I
With Sheets("Ketqua")
    .Range("H3").Resize(K, 5) = HanQuoc
End With
Set ParkHangSeo = Nothing
End Sub

zou · 29/8/18

♫ђöล♥ßล†♥†µ♫ đã viết:

Bạn thử cái này xem

PHP:

Sub LocNhieuDK()
    Dim ParkHangSeo As Object, Key As String
    Dim VietNam(), HanQuoc(), I As Long, K As Long
Set ParkHangSeo = CreateObject("Scripting.Dictionary")
With Sheets("Dulieu")
    VietNam = .Range("E2", .Range("E" & Rows.Count).End(3)).Resize(, 19).Value
End With
ReDim HanQuoc(1 To UBound(VietNam, 1), 1 To 5)
For I = 1 To UBound(VietNam, 1)
    Key = VietNam(I, 1) & "@@@" & VietNam(I, 19)
    If Not ParkHangSeo.Exists(Key) Then
        K = K + 1
        ParkHangSeo.Add Key, K
        HanQuoc(K, 1) = K
        HanQuoc(K, 2) = VietNam(I, 1)
        HanQuoc(K, 3) = VietNam(I, 18)
        HanQuoc(K, 4) = VietNam(I, 19)
        HanQuoc(K, 5) = "=RC[-2]*RC[-1]"
    Else
        HanQuoc(ParkHangSeo.Item(Key), 3) = HanQuoc(ParkHangSeo.Item(Key), 3) + VietNam(I, 18)
    End If
Next I
With Sheets("Ketqua")
    .Range("H3").Resize(K, 5) = HanQuoc
End With
Set ParkHangSeo = Nothing
End Sub

Kết quả cuối cùng trả về HanQuoc kìa, không biết kết quả này là thắng hay thua nhỉ

♫ђöล♥ßล†♥†µ♫ · 29/8/18

zou đã viết:
Kết quả cuối cùng trả về HanQuoc kìa, không biết kết quả này là thắng hay thua nhỉ

Có cái này rùi mà

Mã:

ParkHangSeo = Nothing

befaint · 29/8/18

Thấy bài #32 và #34 kết quả khác nhau (từ No. = 62).

Hoàng Nhật Phương · 29/8/18

Kết quả đúng ý mình rồi, c

♫ђöล♥ßล†♥†µ♫ đã viết:

Bạn thử cái này xem

PHP:

Sub LocNhieuDK()
    Dim ParkHangSeo As Object, Key As String
    Dim VietNam(), HanQuoc(), I As Long, K As Long
Set ParkHangSeo = CreateObject("Scripting.Dictionary")
With Sheets("Dulieu")
    VietNam = .Range("E2", .Range("E" & Rows.Count).End(3)).Resize(, 19).Value
End With
ReDim HanQuoc(1 To UBound(VietNam, 1), 1 To 5)
For I = 1 To UBound(VietNam, 1)
    Key = VietNam(I, 1) & "@@@" & VietNam(I, 19)
    If Not ParkHangSeo.Exists(Key) Then
        K = K + 1
        ParkHangSeo.Add Key, K
        HanQuoc(K, 1) = K
        HanQuoc(K, 2) = VietNam(I, 1)
        HanQuoc(K, 3) = VietNam(I, 18)
        HanQuoc(K, 4) = VietNam(I, 19)
        HanQuoc(K, 5) = "=RC[-2]*RC[-1]"
    Else
        HanQuoc(ParkHangSeo.Item(Key), 3) = HanQuoc(ParkHangSeo.Item(Key), 3) + VietNam(I, 18)
    End If
Next I
With Sheets("Ketqua")
    .Range("H3").Resize(K, 5) = HanQuoc
End With
Set ParkHangSeo = Nothing
End Sub

Kết quả đúng ý mình rồi, cảm ơn bạn nhiêu.
Bài này có bạn nào làm được bằng công thức cho mình tham khảo với.

hocexcel_1991 · 29/8/18

Nguyễn Hoàng Oanh Thơ đã viết:
Kết quả đúng ý mình rồi, c

Kết quả đúng ý mình rồi, cảm ơn bạn nhiêu.
Bài này có bạn nào làm được bằng công thức cho mình tham khảo với.

Bajn tham khảo nhé

Phan Thế Hiệp · 29/8/18

Nguyễn Hoàng Oanh Thơ đã viết:
Bài này có bạn nào làm được bằng công thức cho mình tham khảo với.

Với dữ liệu hơn 4000 dòng, nên nghĩ đến công cụ Pivot Table với một chút chỉnh trang cho dữ liệu.
Xem file kèm.

Thân

Xin giúp e về tìm kiếm lấy về nhiều giá trị

Thành viên mới

File đính kèm

Thành viên tiêu biểu

Thành viên mới

|||||||||||||

Thành viên mới

Cạo Rồi Khỏi Gội

Thành viên mới

|||||||||||||

Cạo Rồi Khỏi Gội

File đính kèm

Biên Hòa, Đồng Nai

Thành viên mới

Thành viên gắn bó

File đính kèm

Thành viên mới

Thành viên tiêu biểu

Thành viên mới

Thành viên tiêu biểu

|||||||||||||

Thành viên gắn bó

Bắt đầu học Excel

File đính kèm

-⍟-

File đính kèm

Facebook

Group