Hàm IF kết hợp hàm ngày tháng (1 người xem)

[David882011]

Mình cần Hàm IF cho ra kết quả ngày Tháng . VD : Nếu trong cột A1 có dữ liệu (Text) bất kỳ , thì cột F1 sẻ tự động điền vào Ngày Tháng , như Hàm Today vậy .

Các bạn xem files DEMO dùm mình .

Thanks các bạn !!!

 

[phulien1902]

Mình cần Hàm IF cho ra kết quả ngày Tháng . VD : Nếu trong cột A1 có dữ liệu (Text) bất kỳ , thì cột F1 sẻ tự động điền vào Ngày Tháng , như Hàm Today vậy .

Các bạn xem files DEMO dùm mình .

Thanks các bạn !!!

Bạn đã trộn các Cells từ A1:F1, vậy lấy đâu chỗ cho F1 tự động điền .....?

 

[David882011]

Bạn đã trộn các Cells từ A1:F1, vậy lấy đâu chỗ cho F1 tự động điền .....?

Mình cần công thức tự động điền ngày tháng nếu cột A1 có dữ liệu (Text) bất kỳ , còn kết quả trả về cột ngoài khung cũng được .

 

[giaiphap]

Mình cần Hàm IF cho ra kết quả ngày Tháng . VD : Nếu trong cột A1 có dữ liệu (Text) bất kỳ , thì cột F1 sẻ tự động điền vào Ngày Tháng , như Hàm Today vậy .

Các bạn xem files DEMO dùm mình .

Thanks các bạn !!!

Công thức tại E3: =IF(A3<>"";DAY(NOW());"")
Công thức tại F3: =IF(A3<>"";MONTH(NOW());"")

 

[phulien1902]

Bài này có thể dùng Code dưới đây( Tham khảo nhé):

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lr As Long
    lr = ActiveSheet.UsedRange.Rows.Count
    If Not Intersect(Target, Range("A3:A" & lr)) Is Nothing Then
        Target.Offset(, 4).Resize(, 2).Value = Date
    End If
End Sub

 

[David882011]

Công thức tại E3: =IF(A3<>"";DAY(NOW());"")
Công thức tại F3: =IF(A3<>"";MONTH(NOW());"")

Thanks Bạn !!!

 

[David882011]

Bài này có thể dùng Code dưới đây( Tham khảo nhé):

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lr As Long
    lr = ActiveSheet.UsedRange.Rows.Count
    If Not Intersect(Target, Range("A3:A" & lr)) Is Nothing Then
        Target.Offset(, 4).Resize(, 2).Value = Date
    End If
End Sub

Thanks Bạn phulien1902 !!!

 

[David882011]

Thanks Bạn !!!

Bạn giaiphap ơi . công thức bạn cho mình nó báo lỗi trong phần mình bôi màu , bạn xem lại dùm mình nha. =IF(A3<>"";DAY(NOW());"") , =IF(A3<>"";MONTH(NOW());"")

 

[phulien1902]

Bạn giaiphap ơi . công thức bạn cho mình nó báo lỗi trong phần mình bôi màu , bạn xem lại dùm mình nha. =IF(A3<>"";DAY(NOW());"") , =IF(A3<>"";MONTH(NOW());"")

Bạn đổi dấu ; thành dấu , là OK