Lấy Thời Gian Trống Của Nhân Viên

[anbongdem]

Mình có một vấn đề như thế này:
mình có nhân viên làm việc vào các ngày và các ca khác nhau (sáng chều tối).
sẽ có nhân viên đang trống ca vào các ngày có thể là sáng, chiều hoặc tối.
khi khách hàng gọi tới cho mình, mình ko thể nhớ hết được các ca trống của nhân viên...

Bây giờ mình đang thiết kế một lịch làm việc của những nhân viên này, để khi khách hàng gọi đến thì mình click vào button nó sẽ lấy ra những ca trống của nv vào các ngày và các ca.

Mình đang cần một giải pháp cho vấn đề này ? ai có thể giúp đỡ mình ? rất mong nhận được sự giúp đỡ...mình chân thành cảm ơn....

 

[kellyfe]

bạn gửi file lên đi để mọi người làm dùm bạn

 

[anbongdem]

Mình đã làm một Lịch minh họa, xin chân thành cảm ơn lời nói của bạn.

http://spreadsheets.google.com/pub?key=r_8mM_JP2iTBRJdDT-Oxcjg&output=html

thêm Link cho tiện tham khảo...

 

[langthangmang]

Chào Bạn !
Mình cũng chưa Hiểu ý bạn lắm, nhưng cũng thử tính không biết đúng ý bạn không
Xem file đính kèm ( có sửa lại 1 chút)

 

[SA_DQ]

Bạn xem thêm trong file đính kèm

Cảm ơn bạn LangThngMang vì mình sử dụng file của bạn

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [A4]) Is Nothing Then
   Dim Rng As Range, sRng As Range
   Dim Sh As Worksheet
   
   Set Sh = Sheets("Calender")
   Set Rng = Sh.Range("C2:C" & Sh.[c65500].End(xlUp).Row)
   Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
   If Not sRng Is Nothing Then
      Set sRng = sRng.Offset(, 2).Resize(3, 7)
      sRng.Copy Destination:=[D3]
   End If
 End If
End Sub

 

[anbongdem]

P/s: cảm ơn hai bạn rất nhiều vì đã giúp đỡ...
khi mình mở file của bạn langthangmang lên thì nó bão lỗi này, bạn có thể giải thích để mình hiểu được không...
mình đã xem hai file của hai bạn...mình sẽ sớm phản hồi

 

[langthangmang]

Chào hai bạn !
File bạn đưa lên là của mình nhưng được bạn SA_DQ sửa lại và có sử dụng Macro, Bạn hãy mở excel ---> Tool --> Macro --> Security --> chọn Secueity level --> low