VBA và Cú pháp lệnh For Next (1 người xem)

[Mr_cuong]

Kính Gửi các Anh Chị Thành Viên Diễn Đàn !
Xin vui lòng chỉ giúp:
Ví dụ
A1:A10 =("A")
A11:A20 =("B")
A21"A30 =("C")
Để Delete các dòng chứa ("B") tôi dùng lệnh như sau:
Sub DeL_RowB()
For i = 1 To 30
Range("A" & i).Select
If Selection.Value = ("B") Then
Rows("" & i).Select
Selection.Delete Shift:=xlUp
Else
End If
Next
End Sub
Nhưng nó chỉ Delete được 5 thay vì 10 dòng !?
Lệnh sai ở đâu, hoặc giải pháp nào để làm chuyện đó ?
Xin Chân thành cảm ơn đã chỉ giúp

 

[Po_Pikachu]

Làm như vầy mới đúng.

Sub DeL_RowB() For i = [A100].End(xlUp).Row to 1 Step -1  If Range("A" & i).Value = "(""B"")" Then Range("A" & i).EntireRow.Delete End If Next End Sub

Thân.

 

[Mr_cuong]

Cảm ơn Bạn Po_Pikachu
Nhưng sao tôi chép y code của bạn mà nó không chạy !?

 

[Po_Pikachu]

Như vậy là do bạn thuyết minh giá trị cột A sai rồi! Thử lại với code này xem!

Sub DeL_RowB() For i = [A100].End(xlUp).Row to 1 Step -1  If Range("A" & i).Value = "B" Then Range("A" & i).EntireRow.Delete End If Next End Sub

 

[Mr_cuong]

Po_Pikachu ơi !
Nhưng Biến [A100] sẽ thay đổi, giả sừ thay biến [A100] bằng giá trị taịn Range (B1) = 65536-COUNTBLANK(A:A)
Thì sẽ thay vào Code trên bằng cách nào ?

 

[Po_Pikachu]

Vậy thì bỏ dòng này vô.

Sub DeL_RowB()
For i = Cells(Cells.Rows.Count, 1).End(xlUp).Row to 1 Step -1 
If Range("A" & i).Value = "B" Then
Range("A" & i).EntireRow.Delete
End If
Next
End Sub

Thân.

 

[Po_Pikachu]

Sao lại không chạy chứ Top #7 và Top #4 thật sự không khác gì nhau cả. Thông số đầu của For điều chỉ số dòng lớn nhất của cột A cả mà. Bạn đừng nói là dùng hết số lượng cột A luôn đó nha! Làm gì mà lắm thế! Nếu số liệu ở cột A liên tục không ngắt quảng thì có thể dùng dòng này để thay thế: For i = Range("A1").End(xlDown).Row To 1 Step -1 Thân.

 

[Mr Okebab]

Những trường hợp như trên, các bạn hãy gửi luôn File VD lên để dễ làm và dễ kiểm chứng.
Chỉ có mấy dòng Code đơn giản, nhưng ở File người này thì chạy, người khác lại không chạy, như vậy có sự khác biệt khi chép Code vào File.
Vì thế tốt nhất hay gửi luôn File đình kèm.

Thân!

P/S : Bạn Po_Picachu nên khai báo biến để máy ai cũng chạy được (khi copy code). Nếu máy người khác thiết lập Require Variable Declacration thì sẽ báo lỗi đấy

 

[ChanhTQ@]

Hãy từ bỏ vòng lặp trong trường hợp này, chuyển sang phương thức FIND()

Để chúng ta thấy lợi hại của phương thức tìm kiếm, trong ví dụ của bạn có 30 dòng dữ liệu;
Nếu dùng vòng lặp, để tìm 10 dòng chứa ký tự 'B', ta phải mất 30 lần lặp lại từng records
Nếu dùng FIND() ta chỉ mất đúng mươi lần là ra kết quả;
Hơn nữa, nếu cần xóa những records này, ta nên xóa 1 lần thôi, sẽ nhanh hơn 10 lần xóa từng record;
Bạn tham khảo thêm tại đây, có gì thét méc hỏi tiếp nha!

http://giaiphapexcel.com/forum/showthread.php?t=14841

 

[Po_Pikachu]

Dùng cách này được không mọi người!

Sub DeL_RowB()     Columns("A:A").Select     Selection.AutoFilter     Selection.AutoFilter Field:=1, Criteria1:="B"     Selection.SpecialCells(12).EntireRow.Delete     Selection.AutoFilter End Sub

@Mr Okebab: Bác có thể chỉ cho em chổ đặt Require Variable Declacration ở đâu không? Thân.

 

[Mr Okebab]

Để chúng ta thấy lợi hại của phương thức tìm kiếm, trong ví dụ của bạn có 30 dòng dữ liệu;
Nếu dùng vòng lặp, để tìm 10 dòng chứa ký tự 'B', ta phải mất 30 lần lặp lại từng records
Nếu dùng FIND() ta chỉ mất đúng mươi lần là ra kết quả;
Hơn nữa, nếu cần xóa những records này, ta nên xóa 1 lần thôi, sẽ nhanh hơn 10 lần xóa từng record;
Bạn tham khảo thêm tại đây, có gì thét méc hỏi tiếp nha!

http://giaiphapexcel.com/forum/showthread.php?t=14841

Liệu giữa Find và Match có chênh lệch nhau nhiều không bác nhỉ ?? Dĩ nhiên là Find nhanh hơn rồi, tuy nhiên theo em nghĩ thì sự chênh lệch về thời gian là không nhiều lắm.


Thân!

 

[Mr Okebab]

@Mr Okebab: Bác có thể chỉ cho em chổ đặt Require Variable Declacration ở đâu không?
Thân.

Bạn vào đây nhé:
VBE/Tools/Options.../Editor/Require Variable Declacration

Thân!

 

[Po_Pikachu]

[Cải bướng] Vậy nếu thấy trong code có dòng "Option Explicit" thì bỏ đi. Vậy là được tuốt. Chúc vui. Thân.

 

[Mr Okebab]

[Cải bướng] Vậy nếu thấy trong code có dòng "Option Explicit" thì bỏ đi. Vậy là được tuốt.
Chúc vui.
Thân.

Những người như tớ và cậu thì nói làm gì, một là khai báo lại, hai là bỏ cái dòng đó đi.
Tuy nhiên có một số người lại không biết, họ chỉ biết Copy vào và chạy. Thấy báo lỗi lại la toáng lên, lúc đó tớ cũng khổ (phải xóa bài), mà cậu cũng khổ (phải hỏi đi hỏi lại, phải giải thích . . )
Và một điều quan trọng nữa là : Khi ta đưa Code lên diễn đàn, ấy là để rất nhiều người học tập, vì vậy nếu có được những dòng code chuẩn thì người đời bớt khổ
Thân!

 

[manhhung12]

Cũng là vòng lặp For...next

Trong bài "1 số vấn đề xử lý trên Form tôi cũng hỏi về vòng lặp For nhưng kg ai quan tâm (thật đáng buồn) nhân đọc bài này tôi viết câu hỏi vào đay may ra có người quan tâm:
Tôi có 1 sheet data gồm nhiều dòng, trong đó có những dòng mà data kg điền đầy ở các cột: Ví dụ cột A trống, cột B có, cột C, D,... trống, cột F có (dòng cộng tổng theo nhóm).
Bây giờ tôi dùng vòng lặp for để đưa số liệu lên listbox như sau:
....
For i=0 to lRow
if sheet1.cells(i+1,1)<>"" then
me.lbDs.addItem
.....
end if
next
[trong đó: lRow = sheet1.range("A1:A65432").end(xlUp).Row]
sô liệu trên sheet1 có 5 dòng từ dòng 1 đến dòng 5 là đầy đủ, dòng 6 thì cột B, cột F có số liệu còn các cột khác trống
và từ dòng 7 đến dòng thứ 300 lại có 1 dòng trống như dòng số 6...
Tuy nhiên kết quả của vòng For trên chỉ duyệt đến dòng thứ 6 là dừng lai và kg chạy hết
Tôi kg hiểu nguyên nhân. Mọi người giải thích giúp tôi nguyên nhân vì sao??

 

[ndu96081631]

Để chúng ta thấy lợi hại của phương thức tìm kiếm, trong ví dụ của bạn có 30 dòng dữ liệu;
Nếu dùng vòng lặp, để tìm 10 dòng chứa ký tự 'B', ta phải mất 30 lần lặp lại từng records
Nếu dùng FIND() ta chỉ mất đúng mươi lần là ra kết quả;
Hơn nữa, nếu cần xóa những records này, ta nên xóa 1 lần thôi, sẽ nhanh hơn 10 lần xóa từng record;
Bạn tham khảo thêm tại đây, có gì thét méc hỏi tiếp nha!

http://giaiphapexcel.com/forum/showthread.php?t=14841

Còn nếu dùng AutoFilter thì:
- Mất 1 lần lọc ra giá trị B
- Mất 1 lần xóa
Không biết món nào nhanh hơn đây ta?

 

[hoangvuluan]

Xác định sai vị trí dòng cuối chứa dữ liệu

Bây giờ tôi dùng vòng lặp for để đưa số liệu lên listbox như sau:
....
For i=0 to lRow
if sheet1.cells(i+1,1)<>"" then
me.lbDs.addItem
.....
end if
next
[trong đó: lRow = sheet1.range("A1:A65432").end(xlUp).Row]
sô liệu trên sheet1 có 5 dòng từ dòng 1 đến dòng 5 là đầy đủ, dòng 6 thì cột B, cột F có số liệu còn các cột khác trống
và từ dòng 7 đến dòng thứ 300 lại có 1 dòng trống như dòng số 6...
Tuy nhiên kết quả của vòng For trên chỉ duyệt đến dòng thứ 6 là dừng lai và kg chạy hết
Tôi kg hiểu nguyên nhân. Mọi người giải thích giúp tôi nguyên nhân vì sao??

Theo tôi bạn đã xác định sai vị trí cuối có chứa dữ liệu. Có thể sửa lại thành:

lRow = sheet1.Cells(65432,1).End(xlUp).Row

-hvl-

 

[tigertiger]

Theo tôi bạn đã xác định sai vị trí cuối có chứa dữ liệu. Có thể sửa lại thành:

lRow = sheet1.Cells(65432,1).End(xlUp).Row

-hvl-

hoặc là

lRow = sheet1.range("A65536").end(xlUp).Row

 

[manhhung12]

Theo tôi bạn đã xác định sai vị trí cuối có chứa dữ liệu. Có thể sửa lại thành:

lRow = sheet1.Cells(65432,1).End(xlUp).Row

-hvl-

kg sai được bạn à. Vì nếu bỏ câu lệnh IF thì nó load đầy đủ data lên listbox mà (cả dòng trống).

 

[tigertiger]

Trong bài "1 số vấn đề xử lý trên Form tôi cũng hỏi về vòng lặp For nhưng kg ai quan tâm (thật đáng buồn) nhân đọc bài này tôi viết câu hỏi vào đay may ra có người quan tâm:
Tôi có 1 sheet data gồm nhiều dòng, trong đó có những dòng mà data kg điền đầy ở các cột: Ví dụ cột A trống, cột B có, cột C, D,... trống, cột F có (dòng cộng tổng theo nhóm).
Bây giờ tôi dùng vòng lặp for để đưa số liệu lên listbox như sau:
....
For i=0 to lRow
if sheet1.cells(i+1,1)<>"" then
me.lbDs.addItem
.....
end if
next
[trong đó: lRow = sheet1.range("A1:A65432").end(xlUp).Row]
sô liệu trên sheet1 có 5 dòng từ dòng 1 đến dòng 5 là đầy đủ, dòng 6 thì cột B, cột F có số liệu còn các cột khác trống
và từ dòng 7 đến dòng thứ 300 lại có 1 dòng trống như dòng số 6...
Tuy nhiên kết quả của vòng For trên chỉ duyệt đến dòng thứ 6 là dừng lai và kg chạy hết
Tôi kg hiểu nguyên nhân. Mọi người giải thích giúp tôi nguyên nhân vì sao??

addItem gì bạn???

đổi lại thế này xem sao

For i=1 to lRow
if sheet1.cells(i,1).Value<>"" then
me.lbDs.addItem
.....
end if
next i
[trong đó: lRow = sheet1.range("A65432").end(xlUp).Row -lưu ý lệnh này phải đặt trước FOR]

 

[manhhung12]

addItem gì bạn???

đổi lại thế này xem sao

For i=1 to lRow
if sheet1.cells(i,1).Value<>"" then
me.lbDs.addItem
.....
end if
next i
[trong đó: lRow = sheet1.range("A65432").end(xlUp).Row -lưu ý lệnh này phải đặt trước FOR]

Bạn có thể xem câu lệnh tôi viết trong sub Update_lbDs (file đính kèm). Trong đó lrow1 tôi đã xác định trong phần khởi tạo form nghĩa là trước khi có sự kiện update_lbDs.
Tôi đã thử nhiều cách. Trong foxpro hay VB thì ta có thể cho nó skip khi gặp Đkiệnn kg thỏa nhưng trong Excel thì tôi lúng túng quá. Không biết dùng câu lệnh gì nữa.
Tôi hỏi câu này đã 3 ngày nay nhưng kg ai trả lời.

 

[tigertiger]

Bạn có thể xem câu lệnh tôi viết trong sub Update_lbDs (file đính kèm). Trong đó lrow1 tôi đã xác định trong phần khởi tạo form nghĩa là trước khi có sự kiện update_lbDs.
Tôi đã thử nhiều cách. Trong foxpro hay VB thì ta có thể cho nó skip khi gặp Đkiệnn kg thỏa nhưng trong Excel thì tôi lúng túng quá. Không biết dùng câu lệnh gì nữa.
Tôi hỏi câu này đã 3 ngày nay nhưng kg ai trả lời.

Chương trình bạn khá hay, rất là chuyên nghiệp, he he

Tìm mãi rồi cũng phát hiện ra,
Vấn đề ở itemI bạn nhé - bạn đọc CODE sẽ hiểu ngay -> tôi nghĩ thế vì bạn có khả năng

Private Sub UpdateDs_List()
    Dim itemI As Long
    itemI = 0
    For r = 0 To lRow1 - 3
        If Sheet1.Cells(r + 3, 1).Value <> "" Then
           With Me
                .lbDs.AddItem
                .lbDs.List(itemI, 0) = Sheet1.Cells(r + 3, 1)
                .lbDs.List(itemI, 1) = Sheet1.Cells(r + 3, 3)
                .lbDs.List(itemI, 2) = Sheet1.Cells(r + 3, 4)
                .lbDs.List(itemI, 3) = Sheet1.Cells(r + 3, 5)
                .lbDs.List(itemI, 4) = Sheet1.Cells(r + 3, 6)
                .lbDs.List(itemI, 5) = Sheet1.Cells(r + 3, 8)
           End With
          itemI = itemI + 1
        End If
    Next
End Sub

 

[manhhung12]

Hi Hi, Quả thực tôi vẫn nghi ngờ nhưng kg biết xử lý sao. Lại thêm 1 kinh nghiệm, Lỗi ở đây là do việc chuyển qua chuyển lai giữa 2 đối tượng (1 Form và 1 Sheet) phải không bạn, biến r tôi sử dụng chung cho việc duyệt cả trên 2 đối tượng nên trên form nó kg xử lý được phải không bạn??? Nói hơi "lộng ngôn 1 tý: Co lúc MS cũng kém thật).
Chung quy lại là ta chưa nghiên cứu sâu vè bản chất câu lệnh và cách chuyển giao (truyền giá trị của biến), chứ không lẽ MS lại kém vậy chứ!!
Đa tạ

 

[tigertiger]

Hi Hi, Quả thực tôi vẫn nghi ngờ nhưng kg biết xử lý sao. Lại thêm 1 kinh nghiệm, Lỗi ở đây là do việc chuyển qua chuyển lai giữa 2 đối tượng (1 Form và 1 Sheet) phải không bạn, biến r tôi sử dụng chung cho việc duyệt cả trên 2 đối tượng nên trên form nó kg xử lý được phải không bạn??? Nói hơi "lộng ngôn 1 tý: Co lúc MS cũng kém thật).
Chung quy lại là ta chưa nghiên cứu sâu vè bản chất câu lệnh và cách chuyển giao (truyền giá trị của biến), chứ không lẽ MS lại kém vậy chứ!!
Đa tạ

Không phải,
Không nên tự làm khó nghĩ ra lý do thế

Bản chất là khi bạn bỏ qua dòng trống , nhưng R vẫn tăng -> khi gặp dòng mới thì list của bạn truy cập AddItem lúc này bạn vẫn tiếp tục R nhưng thực ra thì số Items của list chưa được cộng đến đó

Có thể hiểu giống như ta xếp sách, nếu bỏ qua xếp cuốn cao hơn thì không được bạn ah, hay nói cách khác ta chưa tạo ra chỗ để cuốn sách đó -> không để được

 

[manhhung12]

Nhưng tại sao khi tôi để thêm dòng lệnh else và sau đó tôi lbbox.additem (mục đích là tao 1 dòng trên listbox nhưng không gán gì cả thì nó vẫn dừng ngay ở dòng trống?

 

[tigertiger]

Nhưng tại sao khi tôi để thêm dòng lệnh else và sau đó tôi lbbox.additem (mục đích là tao 1 dòng trên listbox nhưng không gán gì cả thì nó vẫn dừng ngay ở dòng trống?

Bạn phải thêm cả dòng như thế này

.lbDs.AddItem
.lbDs.List(r, 0) = ""