xin cho hỏi về hàm ngày tháng

[hungvu]

mình muốn là khi nhập bất kỳ ký tự nào vào ô B1 thì ô A1 sẽ nhảy thông tin ve ngày tháng năm của hôm đó. mình có làm 1 cong thức thế này if(B1="","",now()) nhưng có 1 sự cố là ví dụ hôm 8/7/2011 mình nhập dữ liệu vào o B1 thi o A1 no hien thông tin 8/7/2011 sau đó mình save lại rồi sang hôm sau 9/7/2011 mình mở file lên thì toàn bộ ngày tháng của dữ liệu hôm trước đều nhảy thành 9/7/2011 hết. vậy mình phải làm sao để ngày tháng ko bị nhảy như thế
Thanks

 

[duongdv]

mình muốn là khi nhập bất kỳ ký tự nào vào ô B1 thì ô A1 sẽ nhảy thông tin ve ngày tháng năm của hôm đó. mình có làm 1 cong thức thế này if(B1="","",now()) nhưng có 1 sự cố là ví dụ hôm 8/7/2011 mình nhập dữ liệu vào o B1 thi o A1 no hien thông tin 8/7/2011 sau đó mình save lại rồi sang hôm sau 9/7/2011 mình mở file lên thì toàn bộ ngày tháng của dữ liệu hôm trước đều nhảy thành 9/7/2011 hết. vậy mình phải làm sao để ngày tháng ko bị nhảy như thế
Thanks

Vậy bạn nói rõ ô B1 bạn nhập dữ liệu như thế nào vậy? Liệu có thể dựa vào ô B1 để xây dựng công thức cho ô A1 không? Còn bạn sử dụng hàm now() hàm này trả về ngày tháng hiện tại theo đồng hồ hệ thống nên nó thay đổi theo từng ngày là đương nhiên rồi

 

[nghiaphuc]

mình muốn là khi nhập bất kỳ ký tự nào vào ô B1 thì ô A1 sẽ nhảy thông tin ve ngày tháng năm của hôm đó. mình có làm 1 cong thức thế này if(B1="","",now()) nhưng có 1 sự cố là ví dụ hôm 8/7/2011 mình nhập dữ liệu vào o B1 thi o A1 no hien thông tin 8/7/2011 sau đó mình save lại rồi sang hôm sau 9/7/2011 mình mở file lên thì toàn bộ ngày tháng của dữ liệu hôm trước đều nhảy thành 9/7/2011 hết. vậy mình phải làm sao để ngày tháng ko bị nhảy như thế
Thanks

Hàm NOW() trả về ngày giờ hệ thống trên máy tính nên nó sẽ tự động cập nhật là chuyện đương nhiên. Nếu muốn nhập ngày tháng tự động và không bị nhảy như vậy thì bạn có thể sử dụng VBA. Code như vầy cho sheet muốn áp dụng:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cll As Range
    If Target.Column <> 2 Then Exit Sub
    For Each Cll In Intersect(Target, [B:B])
        Cll.Offset(, -1) = IIf(Cll = "", "", Date)
    Next
End Sub

 

[hungvu]

excel mình chỉ biết viết các hàm công thức đơn giản thôi còn sử dụng VBA nhu ban nghiaphuc noi thi minh potay. vay làm sao để mình đưa đoạn code trên vào excel bây giờ? bạn giúp mình luôn đi
Thanks

 

[nghiaphuc]

excel mình chỉ biết viết các hàm công thức đơn giản thôi còn sử dụng VBA nhu ban nghiaphuc noi thi minh potay. vay làm sao để mình đưa đoạn code trên vào excel bây giờ? bạn giúp mình luôn đi
Thanks

Bạn click chuột phải vào nhãn sheet muốn áp dụng, sau đó chọn View code và dán đoạn code trên vào là được.
Thêm một lưu ý nữa là bạn phải Enable macro thì code mới chạy được đấy nhé. Cách làm như sau:
- Trên Excel 2003: Chọn Tools\Macro\Security --> chọn Medium hoặc Low --> OK.
- Trên Excel 2007, 2010: Chọn Excel options, chọn nhóm Trust center và nhấn nút Trust center settings --> Chọn nhóm Macro settings và chọn Enable all macros --> OK --> OK.