Vấn đề Ubound, nếu range chỉ một giá trị sẽ sinh lỗi, cách khắc phục?

[Hoàng Trọng Nghĩa]

Giả sử tại A1:A3 đều có giá trị, nếu dùng Immediate ta viết:

?Ubound(Range([A1],[A20].End(xlUp)).Value,1) thì kết quả sẽ ra 3

Nhưng cũng cấu trúc đó, thì chỉ duy nhất A1 có giá trị hoặc cả 3 ô không có giá trị nào thì sinh lỗi (Run-time Error '13': Type mismacth).

Vẫn biết với Ubound chỉ áp dụng cho mảng 2 chiều, nhưng nếu gặp trường hợp khối ô trên rơi vào 2 trường hợp đó thì phải làm sao để nó hiểu là 1 hoặc 0 ???

Xin cám ơn.

 

[nmhung49]

Em thì thường dùng cái này để bẫy lỗi trong Ubound là mình xác định coi nó có phải là Array hay không dùng Isarray, và "Variant()"

 

[ndu96081631]

Giả sử tại A1:A3 đều có giá trị, nếu dùng Immediate ta viết:

?Ubound(Range([A1],[A20].End(xlUp)).Value,1) thì kết quả sẽ ra 3

Nhưng cũng cấu trúc đó, thì chỉ duy nhất A1 có giá trị hoặc cả 3 ô không có giá trị nào thì sinh lỗi (Run-time Error '13': Type mismacth).

Vẫn biết với Ubound chỉ áp dụng cho mảng 2 chiều, nhưng nếu gặp trường hợp khối ô trên rơi vào 2 trường hợp đó thì phải làm sao để nó hiểu là 1 hoặc 0 ???

Xin cám ơn.

If Range("....").Count = 1 then
'Gì gì đó
Else
'Gì gì tiếp
End If