Option Explicit
Function WDateAdd(DVi As String, SLg As Integer, Dat As Date) As Date
'DVi:="M", "D", "Q", "Y" '
DVi = UCase$(DVi)
WDateAdd = DateAdd(DVi, SLg, Dat)
If Weekday(WDateAdd, vbSunday) = 7 Then WDateAdd = WDateAdd + 2
If Weekday(WDateAdd, vbSunday) = 1 Then WDateAdd = WDateAdd + 1
End Function
NGAYTRA =DATE(YEAR($A3),MONTH($A3)+(RIGHT($B3)="M")*LEFT($B3,LEN($B3)-1),DAY($A3)+IF(RIGHT($B3)="W",7,IF(RIGHT($B3)="D",1,0))*LEFT($B3,LEN($B3)-1))
=CHOOSE(WEEKDAY(NGAYTRA),1,0,0,0,0,0,2)+NGAYTRA
NGAYTRA =(RIGHT($B3)="M")*EDATE($A3,1)+(RIGHT($B3)="W")*(7*LEFT($B3,LEN($B3)-1)+$A3)+(RIGHT($B3)="D")*(LEFT($B3,LEN($B3)-1)+$A3)
NGAYTRA =IF(RIGHT($B3)="M",EDATE($A3,1),IF(RIGHT($B3)="W",7*LEFT($B3,LEN($B3)-1)+$A3,LEFT($B3,LEN($B3)-1)+$A3))
=CHOOSE(WEEKDAY(NGAYTRA),1,0,0,0,0,0,2)+NGAYTRA
hvphong đã viết:Em muon Excel tự hiểu ngày nghỉ mà nhảy lên ngày làm việc tiếp theo nhờ Anh, chị chỉ giúp.cụ thể như file kem theo.
ôi có bảng theo dõi bán vé(file kèm theo).Nhờ ACE giúp: Làm thế nào khi đánh chữ cái đầu(họ-tên)thì nó hiện ra mã đặt chỗ luôn?Tôi chưa biết gì về Excel đâu,mọi người giúp tôi nhé