Xóa Dữ Liệu Theo điều Kiện Bằng VBA - Mạng Xã Hội Webketoan

Menu Menu Đăng nhập Đăng ký Tắt quảng cáo Menu Install the app Cài đặt

• Trang chủ
• Diễn đàn Bài viết mới
• Có gì mới Bài viết mới Hoạt động mới nhất

• Kế toán Căn bản thực chiến về Logistic/Forwarder
• Kế toán Căn Bản F&B " 2 buổi online - tự tin bước vào nghề!

Xóa dữ liệu theo điều kiện bằng VBA

• Thread starter nhathuyha
• Ngày gửi 21/12/16

• Diễn đàn
• THÔNG TIN CẦN BIẾT VÀ HỎI ĐÁP NGHIỆP VỤ
• Tech Hub: AI - An toàn thông tin - Tin học quản lý

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. N

nhathuyha

Guest

30/11/16 16 0 1 34 Hi mọi người ! Mình có bài toán thế này Ở sheet "dữ liệu" mình có chuỗi số seri cần loại bỏ. Bên sheet "DS loai bo" mình có danh sách. Làm thế nào để excel tự động dò tìm các số seri cần được loại bỏ trong sheet dữ liệu rồi delete chúng Các bạn xem file đính kèm sẽ rõ P/s : Điều kiện bài toán là dữ liệu của các số seri là vô cùng lớn. các bạn không được cố định dữ liệu trong bảng mà phải dùng biến đếm có bao nhiêu dữ liệu.. đại loại như tìm dòng cuối last row ấy Chân thành cảm ơn mọi người

Đính kèm

• Book1.xlsx 10.1 KB · Lượt xem: 201

Sửa lần cuối: 21/12/16

thinhvd

Cao cấp

25/11/09 1,336 234 63 Hà Nội bluesofts.net

nhathuyha nói: Hi mọi người ! Mình có bài toán thế này Ở sheet "dữ liệu" mình có chuỗi số seri cần loại bỏ. Bên sheet "DS loai bo" mình có danh sách. Làm thế nào để excel tự động dò tìm các số seri cần được loại bỏ trong sheet dữ liệu rồi delete chúng Các bạn xem file đính kèm sẽ rõ P/s : Điều kiện bài toán là dữ liệu của các số seri là vô cùng lớn. các bạn không được cố định dữ liệu trong bảng mà phải dùng biến đếm có bao nhiêu dữ liệu.. đại loại như tìm dòng cuối last row ấy Chân thành cảm ơn mọi người Nhấn để mở rộng...

Yêu cầu của bạn thì gần như cực khó thực hiện bằng Excel thông thường nhưng bằng VBA thì không khó. Mình đã viết cho bạn đoạn code như sau: PHP: Sub DeleteDueList() Dim ShData As Worksheet Dim ShList As Worksheet Dim ix As Long Dim il As Long Set ShData = ThisWorkbook.Sheets("du lieu") Set ShList = ThisWorkbook.Sheets("DS loai bo") For ix = ShData.Range("A" & ShData.Rows.Count).End(xlUp).Row To 2 Step -1 For il = 2 To ShList.Range("A" & ShList.Rows.Count).End(xlUp).Row If ShData.Cells(ix, 1).Value = ShList.Cells(il, 1).Value Then ShData.Cells(ix, 1).EntireRow.Delete Next il Next ix End Sub Toggle signature https://www.facebook.com/groups/hocexcel Excel & VBA & SQL trong Excel Mobile+Zalo: 038 6961 334

• 

Reactions: nhathuyha N

nhathuyha

Guest

30/11/16 16 0 1 34 thanks bạn.. mình sẽ chạy thử N

nhathuyha

Guest

30/11/16 16 0 1 34 Bạn ơi.. cho mình hỏi thêm thế này Nếu điều kiện bài toán thay đổi.. Bây giờ mình cần xóa những số seri có mã nhỏ hơn FN3689 thì phải làm sao Ví dụ những số như FN2598... ,FN2556.. ...vv sẽ bị xóa N

nhathuyha

Guest

30/11/16 16 0 1 34

thinhvd nói: Yêu cầu của bạn thì gần như cực khó thực hiện bằng Excel thông thường nhưng bằng VBA thì không khó. Mình đã viết cho bạn đoạn code như sau: PHP: Sub DeleteDueList() Dim ShData As Worksheet Dim ShList As Worksheet Dim ix As Long Dim il As Long Set ShData = ThisWorkbook.Sheets("du lieu") Set ShList = ThisWorkbook.Sheets("DS loai bo") For ix = ShData.Range("A" & ShData.Rows.Count).End(xlUp).Row To 2 Step -1 For il = 2 To ShList.Range("A" & ShList.Rows.Count).End(xlUp).Row If ShData.Cells(ix, 1).Value = ShList.Cells(il, 1).Value Then ShData.Cells(ix, 1).EntireRow.Delete Next il Next ix End Sub Nhấn để mở rộng...

Bạn ơi.. cho mình hỏi thêm thế này Nếu điều kiện bài toán thay đổi.. Bây giờ mình cần xóa những số seri có mã nhỏ hơn FN3689 thì phải làm sao Ví dụ những số như FN2598... ,FN2556.. ...vv sẽ bị xóa

thinhvd

Cao cấp

25/11/09 1,336 234 63 Hà Nội bluesofts.net

nhathuyha nói: Bạn ơi.. cho mình hỏi thêm thế này Nếu điều kiện bài toán thay đổi.. Bây giờ mình cần xóa những số seri có mã nhỏ hơn FN3689 thì phải làm sao Ví dụ những số như FN2598... ,FN2556.. ...vv sẽ bị xóa Nhấn để mở rộng...

Cái đó code sẽ phức tạp hơn. Bạn có thể tham khảo hàm instr trong VBA nhé Toggle signature https://www.facebook.com/groups/hocexcel Excel & VBA & SQL trong Excel Mobile+Zalo: 038 6961 334

• 

Reactions: nhathuyha N

nhathuyha

Guest

30/11/16 16 0 1 34

thinhvd nói: Cái đó code sẽ phức tạp hơn. Bạn có thể tham khảo hàm instr trong VBA nhé Nhấn để mở rộng...

bạn giúp mình 1 phần được không..mình có viết nhưng không chạy được bạn Dim iLastRow As Long Dim i As Long Dim rSeriNum As Range, GT As Range Sheets("Du lieu").Select iLastRow = Sheets("Du lieu").Range("A" & Rows.Count).End(xlUp).Row Set rSeriNum = Sheets("Du lieu").Range("A1:A" & iLastRow) For Each GT In rSeriNum If GT.Value = Mid(GT, 3, 4) < 3000 Then GT.ClearContents End If Next GT End Sub

thinhvd

Cao cấp

25/11/09 1,336 234 63 Hà Nội bluesofts.net

If GT.Value = Mid(GT, 3, 4) < 3000 Then Nhấn để mở rộng...

Nhìn cái này thì kiểu gì cũng nhỏ hơn 3000 Toggle signature https://www.facebook.com/groups/hocexcel Excel & VBA & SQL trong Excel Mobile+Zalo: 038 6961 334

• 

Reactions: nhathuyha N

nhathuyha

Guest

30/11/16 16 0 1 34

thinhvd nói: Nhìn cái này thì kiểu gì cũng nhỏ hơn 3000 Nhấn để mở rộng...

có vấn đề gì hả bạn S

SA_DQ

Thành viên Cố vấn - Webketoan Mentors

29/6/05 611 104 43 68 HCM city Đây là macro xóa những fiếu nhỏ hơn số fiếu đầu tiên trong danh sách cần loại bỏ Nhưng kết quả đang ghi bên fải lền kề (để bạn kiểm tra lại) (Macro thích hợp với dữ liệu lớn!) PHP: Option Explicit Sub XoaHoaDonNhoHon() Dim FieuXoa As String Dim Arr() Dim J As Long, W As Long With Sheets("Du Lieu") Arr() = .[B2].CurrentRegion.Value ReDim dArr(1 To UBound(Arr()), 1 To UBound(Arr(), 2)) FieuXoa = Sheets("DS Loai Bo").[a2].Value For J = 1 To UBound(Arr()) If Arr(J, 1) >= FieuXoa Then W = W + 1: dArr(W, 1) = Arr(J, 1) dArr(W, 2) = Arr(J, 2): dArr(W, 3) = Arr(J, 3) End If Next J If W Then .[e1].Resize(UBound(Arr()), 3).Value = dArr() End If End With End Sub Toggle signature bColor http://vn.myblog.yahoo.com/sa_D_Q​

• 

Reactions: nhathuyha Bạn phải đăng nhập hoặc đăng ký để bình luận. Chia sẻ: Facebook Email Chia sẻ Link

Xem nhiều

• M Thi tuyển công chức thuế năm 2012!
  • Started by MINA
  • 5/5/12
  • Lượt xem: 8,955,912
  Phát triển bản thân
• M Thi công chức hải quan!
  • Started by meomalem
  • 2/5/10
  • Lượt xem: 3,559,773
  Phát triển bản thân
• T Lập nhóm ôn thi công chức bhxh 2013
  • Started by truongvucanh
  • 29/3/13
  • Lượt xem: 3,159,560
  Phát triển bản thân
• M Tổng hợp các nội dung liên quan đến việc thi tuyển vào ngân hàng!
  • Started by mechipchip
  • 18/7/06
  • Lượt xem: 3,072,878
  Chế độ kế toán khác
• J Thi tuyển công chức thuế 2014
  • Started by jinna
  • 23/12/13
  • Lượt xem: 2,691,430
  Thi công chức thuế

Liên kết

Tâm An kế toán quản trị

Chia sẻ trang

Share this page Chia sẻ Facebook Email Chia sẻ Link Top Bottom