chỉ chuột vào ô nào thì giá trị của A1 bang giá trị của ô đó

[danhdanh81]

Nhờ các cao thủ giúp em một vấn đề. VD: Nếu click chuột vào ô c11 thì giá trị của A1=c11....

 

[cadafi]

cái này dùng VBA mới được, bạn thử code này xem sao! Nhớ chép vào sheet cần thao tác nha.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then [A1].Value = Target.Value
End Sub

--------------
PS: nhờ các Mod chuyển hộ vào box lập trình/giải thích Code giúp.

 

[ndu96081631]

cái này dùng VBA mới được, bạn thử code này xem sao! Nhớ chép vào sheet cần thao tác nha.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then [A1].Value = Target.Value
End Sub

--------------
PS: nhờ các Mod chuyển hộ vào box lập trình/giải thích Code giúp.

Một cách khác dùng công thức
1> Tạo 1 name:
ActiveCell = INDIRECT(CELL("Address"))
2> Tại cell A1 gõ vào công thức:
=ActiveCell
3> Mổi khi dùng chuột chọn cell nào đó, hãy bấm F9 để cập nhật kết quả