Cần giúp đỡ Gán Selection vào tên biến

[hung2412]

Chào các bạn GPE!
Mình có cột dữ liệu như sau, đã được bôi đen (Selection):


Mình có đoạn Code nhưng mà khi chạy bị lỗi (Không hiểu vì sao):

Nhờ các bạn giúp mình với. Xin cảm ơn.

 

[befaint]

giúp - Gán Selection vào tên biến

Sub ChiTheThoi()
Dim bien as Range
Set bien = Selection
End Sub

 

[hung2412]

Sub ChiTheThoi()
Dim bien as Range
Set bien = Selection
End Sub

Cái này tôi biết. Nhưng mà tôi muốn thêm Wsh đằng trước Selection (Kiểu như Set bien=Wsh.Selection chẳng hạn)
Chủ yếu là khi sang File khác thì tham chiếu sang Selection của File này. Ví dụ Vlookup chẳng hạn.

 

[befaint]

tôi biết

1/ Selection là gì? Định nghĩa Selection?
2/ Tồn tại bao nhiêu Selection(s) mà đòi sang file khác?

 

[bebo021999]

Cái này tôi biết. Nhưng mà tôi muốn thêm Wsh đằng trước Selection (Kiểu như Set bien=Wsh.Selection chẳng hạn)
Chủ yếu là khi sang File khác thì tham chiếu sang Selection của File này. Ví dụ Vlookup chẳng hạn.

Khi chọn 1 vùng trên 1 sheet (Chọn bằng chuột, thao tác bằng tay), nghĩa là Selection này đã gắn với 1 vùng, của 1 sheet cụ thể nào đó rồi. Không cần gắn tên sheet phía trước nữa.
Trường hợp của bạn, nếu muốn đặt biến cho vùng thì dùng range mà đặt thôi, không cần selection làm gì

Set Vungtamthoi = Wsh.range("B3").CurrentRegion

(Vùng tạo bởi B3 và các ô khác lận cận có data)