Hiển thị Cell được chọn

[mymichau]

Không rỏ có cách nào khi ta chọn 1 cell bất kỳ, thì trong cell ( được chỉ định ) sẽ cho kết quả tên của cell đang được chọn. Nếu có cách, nhờ các bạn chỉ giúp. Xin Cám ơn. Có vì dụ trong file kèm theo.

 

[SoiBien]

bạn dùng đoạn code sau:

[COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] Worksheet_SelectionChange([COLOR=darkblue]ByVal[/COLOR] Target [COLOR=darkblue]As[/COLOR] Range)
    Range("e3").Value = Target.Address(False, False)
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]

click phải vảo sheet name tab, chọn view code, rồi bạn dán đoạn code này vào.

nếu dùng công thức thì tại ô e3, bạn nhập công thức sau:
=cell("address")
Thân.

 

[mymichau]

Cám ơn bạn Soibien rất nhiệt tình giúp . Cũng ví dụ trên, cell E3 hiển thị nội dung của cell đang được chọn thì làm sao. Mong bạn giúp tiếp.

 

[tedaynui]

Cũng ví dụ trên, cell E3 hiển thị nội dung của cell đang được chọn thì làm sao. Mong bạn giúp tiếp.

Vậy thì bạn dán đoạn code sau :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("E3").Value = Target.Value
End Sub

TDN

 

[SoiBien]

còn nếu dùng công thức thì tại e3 bạn nhập: = indirect(cell("address"))
nó sẽ báo lỗi khi bạn nhập xong, cứ chọn cancell là được

 

[ThuNghi]

còn nếu dùng công thức thì tại e3 bạn nhập: = indirect(cell("address"))
nó sẽ báo lỗi khi bạn nhập xong, cứ chọn cancell là được

Nếu bỏ sự kiện change thì ct trên có OK?
Còn muốn hiện công thức nếu target là công thức thì sao nhỉ.

 

[SoiBien]

Nếu bỏ sự kiện change thì ct trên có OK?
Còn muốn hiện công thức nếu target là công thức thì sao nhỉ.

Dạ, công thức trên vẫn OK bác ạ (nhưng phải nhấn F9).
Còn hàm cell của Excel thì không thấy có tùy chọn gì về công thức, nếu bác muốn hiển thị công thức thay vì value thì bác phải dùng sự kiện change với code này thôi ạ:

[color=darkblue]Private[/color] [color=darkblue]Sub[/color] Worksheet_SelectionChange([color=darkblue]ByVal[/color] Target [color=darkblue]As[/color] Range)
    Range("e3") = "'" & CStr(Target.Formula)
[color=darkblue]End[/color] [color=darkblue]Sub[/color]