Lệnh select ? (1 người xem)

[Hoàng Nhật Phương]

Xin chào các bạn,

Tôi đang vướng một trường hợp như sau:
Với file đính kèm,

Khi tôi muốn lựa chọn ô B16, tôi dùng câu lệnh:

Range("B" & Range("B1048576").End(xlUp).Row+1).Select 'B16

Khi tôi muốn lựa chọn ô B23, tôi dùng câu lệnh:

Range("B" & Range("E1048576").End(xlUp).Row).Select 'B23

Vậy khi tôi muốn lựa chọn vùng B16:B23, thì câu lệnh phải viết như thế nào?
Các bạn giúp tôi trường hợp này với ạ.

 

[ChanhTQ@]

Có thể có lỗi, nhưng là mã lỗi Err =1004, nên VBE "cho qua"

Ngoài ra bạn có rỗi nên hiểu thêm về mã lỗi & hàm báo mã lỗi; Bằng macro sau

For J =1 To 9999
Cells(j,"A").value= Err: Cells(J,"C").value=Error()
Next J

 

[Hoàng Nhật Phương]

Có thể có lỗi, nhưng là mã lỗi Err =1004, nên VBE "cho qua"

Ngoài ra bạn có rỗi nên hiểu thêm về mã lỗi & hàm báo mã lỗi; Bằng macro sau

For J =1 To 9999
Cells(j,"A").value= Err: Cells(J,"C").value=Error()
Next J

Xin chào ChanhTQ@
Tôi chạy code:

Sub zivay()
    For J = 1 To 9999
        Cells(J, "A").Value = Err: Cells(J, "C").Value = Error()
    Next J
End Sub

kết quả trả về từ ô A1:A9999 là duy nhất một số 0.
Bạn có thể chỉ dẫn thêm cho tôi code trên mục đích là gì được không ạ?

 

[ChanhTQ@]

À, mình sai rồi

For J =1 To 9999
     Cells(j,"A").value= J:   Cells(J,"C").value=Error(J) 
Next J