Kết quả tìm kiếm

Cảm ơn nhiều, file rất bổ ích.

Từ lâu em đã suy nghĩ tại sao Bác Ndu chưa làm Smod?, nay chúc bác luôn mạnh khỏe, hỗ trợ nhiều hơn nữa cho GPE và cứ khi nào nhậu xong lại tăng thêm một màu nhé.

Cảm ơn đại gia đình GPE; GPE đã có ảnh hưởng lớn đến niềm đam mê, công việc và cuộc sống của tôi. Tôi yêu GPE.

Chúc mừng anh. Chúc anh sức khỏe, thành đạt và tiếp tục có nhiều đóng góp cho diễn đàn.

Chúc mừng sinh nhật Thầy. Chúc Thầy sức khỏe, hạnh phúc và thành đạt.

Vấn đề này nói nhiều trên diễn đàn rồi, bạn sử dụng chức năng tìm kiếm của diễn đàn nhé. Nếu chưa thành thạo bạn có thể dùng chức năng Autofilter sẵn có của Excel để lọc.

Bạn tham khảo link này: http://www.giaiphapexcel.com/forum/showthread.php?12615-Gi%C3%BAp-v%E1%BB%81-Macro-in-phi%E1%BA%BFu-giao-h%C3%A0ng&p=90681#post90681

Một cảm giác vui, lâng lâng khi được nhìn thấy hình ảnh những thành viên mà mình ngưỡng mộ lâu nay. Hy vọng có dịp sẽ được gặp các anh và chụp chung hình. Chúc các bác, các anh, các chị mạnh khỏe, thành đạt và tiếp tục đưa GPE trở thành diễn đàn phát triển bền vững.

Dù không được tham dự buổi sinh nhật lần thứ 6 nhưng tôi muốn nói rằng: "Cảm ơn GPE đã đem lại cho tôi niềm say mê trong công việc. Tôi tự hào vì là thành viên GPE, tôi yêu GPE. Xin chúc cho GPE ngày một phát triển bền vững”.

Chúc mừng sinh nhật Bác. Chúc bác luôn mạnh khỏe ,vui vẻ và gặp nhiều may mắn.

Tôi làm theo hướng dẫn của Anh Bate thấy không phát sinh lỗi như bạn nói. Bạn kiểm tra lại xem sao.

Bạn có thể nói rõ hơn mục đích bạn cần xử lý giữa 02 file trên được không? Theo tôi nếu bạn nói rõ và cụ thể hơn thì có thể nhờ Các anh Ndu, concogia, Bate...là những người am hiểu về Dic giúp cho, chứ tôi thấy bạn hỏi ở nhiều chỗ quá...nhưng đọc lại chưa thực sự biết mục đích là gì.

Theo tôi bạn nên sửa: If Rng1(I, J) > 0 Then Arr2(Dic2.Item(Rng1(I, 1) & Rng1(I, 2) & Rng1(I, 4)), Dic.Item(Ws1.Cells(2, J) & Ws1.Cells(3, J)) + 4) = Rng1(I, J) End If Thành: If Dic2.exists(Rng1(I, 1) & Rng1(I, 2) & Rng1(I, 4)) Then Arr2(Dic2.Item(Rng1(I, 1) & Rng1(I, 2)...

Bạn sửa : Set Ws1 = Workbooks("CHITIET").Worksheets("CHITIET") Set Ws2 = Workbooks("KETQUA").Worksheets("KETQUA") Thành: Set Ws1 = Workbooks("CHITIET.XLSM").Worksheets("CHITIET") Set Ws2 = Workbooks("KETQUA.XLSM").Worksheets("KETQUA")

Trong khi chờ. Bạn tham khảo cách này xem sao.

Chúc mừng sinh nhật anh Cadafi. Chúc anh mạnh khỏe, hạnh phúc và thành đạt.

Chúc mừng sinh nhật anh Hai Lúa Miền Tây. Chúc anh sức khỏe, hạnh phúc, vui vẻ và thành đạt trong cuộc sống.

Bạn có thể bố trí lại và gõ công thức theo File đính kèm. Thân

Chúc mừng sinh nhật anh. Chúc anh sức khỏe, hạnh phúc, thành đạt và thường xuyên online trên GPE.

Chúc mừng sinh nhật anh. Chúc anh sang tuổi mới sức khỏe, hạnh phúc và thành đạt.