Lệnh hiện địa chỉ ô hiện hành

[TLDA]

Xin hỏi cả nhà
Cách tạo lệnh tại một ô, mà khi ta di chuyển con trỏ tới ô nào hiện lên địa chỉ tại ô đó?

 

[Hai Lúa Miền Tây]

Xin hỏi cả nhà
Cách tạo lệnh tại một ô, mà khi ta di chuyển con trỏ tới ô nào hiện lên địa chỉ tại ô đó?

Nó có sẵn mà bạn

 

[TLDA]

Vậy, có cách để hiện địa chỉ trong một cell VD tại A1 được không (mà không cần nhìn name box)?

 

[Hai Lúa Miền Tây]

Vậy, có cách để hiện địa chỉ trong một cell VD tại A1 được không (mà không cần nhìn name box)?

Dùng code sau nhé

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Range("a1").Value = ActiveCell.Address

End Sub

 

[ndu96081631]

Vậy, có cách để hiện địa chỉ trong một cell VD tại A1 được không (mà không cần nhìn name box)?

Đương nhiên là có, dùng hàm CELL
- Đặt 1 name tên Addr, có Refers to = CELL("Address")
- Tại A1, gõ công thức = Addr
- Giờ ta chọn 1 cell nào đó rồi bấm F9, sẽ thấy địa chỉ cell hiện hành xuất hiện tại A1

 

[sealand]

Bạn thử ví dụ này di chuyển trong sheet1 nha

 

[ndu96081631]

Bạn thử ví dụ này di chuyển trong sheet1 nha

Mấy cái code SelectionChange này khi dùng phải cẩn thận anh à, nếu không sẽ rắc rối dài dài
Chẳng hạn trong file anh, nó làm cho chức năng copy bị.. toi mạng
Code của anh:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Shapes("Oval 1").Select
  With Selection
    .Top = Target.Top
    .Left = Target.Left + 100
    .Characters.Text = Target.Address
  End With
  Target.Select
End Sub

Em nghĩ nên sửa lại thành vầy:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  With Sheet1.Shapes("Oval 1")
    .Top = Target.Top
    .Left = Target.Left + 100
    .TextFrame.Characters.Text = Target.Address
  End With
End Sub

Chức năng copy vẫn được bảo toàn