cần hỗ trợ lập trình vba để lọc dữ liệu từ nhiều file- sẽ có hậu tạ (1 người xem)

[seabird16]

Thân chào các bạn,
mình là thành viên mới của diễn đàn, cũng biết sơ sơ về excel nhưng chắc ko bằng các cao thủ trên này, đặc biệt là về mảng vba này. mình có bài toán để lọc dữ liệu từ nhiều file khác nhau, chỉ lấy đúng vài thông tin cần thiết để thu thập về 1 file tổng hợp. có bạn nào ở đây nhận code giúp mình, mình sẽ hậu tạ đầy đủ.
skype của mình: duonghuynh0608.
cám ơn các bạn đã đọc,

 

[befaint]

@ seabird16,

Kèo này căng lắm đấy!

 

[VetMini]

Đầy đủ tức là bao nhiêu?
Giá của tôi mỗi dòng code là 5000đ.

(kiếm đủ 1 chầu cà phê đãi các bạn ở đây chơi)

 

[be_09]

Tìm bài gộp File với bài về Advanced Filter kết hợp lại thì được kết quả bạn cần.

 

[VetMini]

Mất cà phê rồi :-(
Trâu cột ghét trâu ăn ;-)

 

[phihndhsp]

Mất cà phê rồi :-(
Trâu cột ghét trâu ăn ;-)

Chưa chắc bạn ấy làm được đâu anh vì file chưa có nên chưa biết nó như thể nào? anh chờ tí đi rồi cũng kiếm đủ 1 chầu cà phê đãi các bạn ở đây

 

[Gió Đông]

Thân chào các bạn,
mình là thành viên mới của diễn đàn, cũng biết sơ sơ về excel nhưng chắc ko bằng các cao thủ trên này, đặc biệt là về mảng vba này. mình có bài toán để lọc dữ liệu từ nhiều file khác nhau, chỉ lấy đúng vài thông tin cần thiết để thu thập về 1 file tổng hợp. có bạn nào ở đây nhận code giúp mình, mình sẽ hậu tạ đầy đủ.
skype của mình: duonghuynh0608.
cám ơn các bạn đã đọc,

Tôi thì cứ 20 chai 1 Sub/ Function - nếu cần chủ topic cứ nhắn tin: code trong vòng 1 tuần, bảo hành trọn đời chương trình

 

[VetMini]

Tôi thì cứ 20 chai 1 Sub/ Function - nếu cần chủ topic cứ nhắn tin: code trong vòng 1 tuần, bảo hành trọn đời chương trình

Hạn định 1 sub/function là thế nào.
Đọc files = 1 sub/function
Lọc dữ liệu = 1 sub/function
Thu về file tổng hợp = 1 sub/function.
Hay là đọc file và lọc dữ liệu và thu về file tổng hợp = 1 sub/function

 

[AutoReply]

Hạn định 1 sub/function là thế nào.

Bất cứ chỗ nào nhìn thấy cặp Sub(Function) - End Sub (End Function) thì cộng thêm 20 chai ( chưa biết chai gì )

 

[VetMini]

Bất cứ chỗ nào nhìn thấy cặp Sub(Function) - End Sub (End Function) thì cộng thêm 20 chai ( chưa biết chai gì )

Chắc như vầy:

const chai = 20
dim tong as integer

Sub GatGam()
tong = chai
ChaLamGiHet
ChiCotLayTien
Them20Chai
Them20Nua
ChacDuRoi
MsgBox "Yeu cau thanh toan " & tong & " chai"
End Sub

Sub ChaLamGiHet()
tong = tong + chai
End Sub
Sub ChiCotLayTien()
tong = tong + chai
End Sub
Sub Them20Chai()
tong = tong + chai
End Sub
Sub Them20Nua()
tong = tong + chai
End Sub
Sub ChacDuRoi()
tong = tong + chai
End Sub

 

[Kiều Mạnh]

Bói 1 cái xem sao >>>>>>
Nhiều khả năng Vỏ chai quá ...

 

[VetMini]

Chắc như vầy:

const chai = 20
dim tong as integer

Sub GatGam()
tong = chai
ChaLamGiHet
ChiCotLayTien
Them20Chai
Them20Nua
ChacDuRoi
MsgBox "Yeu cau thanh toan " & tong & " chai"
End Sub

Sub ChaLamGiHet()
tong = tong + chai
End Sub
Sub ChiCotLayTien()
tong = tong + chai
End Sub
Sub Them20Chai()
tong = tong + chai
End Sub
Sub Them20Nua()
tong = tong + chai
End Sub
Sub ChacDuRoi()
tong = tong + chai
End Sub

Ủa mà như vậy ăn gian quá. Giả vờ gọi 1 hàm lặp đi lặp lại thì ăn thêm tiền sao? Vòng lặp chẳng hạn?
For i = 1 to 10
ChalamGiHet
Next i

Phải bỏ code này vào mõi hàm mới công bình:

static daTinh as boolean
if not daTinh then
tong = tong + chai
daTinh = true
end if

 

[Gió Đông]

Hạn định 1 sub/function là thế nào.
Đọc files = 1 sub/function
Lọc dữ liệu = 1 sub/function
Thu về file tổng hợp = 1 sub/function.
Hay là đọc file và lọc dữ liệu và thu về file tổng hợp = 1 sub/function

Tùy thuộc vào độ phức tạp của bài đặt ra của người yêu cầu, không nói trước được chính xác là bao, cứ để người hỏi thương lượng

 

[quocgiacan]

Thân chào các bạn,
mình là thành viên mới của diễn đàn, cũng biết sơ sơ về excel nhưng chắc ko bằng các cao thủ trên này, đặc biệt là về mảng vba này. mình có bài toán để lọc dữ liệu từ nhiều file khác nhau, chỉ lấy đúng vài thông tin cần thiết để thu thập về 1 file tổng hợp. có bạn nào ở đây nhận code giúp mình, mình sẽ hậu tạ đầy đủ.
skype của mình: duonghuynh0608.
cám ơn các bạn đã đọc,

Chào seabird16,

Do bạn vừa mới tham gia diễn đàn và gửi bài đầu tiên, nên có vài lời muốn nói để hỗ trợ bạn quen với phong thái của anh em diễn đàn

• Trước tiên bạn nên tham khảo kỹ càng "Nội quy": https://www.giaiphapexcel.com/forum/showthread.php?76052&tabid=143
• Thêm những việc nên tránh:
  • Ghi trong chủ đề "Sẽ hậu tạ": vì anh em GPE hỗ trợ rất "VÔ TƯ" vì "NGHĨA" và không nhận bất kỳ thù lao dưới bất kỳ hình thức nào. Nên nếu gặp phải câu đó thì anh em có cảm giác hơi hơi , khà khà khà . Vã lại từ "sẽ" là thì tương lai, khó ai biết là bao lâu nữa để chờ!!. Nên tốt nhất là không dùng, thì ngược lại được hỗ trợ chu đáo.
  • Theo điều V của Nội quy, thì mọi "sản phẩm" trên diễn đàn thuộc về "tài sản" của cộng đồng, nên cũng không nên giao tiếp riêng.
  • Sử dụng tiếng Việt trong sáng (Nội quy) (cái này chỉ nói thêm, chứ chưa thấy bạn mắc phải): tránh dùng các từ "hiện đại" như: "lun, rùi-mũi, wá, wen, jì..."

Các anh em GPE đều vui tính dí dõm, nên đôi khi bạn sẽ thấy những "ngẫu hứng lý qua cầu" như của các anh đã ghi tại các bài trên. Thật ra các anh rất hào phóng, NẾU bạn đi "chung quỹ đạo" như trên đã nêu.

Chúc bạn ngày vui.