Học cách khai báo vùng chọn (1 người xem)

[HUYNHTIEN0202]

Học thêm cách khai báo vùng chọn ,ngoài những cách sau còn có cách nào khác nhờ các anh chỉ dẫn thêm.

 Arr = Range([B4], [B65536].End(xlUp)).Resize(, 6).Value

 Arr = Range([B4], [B65536].End(xlDown)).Resize(, 6).Value

 With Sheet1
 Arr = .Range(.[B4],.[B65536].End(xlUp)).Resize(, 6).Value
End With

 With Sheet1
     Arr= .[B4].Resize(.[B65536].End(xlUp).Row, 6).Value
End With

 

[phihndhsp]

Arr = Range([B4], [B65536].End(xlDown)).Resize(, 6).Value

cái này hơi bị nghi ngờ à nha

 

[HUYNHTIEN0202]

cái này hơi bị nghi ngờ à nha

 Arr = Range([B4], [B4].End(xlDown)).Resize(, 6).Value

Vậy đúng không anh

 

[phihndhsp]

nếu có 1 dòng trống xen giữa thì sao ta?

 

[VetMini]

nếu có 1 dòng trống xen giữa thì sao ta?

Bạn biết người ta muốn chọn cái gì? biết đâu ý người ta chỉ muốn đến dòng trống đó thôi?

Nhưng chung quy thì code này sẽ có vấn đề nếu dữ liệu không có gì cả kể từ B5. Cứ chạy thử thì biết.

 

[HUYNHTIEN0202]

Bạn biết người ta muốn chọn cái gì? biết đâu ý người ta chỉ muốn đến dòng trống đó thôi?

Nhưng chung quy thì code này sẽ có vấn đề nếu dữ liệu không có gì cả kể từ B5. Cứ chạy thử thì biết.

Nếu B5 trống thì mình khai cách này được không anh.

Arr = Range("B4:B5000").Resize(, 6).Value

Ý mình muốn ngoài những cách khai báo trên còn có cách nào khác nữa không

 

[VetMini]

Tôi chỉ cần nhắc thôi. Tại sao bạn lại phải hỏi được hay không?
Trong tất cả các dòng code của bạn, bạn chỉ cần thay "Arr =" với "MsgBox"; và "Value" với "Address". Chạy thử thì sẽ biết kết quả có đúng ý mình hay không thôi.

Những người nói câu "muốn biết thì phải hỏi" là nói chưa hết. Nói cho chuẩn thì phải thêm "muốn biết thì phải hỏi, muốn rõ thì phải thử".
Người hỏi nhiều thì sẽ học được nhiều, nhưng đồng thời phải thử nhiều mới thấu đáo những gì học được.
Chạy thử có mất tiền đâu mà sợ

vì bạn chưa quen thử cho nên tôi mách thêm cách thử như sau:
gõ số 1 vào ô B4, B5, B6, B7
chạy thử: code nào không cho ra $B$4$G$7 là code đó sai
xóa ô B6, chạy thử: xem lại có đúng ý?
xóa ô ..., chạy thử

 

[HUYNHTIEN0202]

Tôi chỉ cần nhắc thôi. Tại sao bạn lại phải hỏi được hay không?
Trong tất cả các dòng code của bạn, bạn chỉ cần thay "Arr =" với "MsgBox"; và "Value" với "Address". Chạy thử thì sẽ biết kết quả có đúng ý mình hay không thôi.

Những người nói câu "muốn biết thì phải hỏi" là nói chưa hết. Nói cho chuẩn thì phải thêm "muốn biết thì phải hỏi, muốn rõ thì phải thử".
Người hỏi nhiều thì sẽ học được nhiều, nhưng đồng thời phải thử nhiều mới thấu đáo những gì học được.
Chạy thử có mất tiền đâu mà sợ

vì bạn chưa quen thử cho nên tôi mách thêm cách thử như sau:
gõ số 1 vào ô B4, B5, B6, B7
chạy thử: code nào không cho ra $B$4$G$7 là code đó sai
xóa ô B6, chạy thử: xem lại có đúng ý?
xóa ô ..., chạy thử

Anh làm cho em 1 cái ví dụ được không
cám ơn anh nhiều