Kiểm tra number là text (1 người xem)

[stao]

Mình dùng VBA kiểm tra dữ liệu của cell có phải số mà đang định dạng text hay không.
- Kiểm cell đơn lẻ: If Range("A1").Errors.Item(xlNumberAsText).Value = True Then thì ok
- Kiểm cell có nhiều dòng cột: If ArrData(i, j).Errors.Item(xlNumberAsText).Value = True Then thì bị báo lỗi
Nhờ các Bác tư vấn giúp.

 

[befaint]

ArrData

Cái này là cái gì? Trên bảng tính làm gì có?

 

[nlbx]

Lỗi như thế nào bạn @stao

Bài đã được tự động gộp: 10/7/18

Cái này là cái gì? Trên bảng tính làm gì có?

Chắc trích code ra đó bác ạ.

 

[hungpecc1]

Mình dùng VBA kiểm tra dữ liệu của cell có phải số mà đang định dạng text hay không.
- Kiểm cell đơn lẻ: If Range("A1").Errors.Item(xlNumberAsText).Value = True Then thì ok
- Kiểm cell có nhiều dòng cột: If ArrData(i, j).Errors.Item(xlNumberAsText).Value = True Then thì bị báo lỗi
Nhờ các Bác tư vấn giúp.

99% là lỗi, vì ArrData của bạn khai bao là gì ? là range, hay Mảng dữ liệu

Tóm lại : bạn thử xem dòng này có lỗi không
Dim rng as range
set rng = ArrData(i,j)

 

[stao]

Sorry vì vắn tắt quá. ArrData là mảng dữ liệu:
Dim ArrData()
ArrData = Sheet3.Range("A16", Sheet3.Range("A16").End(xlDown)).Resize(, 90).Value

Lỗi là Runtime error (424)

 

[befaint]

Dim ArrData()
ArrData = Sheet3.Range("A16", Sheet3.Range("A16").End(xlDown)).Resize(, 90).Value

Vậy cái này ArrData(i, j) làm gì có thuộc tính/ phương thức gì mà gọi?

Chỗ .End(xlDown) thì bẫy lỗi vào, khi không có dữ liệu nó tụt xuống tận đáy bảng tính, mảng ArrData to khủng bố, máy tính quỳ luôn.