Giúp mình code VBA chỉ Range đang chỉ định (1 người xem)

[bhquachtuong]

Các bạn chỉ mình code vba chỉ range mình đang quét khối. VD mình đang quét khối từ ô (A1 : D5) khi mình thực hiện chạy code thì hiện msgbox là "vùng đang được chọn là A1 : D5". Tương tự mình quét khối bất kỳ vùng nào khi thực hiện code thì nó sẽ thông báo vùng mình chọn là vùng mình đã quét khối.
Các bạn giúp mình nhé

 

[HieuCD]

Selection.Address

 

[phulien1902]

Các bạn chỉ mình code vba chỉ range mình đang quét khối. VD mình đang quét khối từ ô (A1 : D5) khi mình thực hiện chạy code thì hiện msgbox là "vùng đang được chọn là A1 : D5". Tương tự mình quét khối bất kỳ vùng nào khi thực hiện code thì nó sẽ thông báo vùng mình chọn là vùng mình đã quét khối.
Các bạn giúp mình nhé

Bạn thử:

Sub abc()
    Dim a As Range
    Set a = Application.InputBox("Quet vung du lieu: ", Type:=8)
    MsgBox "Dia chi la:" & a.Address
End Sub

Hoặc:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
           MsgBox Target.Address
 End Sub

 

[ndu96081631]

Các bạn chỉ mình code vba chỉ range mình đang quét khối. VD mình đang quét khối từ ô (A1 : D5) khi mình thực hiện chạy code thì hiện msgbox là "vùng đang được chọn là A1 : D5". Tương tự mình quét khối bất kỳ vùng nào khi thực hiện code thì nó sẽ thông báo vùng mình chọn là vùng mình đã quét khối.
Các bạn giúp mình nhé

Chính xác (có bẫy lỗi) nó sẽ là vầy:

If TypeOf Selection Is Range Then MsgBox Selection.Address

 

[bhquachtuong]

cám ơn các bạn