Mình có câu hỏi về "Selection" trong VBA

[ptlong04x1]

Trong VBA, nếu mình gõ vào Activecell thì ngay lập tức VBA sẽ hiện ra 1 list thuộc tính và phương thức để người dùng lựa chọn. Nhưng khi gõ vào "Selection." thì lại chẳng có gì hiện ra cả, vì vậy mình phải tự gõ vào các thuộc tính và phương thức, việc này hơi mất thời gian. Bạn nào có cách để khi gõ vào "Selection." thì cũng được kết quả như "Activecell." thì giúp mình với. Cảm ơn!

 

[hoangvuluan]

Selection

Trong VBA, nếu mình gõ vào Activecell thì ngay lập tức VBA sẽ hiện ra 1 list thuộc tính và phương thức để người dùng lựa chọn. Nhưng khi gõ vào "Selection." thì lại chẳng có gì hiện ra cả, vì vậy mình phải tự gõ vào các thuộc tính và phương thức, việc này hơi mất thời gian. Bạn nào có cách để khi gõ vào "Selection." thì cũng được kết quả như "Activecell." thì giúp mình với. Cảm ơn!

Bản thân selection không được nhận biết như một đối tượng đơn (vì nó có thể thuộc về một object nào đó), do đó VBE không thể biết được cần đưa ra những thuộc tính hay phương pháp tương ứng với selection.
Nếu selection của bạn là một range thì đơn giản là bạn dùng các câu lệnh:

dim rng as range
set rng = selection

sau đó truy xuất đến rng.

Thân!

 

[ndu96081631]

Trong VBA, nếu mình gõ vào Activecell thì ngay lập tức VBA sẽ hiện ra 1 list thuộc tính và phương thức để người dùng lựa chọn. Nhưng khi gõ vào "Selection." thì lại chẳng có gì hiện ra cả, vì vậy mình phải tự gõ vào các thuộc tính và phương thức, việc này hơi mất thời gian. Bạn nào có cách để khi gõ vào "Selection." thì cũng được kết quả như "Activecell." thì giúp mình với. Cảm ơn!

Cách làm thì bạn hoangvuluan đã nói rồi... Tôi thì hay dùng cách khác (nếu không muốn đặt thêm biến):
- Với Selection, tôi thay nó bằng Range(gì gì đó) hoặc ActiveCell ---> Sau khi làm xong, sửa lại thành Selection
- Với Sheets(... ) tôi thay bằng Sheet1, Sheet2... vân vân... Làm xong rồi lại sửa thành Sheets(...)

 

[tuleanhbd]

Cho mình hỏi, nếu mình muốn nhập nhiều ô, nhiều vùng khác nhau cùng 1 dữ liệu, ví dụ số 5 chẳng hạn, thì cú pháp chọn vùng động này như thế nào (dữ liệu mình gán vào 1 nút nhấn, chọn vùng hoặc ô xong nhấn nút tự nhập dữ liệu)

 

[SA_DQ]

Xài thử phương thức Union:

Sub Thu()
 Union([B2:B13], Range("C3: D5"), [F1].Offset(, 3).Resize(2, 3)).Value = "GPE.COM"
End Sub