Code ghi địa chỉ vùng được chọn

[mymichau]

Xin các bạn giúp code ghi địa chỉ vùng được chọn.
VD : khi ta chọn vùng bất kỳ ( có thể là C1:H1) thì cell A1 value ghi là C1:H1.
Mình không dùng Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 

[SA_DQ]

Có thể là vầy chăng:
Bạn chép macro này vô module 1:

Sub GhiDiaChiDaChonVoOB2()
 [B2].Value = Selection.Address
End Sub

Ấn định cho nó tổ hợp phìm tắt, như {CTRL}+{SHIFT}+G
Sau khi dùng chuột chọn 1 vùng trên trang tính, ta bấm tổ hợp 3 phím trên

 

[mymichau]

Dạ đúng rồi. Cám ơn bác SA_DQ nhiều lắm

 

[HeSanbi]

Nếu chỉ nhìn để dể phân biệt thì nên hiện vùng chọn dưới thanh Status:

-----------------------------

'Copy vào Code ThisWorkbook'
Private DTime As Date
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  CancelOnTime
  Application.StatusBar = "Range: " & Target.Address(0, 0)
  DTime = Now + TimeSerial(0, 0, 3)
  Application.OnTime DTime, "'" & ThisWorkbook.Name & "'!" & ThisWorkbook.CodeName & ".DelStatus", , True
End Sub
Private Sub CancelOnTime()
  On Error Resume Next
  Application.OnTime DTime, "'" & ThisWorkbook.Name & "'!" & ThisWorkbook.CodeName & ".DelStatus", , False
End Sub
Private Sub DelStatus()
  Application.StatusBar = ""
End Sub

 

[hongphuong1997]

Nếu chỉ nhìn để dể phân biệt thì nên hiện vùng chọn dưới thanh Status:

-----------------------------

'Copy vào Code ThisWorkbook'
Private DTime As Date
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  CancelOnTime
  Application.StatusBar = "Range: " & Target.Address(0, 0)
  DTime = Now + TimeSerial(0, 0, 3)
  Application.OnTime DTime, "'" & ThisWorkbook.Name & "'!" & ThisWorkbook.CodeName & ".DelStatus", , True
End Sub
Private Sub CancelOnTime()
  On Error Resume Next
  Application.OnTime DTime, "'" & ThisWorkbook.Name & "'!" & ThisWorkbook.CodeName & ".DelStatus", , False
End Sub
Private Sub DelStatus()
  Application.StatusBar = ""
End Sub

Sao không thấy gì hở anh?
Anh đăng cả file lên để bà con xem với