Hỏi đáp vấn về dò tìm nhiều thông tin. (1 người xem)

[xuantamc6]

Hi mọi người. Thiệt là ngại khi dạo này em có quá nhiều thắc mắc mà không tự giải quyết được. Mong mọi người thông cảm và sẻ chia.
Hiện tại, em đang lập một file exel quản lý việc theo dõi xuất kho vật tư ra cổng. Đặc trưng bên em là sẽ xét duyệt trên issue. Các dự án hay công trình sẽ được đưa vào một issue để theo dõi đề xuất và xuất kho (issue sẽ không có sự trùng lặp). Và để duyệt thì cần kiểm tra chi tiết.
Em lập file, với mong muốn có thể theo dõi được quá trình này. Em đã lập được để theo dõi đề xuất vật tư của 1 issue. Bên cạnh đó phải lập thêm để theo dõi phiếu xuất kho dựa trên đề xuất vật tư. Em nghĩ mãi không ra cách nào hết. Mọi người hỗ trợ giúp em.
Em xin trình bảy thêm ý đồ của em được rõ hơn một chút:
Trong sheet kiểm tra chi tiết em dò tìm dựa trên issue. Khi đó nó sẽ ra được mã vật tư, tên vật tư, đơn vị tính, số lượng, đơn giá thành tiền. Và bây giờ em muốn đối chiếu phiếu xuất kho với đề xuất vật tư cũng dựa vào issue, dựa vào phiếu xuất kho và dựa vào mã vật tư. Có thể 1 issue sẽ có nhiều phiếu xuất kho, nên em muốn phân ra hai trường hợp:
- nếu không chọn phiếu xuất kho thì nó sẽ dò tìm tất cả mã vật tư trong toàn bộ issue dựa vào sheet nhatkychung_PXK.
- Còn nếu chọn phiếu xuất kho thì nó sẽ dò tìm những mã vật tư của phiếu xuất kho đó, dựa trên phiếu xuất kho và issue dựa vào sheet nhatkychung_PXK.
Em đã đưa lên ví dụ cụ thể (Link: https://www.mediafire.com/?gck3m98io3q7nk5 )để nhờ mọi người hỗ trợ giúp em. Em chân thành cảm ơn.
https://www.mediafire.com/?gck3m98io3q7nk5

 

[xuantamc6]

admin ơi. heo mi, heo mi

 

[chuot0106]

admin ơi. heo mi, heo mi

Chắc là phải đợi người nước ngoài vào giúp bạn thôi!

 

[xuantamc6]

Chắc là phải đợi người nước ngoài vào giúp bạn thôi!

Em chỉ tính nói cho vui thôi í mà. Chứ thực ra em có biết gì về tiếng anh đâu .

 

[Let'GâuGâu]

Em chỉ tính nói cho vui thôi í mà. Chứ thực ra em có biết gì về tiếng anh đâu .

tôi rất thích nói giỡn chơi,
file của bạn mới có tí số liệu mà nó chạy chậm rù rối,,thêm nữa chắc là khỏi chạy luôn quá

 

[xuantamc6]

tôi rất thích nói giỡn chơi,
file của bạn mới có tí số liệu mà nó chạy chậm rù rối,,thêm nữa chắc là khỏi chạy luôn quá

Em cũng thấy như vậy, không sử dụng macro với hàm cũng không nhiều mà không hiểu sao chậm thế. Em cứ tưởng bác hỗ trợ giúp em xong rồi chớ )

 

[xuantamc6]

À bác Let'GâuGâu ơi, em coi lại mới thấy bác làm cho em rồi. Nhưng ý của em là như thế này. Khi em bấm mã issue thì nó sẽ short ra tất cả các vật tư trong sheet De Xuat Vat Tu. ở trong những cột so sánh em có chia ra hai cột "ĐXVT" (Đề xuất vật tư) và "PXK" (Phiếu xuất kho). Chướng ngại vật hiện tại là mình làm sao để khi không chọn phiếu xuất kho thì nó sẽ dò tìm tất cả các vật tư liên quan đến issue. còn nếu chọn phiếu xuất kho thì nó chỉ dò tìm mã vật tư có trong phiếu xuất kho đó mà thôi. Nhờ bác hỗ trợ lại giúp em với ạ. Em cám ơn.

 

[Let'GâuGâu]

À bác Let'GâuGâu ơi, em coi lại mới thấy bác làm cho em rồi. Nhưng ý của em là như thế này. Khi em bấm mã issue thì nó sẽ short ra tất cả các vật tư trong sheet De Xuat Vat Tu. ở trong những cột so sánh em có chia ra hai cột "ĐXVT" (Đề xuất vật tư) và "PXK" (Phiếu xuất kho). Chướng ngại vật hiện tại là mình làm sao để khi không chọn phiếu xuất kho thì nó sẽ dò tìm tất cả các vật tư liên quan đến issue. còn nếu chọn phiếu xuất kho thì nó chỉ dò tìm mã vật tư có trong phiếu xuất kho đó mà thôi. Nhờ bác hỗ trợ lại giúp em với ạ. Em cám ơn.

chạy bằng code nha
khi mở file nhớ enable macro
bạn mà dùng cthức mảng, khi số liệu nhiều lên, tôi đảm bảo nó ko chạy nổi.
àh, quên, bạn cứ nhập vào C7 hoặc C9 thì macro sẻ chạy

 

[xuantamc6]

còn nếu như ở sheet "Ktra chi tiet" em lập công thức dò tìm 2 điều kiện dựa vào issue và mã vật tư để ra được số lượng của mã vật tư của tất các các phiếu xuất kho có mặt trong sheet "Nhat ky chung_PXK". Nhưng trong quá trình sẽ có sự trùng lặp của mã vật tư và em muốn dò tổng số lượng của các mã vật tư đó thì phải bổ sung như thế nào nữa bác ơi.
file em lập là ntn:

 

[xuantamc6]

còn nếu như ở sheet "Ktra chi tiet" em lập công thức dò tìm 2 điều kiện dựa vào issue và mã vật tư để ra được số lượng của mã vật tư của tất các các phiếu xuất kho có mặt trong sheet "Nhat ky chung_PXK". Nhưng trong quá trình sẽ có sự trùng lặp của mã vật tư và em muốn dò tổng số lượng của các mã vật tư đó thì phải bổ sung như thế nào nữa bác ơi.
file em lập là ntn:http://www.mediafire.com/download/gck3m98io3q7nk5/00._Quan_ly_xuat_khac.rar

 

[Let'GâuGâu]

còn nếu như ở sheet "Ktra chi tiet" em lập công thức dò tìm 2 điều kiện dựa vào issue và mã vật tư để ra được số lượng của mã vật tư của tất các các phiếu xuất kho có mặt trong sheet "Nhat ky chung_PXK". Nhưng trong quá trình sẽ có sự trùng lặp của mã vật tư và em muốn dò tổng số lượng của các mã vật tư đó thì phải bổ sung như thế nào nữa bác ơi.
file em lập là ntn:http://www.mediafire.com/download/gck3m98io3q7nk5/00._Quan_ly_xuat_khac.rar

cthức thì tôi chịu thua, mở file của bạn lên nó cứ tò tè riết, nên chẳng làm gì được
ở bài 8 thì tôi chưa có cộng dồn, trong trường hợp có nhiều hơn một mã vật tư ở sheet pxk.
nếu bạn muốn theo hướng đó thì tôi chỉnh lại cho bạn
còn bạn muốn theo hướng cthức thì đợi cao thủ giúp
tôi chịu thua........kakak

 

[xuantamc6]

cthức thì tôi chịu thua, mở file của bạn lên nó cứ tò tè riết, nên chẳng làm gì được
ở bài 8 thì tôi chưa có cộng dồn, trong trường hợp có nhiều hơn một mã vật tư ở sheet pxk.
nếu bạn muốn theo hướng đó thì tôi chỉnh lại cho bạn
còn bạn muốn theo hướng cthức thì đợi cao thủ giúp
tôi chịu thua........kakak

Dạ nhờ bác chỉnh lại giúp em với ạ. Trường hợp nếu mình không chọn phiếu xuất kho của issue, thì em muốn nó vẫn ra số lượng dò tìm tất cả các phiếu xuất kho đó bác ơi. Em cám ơn ạ

 

[Let'GâuGâu]

Dạ nhờ bác chỉnh lại giúp em với ạ. Trường hợp nếu mình không chọn phiếu xuất kho của issue, thì em muốn nó vẫn ra số lượng dò tìm tất cả các phiếu xuất kho đó bác ơi. Em cám ơn ạ

của bạn đây, bạn xem được chưa nha

 

[xuantamc6]

của bạn đây, bạn xem được chưa nha

Em cám ơn bác. Có một vấn đề nữa bác thử xem chỉnh lại giúp em được không ạ. Nếu như mình bỏ trống ô C9 phiếu xuất kho thì nó vẫn tự động dò tìm tất cả các mã vật tư (đã hiện ra ở phần đề xuất vật tư) của tất cả các phiếu xuất kho của một issue.

 

[Let'GâuGâu]

Em cám ơn bác. Có một vấn đề nữa bác thử xem chỉnh lại giúp em được không ạ. Nếu như mình bỏ trống ô C9 phiếu xuất kho thì nó vẫn tự động dò tìm tất cả các mã vật tư (đã hiện ra ở phần đề xuất vật tư) của tất cả các phiếu xuất kho của một issue.

tôi không hiểu ý bạn.
hiện tại nó làm việc như sau:
1- nếu ô C9 bỏ trống (tức kho có phiếu xuất kho), thì nó lấy data ở sheet "de xuat vat tu", với key là mã "issue" ở C7. nếu có cùng mã vật tư thì cộng dồn lại một
2- khi có số phiếu xuất kho (C9), thì nó lấy data ở sheet "nhat ky chung_pxk" với key là mã "issue" và "phiếu xuất kho". mã vật trùng thì cộng dồn lại một. đồng thời quan sheet" de xuat vat tu" lấy số lượng mà bạn đã đề xuất bên đó

bạn kiểm tra xem phải vậy không? hiện tại bạn bỏ trống C9, nó sẻ lấy toàn bộ bên sheet vật tư cho bạn (với mã issue), thành ra tôi không hiểu ý bạn là gì
===================
bạn xem thử vậy xem, có fải là ý bạn ko

 

[xuantamc6]

tôi không hiểu ý bạn.
hiện tại nó làm việc như sau:
1- nếu ô C9 bỏ trống (tức kho có phiếu xuất kho), thì nó lấy data ở sheet "de xuat vat tu", với key là mã "issue" ở C7. nếu có cùng mã vật tư thì cộng dồn lại một
2- khi có số phiếu xuất kho (C9), thì nó lấy data ở sheet "nhat ky chung_pxk" với key là mã "issue" và "phiếu xuất kho". mã vật trùng thì cộng dồn lại một. đồng thời quan sheet" de xuat vat tu" lấy số lượng mà bạn đã đề xuất bên đó

bạn kiểm tra xem phải vậy không? hiện tại bạn bỏ trống C9, nó sẻ lấy toàn bộ bên sheet vật tư cho bạn (với mã issue), thành ra tôi không hiểu ý bạn là gì
===================
bạn xem thử vậy xem, có fải là ý bạn ko

Hai ý của bác làm thì đã quá hợp lý với em rồi. Còn một ý nữa là nếu không chọn phiếu xuất kho (C9) thì dữ liệu ở các cột (PXK) trong sheet "Ktra chi tiet" vẫn được dò tìm ra. ý của em là như thế ạ.
Cám ơn bác vì tất cả.

 

[Let'GâuGâu]

Hai ý của bác làm thì đã quá hợp lý với em rồi. Còn một ý nữa là nếu không chọn phiếu xuất kho (C9) thì dữ liệu ở các cột (PXK) trong sheet "Ktra chi tiet" vẫn được dò tìm ra. ý của em là như thế ạ.
Cám ơn bác vì tất cả.

rồi kiểm tra lại nha,,,,khó ăn tiền bạn quá.......kakakak

 

[xuantamc6]

và đây là kết quả mà em đang mong chờ bấy lâu nay. Cám ơn bác rất nhiều. Cám ơn bác.

 

[xuantamc6]

em vẫn không hiểu là cầu hình máy tính ở cty em mạnh như thế mà chạy không được. Còn cái lap của em ở nhà yếu hơn thì lúc tối vẫn chạy vù vù. hây za.

 

[Let'GâuGâu]

em vẫn không hiểu là cầu hình máy tính ở cty em mạnh như thế mà chạy không được. Còn cái lap của em ở nhà yếu hơn thì lúc tối vẫn chạy vù vù. hây za.

nó có báo lổi gì ko? hay im ru bà rù?
mới cò bi số liệu thì chưa ăn thua gì với tốc độ đâu

có thể khai báo thiếu biến máy bạn chưa cho chạy, hoặc bị lổi cái sự kiện work-sheet change bị, bạn thử cho chạy sub thử xem được không (nhấn Alt F8, thấy cái modul, cho nó chạy thử)

 

[xuantamc6]

Em để ý lại mới thấy là nó load rất lâu, nhưng vẫn không ra số liệu gì hết. Do máy hay sao ấy bác, chứ mấy máy khác chạy ngon ơ luôn.

 

[xuantamc6]

Hôm trước em thấy giaiphapexcel mình có bán tài liệu học VBA, macro ở bên quận Tân Bình. Có bác nào biết, cho em xin thông tin liên hệ với được không ạ? Em cám ơn!
Chúc cả nhà cuối tuần vui vẻ.

 

[phucbugis]

Hôm trước em thấy giaiphapexcel mình có bán tài liệu học VBA, macro ở bên quận Tân Bình. Có bác nào biết, cho em xin thông tin liên hệ với được không ạ? Em cám ơn!
Chúc cả nhà cuối tuần vui vẻ.

lúc trước mình có mua quyển sách này "VBA trong Excel - Cải thiện và tăng tốc" - Năm 2013

bạn vào Link đó sẽ thấy địa chỉ:


và ở đó cũng có bán quyển: "Lập trình VBA trong Excel cho người mới bắt đầu"

 

[xuantamc6]

Cám ơn bác. Em đã nhận được thông tin.

 

[xuantamc6]

Nếu mình muốn dò tìm một dữ liệu có thể nó nằm 1 trong hai sheet khác nhau thì kết hợp công thức như thế nào mọi người nhỉ?

 

[chuot0106]

Nếu mình muốn dò tìm một dữ liệu có thể nó nằm 1 trong hai sheet khác nhau thì kết hợp công thức như thế nào mọi người nhỉ?

Đưa file nên là xong ngay!

 

[xuantamc6]

Dạ. Em xin gửi file lên. Nhờ mọi người hỗ trợ giúp em.
Em cám ơn.
P/s: Trường hợp của em là không thể gộp lại một sheet để rồi dò tìm được ạ.

 

[chuot0106]

Dạ. Em xin gửi file lên. Nhờ mọi người hỗ trợ giúp em.
Em cám ơn.
P/s: Trường hợp của em là không thể gộp lại một sheet để rồi dò tìm được ạ.

Của bạn đây, Test xong hồi âm lại cho tôi.

 

[xuantamc6]

Cám ơn bác chuot0106 đã giúp em. Em sẽ thực hành ngay và luôn vào nhu cầu hiện tại. Một lần nữa em xin cảm ơn.

 

[xuantamc6]

Em đã cài lại win, và sau một quá trình triển khai thực hiện việc theo dõi trên file mà bác Let'GâuGâu giúp em đã chạy thành công mỹ mãn (đấy là theo quan điểm của em). Bên cạnh đó vẫn còn 1 chi tiết nhỏ em muốn khắc phục mong bác hỗ trợ luôn giúp em với ạ. Trong sheet "Ktra chi tiet" tại ô C9 "Phiếu xuất kho" bác có cách nào làm cho nó loại bỏ những phiếu trùng nhau và khi đó chỉ thể hiện 1 phiếu duy nhất (giống như chúng ta filter ấy ạ). Em cám ơn!

 

[Let'GâuGâu]

Em đã cài lại win, và sau một quá trình triển khai thực hiện việc theo dõi trên file mà bác Let'GâuGâu giúp em đã chạy thành công mỹ mãn (đấy là theo quan điểm của em). Bên cạnh đó vẫn còn 1 chi tiết nhỏ em muốn khắc phục mong bác hỗ trợ luôn giúp em với ạ. Trong sheet "Ktra chi tiet" tại ô C9 "Phiếu xuất kho" bác có cách nào làm cho nó loại bỏ những phiếu trùng nhau và khi đó chỉ thể hiện 1 phiếu duy nhất (giống như chúng ta filter ấy ạ). Em cám ơn!

chép thêm đoạn code này vào sheet5 ("ktra chi titet")

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo thoat
Application.EnableEvents = False

   
If Not Intersect(Target, [c9]) Is Nothing Then naplist

thoat:
Application.EnableEvents = True
End Sub

chép cái này vào module

Sub naplist()
On Error GoTo thoat
Application.EnableEvents = False

Dim pxk As Variant, dmuc(), i, j, k As Long, dic As Object, list As String

With Sheet4
    pxk = .[b9].Resize(.[b20000].End(3).Row).Value
End With
Set dic = CreateObject("Scripting.Dictionary")

For i = 1 To UBound(pxk)
    If Not dic.exists(pxk(i, 1)) Then
        k = k + 1
        dic.Add pxk(i, 1), ""
        ReDim Preserve dmuc(1 To k)
        dmuc(k) = pxk(i, 1)
    End If
Next

If k Then
list = Join(dmuc, ",")
    With Sheet5.[c9].Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=list
    End With
End If

thoat:
Application.EnableEvents = True
Erase pxk
Set dic = Nothing
End Sub

xoá cái mane pxk đi cho nhẹ máy
============
p/s có muốn lăn con chuột (wheel) trên validation list không?

 

[xuantamc6]

Bác coppy luôn giúp em với được không ạ. Em coppy về past vào mà nó cứ báo lỗi không chạy được ạ. Em cám ơn ạ.
À bác xóa luôn cái mane pxk với giúp cho em lăn con chuột (wheel) trên validation list nhé. Một lần nữa cám ơn bác

 

[Let'GâuGâu]

Bác coppy luôn giúp em với được không ạ. Em coppy về past vào mà nó cứ báo lỗi không chạy được ạ. Em cám ơn ạ.
À bác xóa luôn cái mane pxk với giúp cho em lăn con chuột (wheel) trên validation list nhé. Một lần nữa cám ơn bác

dạo này tôi ít lên diễn đàn với không đọc lại nên ko biết bạn hỏi..hihihihi
bạn xem file nha,
nếu không có xài cái wheel scroll thì bỏ cái module 3 đi

 

[xuantamc6]

dạo này tôi ít lên diễn đàn với không đọc lại nên ko biết bạn hỏi..hihihihi
bạn xem file nha,
nếu không có xài cái wheel scroll thì bỏ cái module 3 đi

Cám ơn BÁC Let'GâuGâu nhé