nhập lệnh bằng chuột

[nhatthuc147]

em dùng VBA để lập trình,khi viết lệnh có một vùng dữ liệu em muốn rằng người sử dụng dùng chuột để nhập nó chứ không phải viết thẳng vùng dữ liệu đó vào lệnh, em phải làm sao, ví dụ em dùng chuột bôi một cùng dữ liệu, sau đó em muốn dùng một lệnh để đưa ô đầu tiên của vùng dữ liệu đó có giá trị 0. giúp em với.

 

[SA_DQ]

Bạn thử nghiệm với đoạn mã sau:

Option Explicit
Sub SetValue()
    Dim Mang, Rng As Range
    Set Rng = Selection
    Mang = Rng
    MsgBox Rng.Address
    Rng(1, 1) = 0
    
End Sub

Bạn chọn trước 1 vùng tối thiểu 2 ô & sẽ thấy sản phẩm mà macro đem lại!

Chúc ngon giấc!