thay thế hàm now (2 người xem)

[komono]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Or Target.Count > 1 Then Exit Sub
Target.Offset(, -2) = WorksheetFunction.Max([A:A]) + 1
Target.Offset(, -1) = Now
ActiveSheet.Unprotect "GPE"
Intersect(UsedRange, Target.EntireRow).Locked = True
Intersect(UsedRange, Target.EntireRow).Borders.LineStyle = 1
Target.Offset(, -1).NumberFormat = "dd-mm-yyyy"
ActiveSheet.Protect "GPE"
End Sub
các anh chị có hàm nào thay hàm Now được không? chỉ cần ngày hiện tại.
vì hàm now khi ra tính toán nó tính luôn giờ nên kết quả ra không đúng yêu cầu.

 

[vanle33]

các anh chị có hàm nào thay hàm Now được không? chỉ cần ngày hiện tại.
vì hàm now khi ra tính toán nó tính luôn giờ nên kết quả ra không đúng yêu cầu.

Công thức = TODAY()
Chấm hết

 

[Hoàng Trọng Nghĩa]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Or Target.Count > 1 Then Exit Sub
Target.Offset(, -2) = WorksheetFunction.Max([A:A]) + 1
Target.Offset(, -1) = Now
ActiveSheet.Unprotect "GPE"
Intersect(UsedRange, Target.EntireRow).Locked = True
Intersect(UsedRange, Target.EntireRow).Borders.LineStyle = 1
Target.Offset(, -1).NumberFormat = "dd-mm-yyyy"
ActiveSheet.Protect "GPE"
End Sub
các anh chị có hàm nào thay hàm Now được không? chỉ cần ngày hiện tại.
vì hàm now khi ra tính toán nó tính luôn giờ nên kết quả ra không đúng yêu cầu.

Target.Offset(, -1) = Date

 

[komono]

=today() ko chạy được anh ơi

 

[vanle33]

=today() ko chạy được anh ơi

Tại sao hàm Today() ở máy bạn lại không chạy được nhỉ. Tôi đặt công thức này trên excel 2003 hay 2010 đều ra 17/11/2014.

 

[Hoàng Trọng Nghĩa]

Tại sao hàm Today() ở máy bạn lại không chạy được nhỉ. Tôi đặt công thức này trên excel 2003 hay 2010 đều ra 17/11/2014.

Hàm TODAY() chỉ xài được trong sheet, nhưng với VBA thì không xài được. Kể cả dùng WorksheetFunction cũng không có hàm bởi nó đã có hàm Date rồi.