Tìm kiếm giá trị rổng (1 người xem)

[babyheomoi]

Mình đang tìm hiểu mấy cái isempty, intersect, isnull....
Mình có bài đơn giản nhờ mọi người giúp đỡ! Đại loại như vậy:
1. Trong range nào đó, nếu:
+ Giá trị range đã nhập (tức có dữ liệu rồi) thì bỏ qua, ko nhập nữa
+Giá trị range = rổng thì value = 0
+Giá trị range không phải là số thì line đỏ để check
Code e làm mẫu test:

Sub test_isempty() Dim test As Range
 Set test = Range("A1", "A9")
 If IsNull(test) = True Then
   With test
    .FormulaR1C1 = "0"
   End With
End If
End Sub

Mọi người có link tìm hiểu vấn đề này cho em xin để học nhé!
Thanks

 

[babyheomoi]

cám ơn ban hpkhuong, nhưng data mình tương đối lớn (5000-10000 dòng). Việc dùng vòng lặp thế có ảnh hưởng đến tốc độ code và làm file nặng hơn ko??

 

[babyheomoi]

Ah,trên yêu cầu còn có 1 dòng : Giá trị range đã nhập (tức có dữ liệu rồi) thì bỏ qua, ko nhập nữa.
Trong code của bác ko biết đã lồng điều kiện trên chưa?

 

[doveandrose]

cám ơn ban hpkhuong, nhưng data mình tương đối lớn (5000-10000 dòng). Việc dùng vòng lặp thế có ảnh hưởng đến tốc độ code và làm file nặng hơn ko??

bạn thậm chí chưa hiểu hết code của anh hpKhuong ở trên có tác dụng gì nữa mà đã tính toán thiệt hơn , nhanh với cả chậm , híc . Từ từ bạn ạ , học cho hiểu rõ mấy cái cơ bản trước đi , rồi 6 tháng nữa quay lại đây nhờ anh hpKhuong chỉ cho cách làm việc với 10 000 dòng nhé .

 

[concogia]

cám ơn ban hpkhuong, nhưng data mình tương đối lớn (5000-10000 dòng). Việc dùng vòng lặp thế có ảnh hưởng đến tốc độ code và làm file nặng hơn ko??

Nếu dữ liệu của bạn chỉ có "Number", "Text" & "Blanks" mà không muốn xử dụng vòng lặp thì có thể dùng "SpecialCells"
Cái nào chạy nhanh hơn thì.....phải thử mới biết
Thân

 

[giangleloi]

Duyệt trên range? bạn không dùng vòng lặp thì bạn dùng cái gì.

Vậy duyệt trên gì thì không cần dùng vòng lặp vậy anh?