Giúp mình hàm chỉ vị trí của cell đang đứng nhé (1 người xem)

[bhquachtuong]

ví dụ mình đang chọn ô A4. vậy mình viết lệnh vba thế nào để hiện thị nội dung (msgbox) là đang ở vị trí ô A4. Tương tự nếu mình chọn ô khác thì khi mình chạy code nó tự động chỉ sang ô mình đã chọn.
Các bạn giúp mình nhé

 

[phulien1902]

ví dụ mình đang chọn ô A4. vậy mình viết lệnh vba thế nào để hiện thị nội dung (msgbox) là đang ở vị trí ô A4. Tương tự nếu mình chọn ô khác thì khi mình chạy code nó tự động chỉ sang ô mình đã chọn.
Các bạn giúp mình nhé

Sub abc1()
MsgBox Range("A4").Address
End Sub

Hoặc:

Sub abc2()
MsgBox ActiveCell.Address
End Sub

Hoặc:

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

 

[anhtuanle123]

ô đang chọn mình hay dùng là
MsgBox Selection.address

 

[bhquachtuong]

cám ơn phulien1902 và anhtuanle123 nhé

 

[Hoang2013]

Cái này sẽ có trường hợp vầy nè:

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

Nếu tôi dùng chuột chọn bắt đầu từ [D35] đến ô [B5] thì báo khác với khi chọn từ [B5] tới [D35]

 

[phulien1902]

Cái này sẽ có trường hợp vầy nè:

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

Nếu tôi dùng chuột chọn bắt đầu từ [D35] đến ô [B5] thì báo khác với khi chọn từ [B5] tới [D35]

Cảm ơn chú, cháu sửa lại:

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

 

[ndu96081631]

Cảm ơn chú, cháu sửa lại:

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

Sao không là MsgBox Target.Address mà cứ cố thêm With... End With vào cho thừa thế không biết?
---------------------------

ô đang chọn mình hay dùng là
MsgBox Selection.address

Selection không phải lúc nào cũng là Range. Tức code này sẽ có khi bị lỗi, chẳng hạn khi bạn đang chọn vào 1 hình vẽ nào đó rồi chạy code