Công thức giữ nguyên ngày và hàm dò tìm (1 người xem)

[tvquan41]

Em có hai vấn đề gặp phải khi tạo dữ liệu, mong các anh/chị giúp:
Thứ nhất: Giá trị dò tìm không có trong bảng dò tìm thì phải làm sao để nó lấy giá trị tại ô dò tìm?
Thứ hai: Dùng hàm TODAY() để tự động hiển thị ngày nhưng ngày hôm sau lại thay đổi, em muốn cố định ngày ngày thì dùng hàm gì?
Vấn đề này được đề cập trong file đính kèm, mong nhận được sự giúp đỡ của anh/chị!

 

[nghiaphuc]

Em có hai vấn đề gặp phải khi tạo dữ liệu, mong các anh/chị giúp:
Thứ nhất: Giá trị dò tìm không có trong bảng dò tìm thì phải làm sao để nó lấy giá trị tại ô dò tìm?
Thứ hai: Dùng hàm TODAY() để tự động hiển thị ngày nhưng ngày hôm sau lại thay đổi, em muốn cố định ngày ngày thì dùng hàm gì?
Vấn đề này được đề cập trong file đính kèm, mong nhận được sự giúp đỡ của anh/chị!

- Vấn đề thứ nhất: Bạn có thể sử dụng hàm IF, ví dụ: =IF(COUNTIF($A$4:$A$6,B2)=0,B1,VLOOKUP(B2,$A$4:$B$6,2,0))
- Vấn đề thứ hai: Đương nhiên hàm TODAY() trả về ngày hiện tại theo giờ hệ thống thì nó sẽ được tự động cập nhật. Do đó, tốt nhất bạn nên nhập ngày một cách thủ công. Nếu không muốn nhập thủ công thì sử dụng VBA (sự kiện Worksheet_Change) để phát sinh ngày (chỉ là giá trị, không phải hàm).

 

[tvquan41]

- Vấn đề thứ nhất: Bạn có thể sử dụng hàm IF, ví dụ: =IF(COUNTIF($A$4:$A$6,B2)=0,B1,VLOOKUP(B2,$A$4:$B$6,2,0))
- Vấn đề thứ hai: Đương nhiên hàm TODAY() trả về ngày hiện tại theo giờ hệ thống thì nó sẽ được tự động cập nhật. Do đó, tốt nhất bạn nên nhập ngày một cách thủ công. Nếu không muốn nhập thủ công thì sử dụng VBA (sự kiện Worksheet_Change) để phát sinh ngày (chỉ là giá trị, không phải hàm).

Thanks bạn nhiều!
Công thức thì mình biết chút chút chứ VBA thì....bó tay and bó chân. Bạn có thể cho mình xin cái code VBA đó không?

 

[nghiaphuc]

Thanks bạn nhiều!
Công thức thì mình biết chút chút chứ VBA thì....bó tay and bó chân. Bạn có thể cho mình xin cái code VBA đó không?

Bạn nháy chuột phải tại nhãn Sheet1, chọn View code và dán đoạn code này vào:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Or Target.Column <> 2 Then Exit Sub
    If Target <> "" Then Target.Offset(, -1) = Date
End Sub

Bây giờ bạn thử nhập tên vào cột B xem sao nhé.

 

[tvquan41]

Bạn nháy chuột phải tại nhãn Sheet1, chọn View code và dán đoạn code này vào:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Or Target.Column <> 2 Then Exit Sub
    If Target <> "" Then Target.Offset(, -1) = Date
End Sub

Bây giờ bạn thử nhập tên vào cột B xem sao nhé.

Rất hay!!! Thanks bạn, mình sẽ chờ đến ngày mai xem nó có đổi không!

 

[nghiaphuc]

Rất hay!!! Thanks bạn, mình sẽ chờ đến ngày mai xem nó có đổi không!

Cần gì phải chờ đến ngày mai nhỉ, bạn chỉ cần thay đổi ngày giờ hệ thống trong máy là có thể kiểm tra được điều này. Mình chắc chắn rằng bạn có chờ đến sang năm thì nó cũng không đổi, bời vì đây chỉ là giá trị chứ không phải công thức.