Xin chỉ giúp Excel báo lỗi điều kiện của mảng

[vmhieu.cdcs]

Nhờ anh/chị xem giúp câu lệnh Select bị bắt lỗi mảng b (cột b) này hoài. trong khi cửa sổ Local thì thấy mảng o(cột O) mảng kết quả trả về giá trị đúng. Xin chỉ giúp ạ, Xin cảm ơn

 

[HieuCD]

Nhờ anh/chị xem giúp câu lệnh Select bị bắt lỗi mảng b (cột b) này hoài. trong khi cửa sổ Local thì thấy mảng o(cột O) mảng kết quả trả về giá trị đúng. Xin chỉ giúp ạ, Xin cảm ơn
View attachment 267840

Chỉnh for i=1 to lr thành
for i=1 to ubound(b)
Tự kiểm tra khác nhau lr và ubound(b)

 

[Hoàng Tuấn 868]

Bạn thử lại nhé

 

[vmhieu.cdcs]

Chỉnh for i=1 to lr thành
for i=1 to ubound(b)
Tự kiểm tra khác nhau lr và ubound(b)

Xin cảm ơn bạn rất nhiều

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

Bạn thử lại nhé.

Cảm ơn bạn rất nhiều

 

[HUONGHCKT]

Nhờ anh/chị xem giúp câu lệnh Select bị bắt lỗi mảng b (cột b) này hoài. trong khi cửa sổ Local thì thấy mảng o(cột O) mảng kết quả trả về giá trị đúng. Xin chỉ giúp ạ, Xin cảm ơn
View attachment 267840

Bạn sửa lại code nhé.

Sub mau()
Dim b(), o()
Dim i As Long
Dim LR As Long
Set Sh = Sheets("DsHoTroCovid")
    LR = Sh.Range("B" & Rows.Count).End(xlUp).Row
    b = Sh.Range("B2:B" & LR).Value
    ReDim o(1 To UBound(b), 1 To 1)
    
    For i = 1 To UBound(b)
    If b(i, 1) = "NQ11621" Then
        o(i, 1) = "3B"
    Else
        o(i, 1) = "3A"
    End If
    Next
    Sh.[O2].Resize(UBound(b), 1) = o
End Sub

Sai ở chỗ khai báo lại kích thước mảng o (redim o(1 to LR,1))
Sai ở chỗ gán mảng xuống sh (Sheet1.range("o2").resize(ubound(b(i,1),1)
Duyệt các phần tử của mảng không nên dùng chỉ số của Sh (for i=1 to LR) thay bằng For i = 1 to Ubound(b)
Nên sử dụng IF... then với 2 giá trị cần gán (3A, 3B) có lẽ hay hơn là select ....case

 

[vmhieu.cdcs]

Bạn sửa lại code nhé.

Sub mau()
Dim b(), o()
Dim i As Long
Dim LR As Long
Set Sh = Sheets("DsHoTroCovid")
    LR = Sh.Range("B" & Rows.Count).End(xlUp).Row
    b = Sh.Range("B2:B" & LR).Value
    ReDim o(1 To UBound(b), 1 To 1)
   
    For i = 1 To UBound(b)
    If b(i, 1) = "NQ11621" Then
        o(i, 1) = "3B"
    Else
        o(i, 1) = "3A"
    End If
    Next
    Sh.[O2].Resize(UBound(b), 1) = o
End Sub

Sai ở chỗ khai báo lại kích thước mảng o (redim o(1 to LR,1))
Sai ở chỗ gán mảng xuống sh (Sheet1.range("o2").resize(ubound(b(i,1),1)
Duyệt các phần tử của mảng không nên dùng chỉ số của Sh (for i=1 to LR) thay bằng For i = 1 to Ubound(b)
Nên sử dụng IF... then với 2 giá trị cần gán (3A, 3B) có lẽ hay hơn là select ....case

Cảm ơn rất nhiều ạ