Hiển thị ngày End-Date, dời ngày nếu trùng Chủ Nhật với ngày lễ (3 người xem)

[pearlymy]

Mình có trục trặc này, mong mọi người giúp đỡ
ở Sheet 2, gõ Start date ở ô B2, thì ô D2 sẽ hiện End date với End date là ngày cách 1 tháng với Stare date (hiển thị theo kiểu hàm Edate), nhưng nếu D2 trùng với ngày chủ nhật hay ngày lễ (sheet NGAYLE) thì sẽ dời sang ngày kế tiếp, nếu vẫn trùng ngày lễ hoặc chủ nhật thì dời đến khi nào ngày đó là ngày thường (không phải ngày lễ và chủ nhật)
Thiệt tình với trường hợp chủ nhật thì em biết chứ ngày lễ thì em nghĩ k ra.
Cám ơn rất nhiều

 

[Lê Duy Thương]

Mình có trục trặc này, mong mọi người giúp đỡ
ở Sheet 2, gõ Start date ở ô B2, thì ô D2 sẽ hiện End date với End date là ngày cách 1 tháng với Stare date (hiển thị theo kiểu hàm Edate), nhưng nếu D2 trùng với ngày chủ nhật hay ngày lễ (sheet NGAYLE) thì sẽ dời sang ngày kế tiếp, nếu vẫn trùng ngày lễ hoặc chủ nhật thì dời đến khi nào ngày đó là ngày thường (không phải ngày lễ và chủ nhật)
Thiệt tình với trường hợp chủ nhật thì em biết chứ ngày lễ thì em nghĩ k ra.
Cám ơn rất nhiều

Nếu bạn dùng excel 2010 có hàm WORKDAY.INL()
xem file nhé

 

[pearlymy]

hic, em đang xài excel 2007, anh cho em cái addin đó được không ạ?

 

[SA_DQ]

Lí ra xong từ tối qua; Do mắt mơ huyền thế nào mà nhầm!

hic, em đang xài excel 2007, anh cho em cái addin đó được không ạ?

Mời bạn xơi sản fẩm này; Chỉ là E2003!

 

[pearlymy]

híc, ý mình đâu phải tìm thứ đâu mà

 

[ChanhTQ@]

[ThongBao]híc, ý mình đâu phải tìm thứ đâu mà[/Thongbao]

Thì làm thêm cho vui cửa nhà vậy mà!;

Nếu không thích thì bạn toàn quyền bỏ 2 ô "dư" í đi mà!

Xài con [D2] là đủ rồi!

 

[pearlymy]

[ThongBao]híc, ý mình đâu phải tìm thứ đâu mà[/ThongBao]

Thì làm thêm cho vui cửa nhà vậy mà!;

Nếu không thích thì bạn toàn quyền bỏ 2 ô "dư" í đi mà!

Xài con [D2] là đủ rồi!

Ah, em thấy rồi, mà ý em là add-in kiểu công thức í, bị em làm bảng kê tính lãi, tính kiểu này trên rất nhiều ô, nên chỉ có thể làm công thức cho nó toàn diện...

 

[SA_DQ]

Nói về khía cạnh toàn diện, thì VBA "Toàn diện" hơn nhiều những công thức cứng nhắc!
Bạn tính cả vạn ô bằng công thức thì mệt mõi hơn VBA nhiều;
Bạn sẽ thấm thía khi biết nhiều về VBA!

Chúc vui cuối tuần!

 

[ndu96081631]

Ah, em thấy rồi, mà ý em là add-in kiểu công thức í, bị em làm bảng kê tính lãi, tính kiểu này trên rất nhiều ô, nên chỉ có thể làm công thức cho nó toàn diện...

Trước đây tôi có viết 1 bộ hàm: WorkdayVN, GetEndDay và NetwdsVN chuyên phục vụ cho nhu cầu này
Viết đã lâu, cũng hơi "cùi bắp" những chắc còn dùng được. Bạn cứ tham khảo file đính kèm nhé
-------------
Trường hợp của bạn có thể áp dụng hàm GetEnday để giải quyết =GetEndday(B2,1,NGAYLE!B2:B31)
------------
Lưu ý: Đối với những ngày nghỉ xảy ra hàng năm (1/1, 30/4, 1/5, 2/9) bạn không cần phải liệt kê từng năm đâu. Cứ ghi chúng theo dạng TEXT với cấu trúc MM-dd là được
Ví dụ:
'01-01
'04-30
'05-01
'09-02
và ghi 1 lần duy nhất. Năm sau, cứ đến ngày này, hàm sẽ tự biết loại trừ

 

[pearlymy]

Con làm được rồi. Cám ơn thầy rất nhiều!

 

[ndu96081631]

Con làm được rồi. Cám ơn thầy rất nhiều!

Câu này nghe.. quen ghê ta

 

[nhapmon]

Con làm được rồi. Cám ơn thầy rất nhiều!

bạn đã có giải pháp hay, chừng nào rảnh xem cho vui................
D2=SUMPRODUCT((WEEKDAY(ROW(INDIRECT(B2&":"&EDATE(B2,1))))<7)*(COUNTIF(holidays,ROW(INDIRECT(B2&":"&EDATE(B2,1))))=0))
với holidays là list ngày nghỉ


.................................................
ah. có lẻ tôi hiểu sai ý bạn
số ngày bạn phải cộng thêm là
=SUMPRODUCT((((WEEKDAY(ROW(INDIRECT(B2&":"&EDATE(B2,1))))=7)+(COUNTIF(holidays,ROW(INDIRECT(B2&":"&EDATE(B2,1))))=1))>0)*1)

 

[pearlymy]

Híc, cho em xin quyền trợ giúp thứ 2
Sau 1 hồi suy nghĩ, em quyết định cài lại office 2010, để tránh bị nhảy chữ hoa thành chữ thường ở Excel 2007
Nhưng khổ là em viết công thức kiểu workday.intl thì nghĩ không ra . Còn addin của thầy ndu bị lỗi Can't find project or library
Rất mong được sự giúp đỡ.
Cám ơn rất nhiều

 

[Let'GâuGâu]

Híc, cho em xin quyền trợ giúp thứ 2
Sau 1 hồi suy nghĩ, em quyết định cài lại office 2010, để tránh bị nhảy chữ hoa thành chữ thường ở Excel 2007
Nhưng khổ là em viết công thức kiểu workday.intl thì nghĩ không ra . Còn addin của thầy ndu bị lỗi Can't find project or library
Rất mong được sự giúp đỡ.
Cám ơn rất nhiều

.

bạn thử hàm này
=WORKDAY.INTL(B2,DAY(EOMONTH(B2,0)),11,NGAYLE!B22:B31)
......................
còn cái vụ "Can't find project or library",bạn thử vậy xem--->Alt F11 (mở cửa sổ vba project)--->Tools--->References---->cái nào thiếu clikc vô (chi đại, hỏng biết có đúng hong, chưa làm........)