format date

[taxi51]

Tôi có một vấn đề nhỏ này xin hỏi các bạn ai biết chỉ dùm tôi.
trên bảng tính tôi sử dụng cột A và cột B
Tôi muốn hỏi làm thế nào khi ô B1 không có dữ liệu thí ô A1 trống nhưng khi ô B1 có dữ liệu thì ở ô A1 cũng tự động ghi nhận ngày tháng dữ liệu ô B1 được cập nhật (sẽ không thay đổi giá trị ngày tháng về sau dù B1 được sửa chữa)
Các bạn chỉ dùm tôi có thể dùng công thức gì hay phải sử dụng VBA và code sẽ viết ra sao?
chân thành cám ơn các bạn.

 

[ndu96081631]

Tôi có một vấn đề nhỏ này xin hỏi các bạn ai biết chỉ dùm tôi.
trên bảng tính tôi sử dụng cột A và cột B
Tôi muốn hỏi làm thế nào khi ô B1 không có dữ liệu thí ô A1 trống nhưng khi ô B1 có dữ liệu thì ở ô A1 cũng tự động ghi nhận ngày tháng dữ liệu ô B1 được cập nhật (sẽ không thay đổi giá trị ngày tháng về sau dù B1 được sửa chữa)
Các bạn chỉ dùm tôi có thể dùng công thức gì hay phải sử dụng VBA và code sẽ viết ra sao?
chân thành cám ơn các bạn.

Thử code này xem:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Range("A1:A100"), Target) Is Nothing Then
    If IsEmpty(Target.Offset(, 1)) Then
      With Target.Offset(, 1)
        .NumberFormat = "dd/mm/yyyy"
        .Value = Date
      End With
    End If
  End If
End Sub

 

[hoangminhtien]

Bạn thử dùng đoạn code sau xem có được không nhé!

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Target.Offset(0, -1).Value = Date
End If
End Sub

 

[ndu96081631]

Bạn thử dùng đoạn code sau xem có được không nhé!

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Target.Offset(0, -1).Value = Date
End If
End Sub

Code này không đúng đâu nha! Vì tác giả có nói rằng:

Tôi muốn hỏi làm thế nào khi ô B1 không có dữ liệu thí ô A1 trống nhưng khi ô B1 có dữ liệu thì ở ô A1 cũng tự động ghi nhận ngày tháng dữ liệu ô B1 được cập nhật (sẽ không thay đổi giá trị ngày tháng về sau dù B1 được sửa chữa)
.

Chổ màu đỏ ấy!

 

[sealand]

Mình tham gia thử 1 ví dụ với các nguyên tắc hoạt động:

-Nhập mới số Ctừ ở cột B, cột A sẽ được điền ngày cập nhật.
-Sửa xóa cột B cột A không đổi.
-Không sửa được ngày cập nhật

Code của sheet1 như sau:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Offset(, -1) = "" Then
Application.EnableEvents = False
Sheet1.Unprotect ("12345")
Target.Offset(, -1) = Date
Sheet1.Protect ("12345")
Application.EnableEvents = True
End If
End Sub