Hỏi về hàm today() (5 người xem)

[ndu96081631]

như vầy là đúng rồi thnkanh nhiều nhiều lắm, cách chèn VB vào Excel như thế nào mong thỉnh giáo

Bạn bấm Alt + F11, vào cửa số VBA rồi Double Click vào Module (nếu nhìn thấy có Module ở khung trái)... hoặc Double Click vào từng sheet... sẽ nhìn thấy code
Cách chèn code cũng tương tự.. quan trọng là chèn đúng chổ!
Ví dụ: với code này mà chèn vào Module thì chả đời nào nó chạy... hoặc chèn lộn sheet cũng tịt luôn!

 

[Hai Lúa Miền Tây]

Vậy thì đơn giản thôi:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Range("E18:E100"), Target) Is Nothing And Target.Count = 1 Then
    With Target
      .Offset(, -2) = Now
      .NumberFormat = "dd/mm/yyyy"
    End With
  End If
End Sub

Xem file và nhập thử vào cột E xem!

Xin lỗi anh ndu96081631 không hiểu tại sao máy em nó nhảy không đúng theo định dạng "dd/mm/yyyy" mà nó nhảy theo dạng "dd/mm/yyyy hh:mm:ss" . Em xin sửa lại định dạng như sau:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Range("E18:E100"), Target) Is Nothing And Target.Count = 1 Then
    With Target
      .Offset(, -2) [COLOR=blue]= Format(Now, "dd/mm/yyyy")[/COLOR]
    '  [COLOR=green].NumberFormat = "dd/mm/yyyy"[/COLOR]
    End With
  End If
End Sub

 

[ndu96081631]

Xin lỗi anh ndu96081631 không hiểu tại sao máy em nó nhảy không đúng theo định dạng "dd/mm/yyyy" mà nó nhảy theo dạng "dd/mm/yyyy hh:mm:ss" . Em xin sửa lại định dạng như sau:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Range("E18:E100"), Target) Is Nothing And Target.Count = 1 Then
    With Target
      .Offset(, -2) [COLOR=blue]= Format(Now, "dd/mm/yyyy")[/COLOR]
    '  [COLOR=green].NumberFormat = "dd/mm/yyyy"[/COLOR]
    End With
  End If
End Sub

Ah...
Dù là thế bạn cũng đừng nên dùng Format(... gì gì đó...) ---> Thế hóa ra nó là TEXT à!
Thay NOW thành DATE là được rồi
(giống như NOW() và TODAY() của hàm Excel ấy)
tức:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Range("E18:E100"), Target) Is Nothing And Target.Count = 1 Then
    With Target
      .Offset(, -2) = Date
    '  .NumberFormat = "dd/mm/yyyy"
    End With
  End If
End Sub