Kiểm tra một vùng có dữ liệu không? (1 người xem)

[conghoangxd037]

Hiện tại em có vùng Range("A1 : D10"), anh chị giúp em dùng code VBA để kiểm tra các ô trong vùng đó có chứa dữ liệu không?

 

[phihndhsp]

Hiện tại em có vùng Range("A1 : D10"), anh chị giúp em dùng code VBA để kiểm tra các ô trong vùng đó có chứa dữ liệu không?

Có thể sử dụng Goto Special ->Blanks để kiểm tra.

 

[phulien1902]

Hiện tại em có vùng Range("A1 : D10"), anh chị giúp em dùng code VBA để kiểm tra các ô trong vùng đó có chứa dữ liệu không?

Bạn thử chạy 2 dòng dưới đây xem thế nào:

 Range("A1:D10").SpecialCells(xlCellTypeBlanks).Select

và

    Range("A1:D10").SpecialCells(xlCellTypeConstants, 23).Select

 

[huonglien1901]

Bạn thử chạy 2 dòng dưới đây xem thế nào:

 Range("A1:D10").SpecialCells(xlCellTypeBlanks).Select

và

    Range("A1:D10").SpecialCells(xlCellTypeConstants, 23).Select

Anh sẽ giải thích giúp em dòng lệnh dưới với.

Cảm ơn Anh!

 

[phulien1902]

Anh sẽ giải thích giúp em dòng lệnh dưới với.

Cảm ơn Anh!

Chọn các Cells rỗng đấy em. Bạn cứ giả vờ như không biết đấy?

 

[conghoangxd037]

Cảm ơn mọi người nhưng còn 1 vấn đề nữa em muốn kiểm tra. Nếu các ô trong đó đã được điền dữ liệu rồi xóa thì nó sẽ chạy dòng code. Nhưng em mở 1 sheet mới thì nó báo lỗi. Vì các ô hiện giờ dữ liệu đang nothing còn các ô hồi nãy đã xóa nó mang dữ liệu rỗng nên ok

 

[huonglien1901]

Cảm ơn mọi người nhưng còn 1 vấn đề nữa em muốn kiểm tra. Nếu các ô trong đó đã được điền dữ liệu rồi xóa thì nó sẽ chạy dòng code. Nhưng em mở 1 sheet mới thì nó báo lỗi. Vì các ô hiện giờ dữ liệu đang nothing còn các ô hồi nãy đã xóa nó mang dữ liệu rỗng nên ok

bạn đưa cái file lỗi lên đi, chứ đọc vào chưa hiểu lắm

 

[conghoangxd037]

Chị cứ mở 1 sheet bình thường cho chạy dòng dữ liệu là nó báo lỗi là No cells were found (ko tìm thấy ô nào). Nếu em bẫy lỗi cũng được nhưng em muốn cho prefect cái này luôn.

 

[huonglien1901]

Chị cứ mở 1 sheet bình thường cho chạy dòng dữ liệu là nó báo lỗi là No cells were found (ko tìm thấy ô nào). Nếu em bẫy lỗi cũng được nhưng em muốn cho prefect cái này luôn.

Chưa hiểu lắm,

muốn cho prefect cái này luôn

cái này đọc chưa hiểu, vậy đoạn code đó ở đâu?

 

[conghoangxd037]

Public Sub Check_RangeValue()
MsgBox range("A1 : D10").SpecialCells(4, 2).AddressLocal
End Sub

 

[phulien1902]

Public Sub Check_RangeValue()
MsgBox range("A1 : D10").SpecialCells(4, 2).AddressLocal
End Sub

Để kiểm tra Code của bạn, bạn hãy làm như sau
+>Đầu tiên bạn nhập 1 hay vài giá trị vào vùng A1 : D10
+> Vào cửa sổ Immediate, gõ:

Range("A1 : D10").SpecialCells(4, 2).Select

Bây giờ bạn xem vùng dữ liệu của bạn thế nào nhé.

 

[huonglien1901]

Khi em chạy thì ra cái này Anh/

 

[conghoangxd037]

Lỡ mình không điền dữ liệu 1,2,2 thì nó báo lỗi đó. Bạn thử tạo một sheet mới đi. Không điền dữ liệu gì

 

[phulien1902]

Lỡ mình không điền dữ liệu 1,2,2 thì nó báo lỗi đó. Bạn thử tạo một sheet mới đi. Không điền dữ liệu gì

Của tôi thì:

 

[conghoangxd037]

Của mình thì nó báo lỗi. Mình dùng excel 2010 không biết có bị gì không? Cảm ơn bạn, để mình tìm cách khác thử

 

[VetMini]

Chị cứ mở 1 sheet bình thường cho chạy dòng dữ liệu là nó báo lỗi là No cells were found (ko tìm thấy ô nào). Nếu em bẫy lỗi cũng được nhưng em muốn cho prefect cái này luôn.

muốn cái gì?