Click vào ô tự cập nhật ngày hiện tại (1 người xem)

[doibuonhokem]

Mình nhớ có 1 file EXCEL mình đã xem qua và chỉ cần click kép chuột vào ô đó thì ngày hôm đó tự động cập nhật và hiển thị lên.
Hiển thị dưới dạng text luôn để cố định ngày đó luôn, không phải dùng hàm Now() nhé.
Các bạn có ai biết code này chia sẻ giúp mình với được không ạ?
Cám ơn nhiều.

 

[PacificPR]

Mình nhớ có 1 file EXCEL mình đã xem qua và chỉ cần click kép chuột vào ô đó thì ngày hôm đó tự động cập nhật và hiển thị lên.
Hiển thị dưới dạng text luôn để cố định ngày đó luôn, không phải dùng hàm Now() nhé.
Các bạn có ai biết code này chia sẻ giúp mình với được không ạ?
Cám ơn nhiều.

Có phải cái này không bạn:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cells(Target.Row, Target.Column) = Format(Now, "m/d/yyyy")
End Sub

 

[doibuonhokem]

Đúng rồi bạn ơi, nhưng làm sao là chỉ có click kép chuột vào ô A1 nó mới hiện còn ô khác thì không ạ?

 

[PacificPR]

Đúng rồi bạn ơi, nhưng làm sao là chỉ có click kép chuột vào ô A1 nó mới hiện còn ô khác thì không ạ?

Bạn sửa như thế này thử xem sao

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cells(1, 1) = Format(Now, "m/d/yyyy")
End Sub

 

[doibuonhokem]

Được rồi cảm ơn bạn nhé.

 

[doibuonhokem]

Hix bị lỗi rồi, mình click vào ô nào nó cũng tự cập nhật.
Nếu ô mình muốn nhập mà mình gộp nhiều ô như thế này thì làm như thế nào ạ?

 

[PacificPR]

Hix bị lỗi rồi, mình click vào ô nào nó cũng tự cập nhật.
Nếu ô mình muốn nhập mà mình gộp nhiều ô như thế này thì làm như thế nào ạ?

Bạn thử với cái này coi sao

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row = 7 And Target.Column = 9 Then
    Cells(Target.Row, Target.Column) = Format(Now, "mm/dd/yyyy")
End If
End Sub

 

[doibuonhokem]

được rồi ạ, cám ơn bạn nhiều nhé.