tạo ngày tháng tự động khi mở file

[minhbinhdinh78]

mong các bạn xem file và giúp cho.cảm ơn nhiều

 

[A Rainbow]

Bạn chọn ô sẽ dùng ghi ngày tháng và đặt hàm như sau: =today()
Như vậy khi bạn mở ra sẽ tự động cập nhập ngày cho bạn.

 

[thinhvd]

mong các bạn xem file và giúp cho.cảm ơn nhiều

Trả hàng cho bạn nhé. Dùng VBA
Đoạn code chính. Và lập trình thêm sự kiện Open. Khi mở file tự động nhảy ngày

Sub NewDateRow()
    Dim i&, d&
    Dim test As Boolean
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("bao hong")
    d = sh.Range("B" & sh.Rows.Count).End(xlUp).Row
    test = False
    For i = 1 To d
        If sh.Cells(i, 2).Value = Date Then
            test = True
            Exit Sub
        End If
    Next i
    If test = False Then sh.Cells(d + 1, 2).Value = Date
End Sub

 

[minhbinhdinh78]

cảm ơn rất nhiều

 

[thinhvd]

cảm ơn rất nhiều

không có gì. Học khóa VBA cơ bản là làm được đoạn lệnh này thôi

 

[phongky2013]

Nếu không muốn ngày giờ tự cập nhật (chỉ lấy ngày giờ tại thời điểm theo ý muốn mà ko cập nhật khi mở file) thì tham khảo:

C1:

C2:

 

[Kin7]

không có gì. Học khóa VBA cơ bản là làm được đoạn lệnh này thôi

Thô quá.

 

[chungtalabanls]

mong các bạn xem file và giúp cho.cảm ơn nhiều

Cái này hay hơn nè, khỏi phải VBA gì hết. Đơn giản cho dễ hiểu và dễ áp dụng:
="Ngày "&DAY(TODAY())&" Tháng "&MONTH(TODAY())&" Năm "&YEAR(TODAY())

Ví dụ Kết quả sẽ ra thế này:

Ngày 21 Tháng 6 Năm 2017

[TBODY] [/TBODY]

 

[Kin7]

Cái này hay hơn nè, khỏi phải VBA gì hết. Đơn giản cho dễ hiểu và dễ áp dụng:
="Ngày "&DAY(TODAY())&" Tháng "&MONTH(TODAY())&" Năm "&YEAR(TODAY())

Ví dụ Kết quả sẽ ra thế này:

Ngày 21 Tháng 6 Năm 2017

[TBODY] [/TBODY]

Còn 1 cách hay hơn và đơn giản hơn của bạn nhiều.

 

[The Hoang]

Cái này hay hơn nè, khỏi phải VBA gì hết. Đơn giản cho dễ hiểu và dễ áp dụng:
="Ngày "&DAY(TODAY())&" Tháng "&MONTH(TODAY())&" Năm "&YEAR(TODAY())

Ví dụ Kết quả sẽ ra thế này:

Ngày 21 Tháng 6 Năm 2017

[TBODY] [/TBODY]

Bạn dùng format cell cho gọn nhé.

 

[thinhvd]

Cái này hay hơn nè, khỏi phải VBA gì hết. Đơn giản cho dễ hiểu và dễ áp dụng:
="Ngày "&DAY(TODAY())&" Tháng "&MONTH(TODAY())&" Năm "&YEAR(TODAY())

Ví dụ Kết quả sẽ ra thế này:

Ngày 21 Tháng 6 Năm 2017

[TBODY] [/TBODY]

Chỉ cần vào Format Cell mục Custom --> Ô Type gõ: "Ngày " dd " tháng " mm " năm " yyyyy