CLICK Ô BẤT KỲ TRONG 1 CỘT TỰ ĐỘNG COPY Ô ĐÓ SANG Ô CHỈ ĐỊNH (1 người xem)

[hoangyen69]

Mình đang suy nghĩ việc khi mà mình chọn vào bất kỳ ô nào trong vùng A1 đến B10 thì excel tự động copy giá trị của ô đó qua ô C1, nghĩa là ô A1 có giá trị "ABC", mình click vào ô A1 thì ô C1 hiện "ABC", ô B7 có giá trị "DEF", mình click vào ô B7 thì ô C1 hiện "DEF". Mình gửi file đính kèm, nhờ các bạn xem dùm mình.

 

[phulien1902]

Mình đang suy nghĩ việc khi mà mình chọn vào bất kỳ ô nào trong vùng A1 đến B10 thì excel tự động copy giá trị của ô đó qua ô C1, nghĩa là ô A1 có giá trị "ABC", mình click vào ô A1 thì ô C1 hiện "ABC", ô B7 có giá trị "DEF", mình click vào ô B7 thì ô C1 hiện "DEF". Mình gửi file đính kèm, nhờ các bạn xem dùm mình.

Bạn thử với:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Count > 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub
    If Not Intersect(Target, Range("A1:B10")) Is Nothing Then
        Range("c1").Value = Target.Value
    End If
End Sub

Chú ý: Nháy đúp vào vùng A1:B10 nhé.

 

[vu_tuan_manh_linh]

Dùng đoạn code này là xong thôi:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row < 11 And Target.Column < 3 Then Cells(1, 3).Value = Target.Value
End Sub

 

[hoangyen69]

Cảm ơn bạn phulien1902
Bạn vu_tuan_manh_linh vui lòng cho mình hỏi thêm là nếu ô C1 nằm ở Sheet khác thì mình ghi code thế nào ?

 

[phulien1902]

Cảm ơn bạn phulien1902
Bạn vu_tuan_manh_linh vui lòng cho mình hỏi thêm là nếu ô C1 nằm ở Sheet khác thì mình ghi code thế nào ?

+> Với Code bài #2, bạn sửa dòng:

Range("c1").Value = Target.Value

thành

Sheets("Tên Sheet của bạn").Range("c1").Value = Target.Value

+> Với Code của bạn vutuanmanhlinh, bạn sửa dòng:

Cells(1, 3).Value = Target.Value

thành

Sheets("Tên Sheet của bạn").Cells(1, 3).Value = Target.Value

 

[hoangyen69]

Cảm ơn bạn phulien1902